السلام عليكم إخواني
تقبل الله صيام وقيام الجميع بإذن الله
" اللهم اجعل صواريخ العدو الإسرائيلي بردا وسلاما على أهلنا في غزة كما جعلت النار بردا وسلاما على سيدنا ابراهيم" اللهم أمين
إخواني ممكن مساعدة بخصوص إجراء حدث عند بعد التحديث
إذا قمنا بإستخراج من cridi" ----- combo" إسم "من cridi1 الى اخر سجل في T_Cridi"
يقابله مبلغه الخاص في مربع نص Cridi_Value حسب T_Cridi
المطلوب التعديل على هذا الكود لكي يعمل مع أخر سجل يضاف بمبلغه في T_Cridi
ملاحظة : هذا الكود يعني محدود بين cridi1 الى cridi7 واذا اضفنا مثلا سجلات اخرى cridi8 او cridi9 مثلا
قإن هذا الكود لا يقم بعمله
Private Sub Cridi_AfterUpdate()
Select Case Cridi.Value
'إذا 1 الخ الكود ...كذا افعل
Case 1
'"Cridi1"
Me!Cridi = DLookup("[Mont_Cridi]", "N_Cridi", "[ID] = 1")
TXTCridi.Requery
Case 2
'"Cridi2"
Me!Cridi = DLookup("[Mont_Cridi]", "N_Cridi", "[ID] = 2")
TXTCridi.Requery
Case 3
'"Cridi3"
Me!Cridi = DLookup("[Mont_Cridi]", "N_Cridi", "[ID] = 3")
TXTCridi.Requery
Case 4
'"Cridi4"
Me!Cridi = DLookup("[Mont_Cridi]", "N_Cridi", "[ID] = 4")
TXTCridi.Requery
Case 5
'"Cridi5 "
Me!Cridi = DLookup("[Mont_Cridi]", "N_Cridi", "[ID] = 5")
TXTCridi.Requery
Case 6
'"Cridi6 "
Me!Cridi = DLookup("[Mont_Cridi]", "N_Cridi", "[ID] = 6")
TXTCridi.Requery
Case 7
'"Cridi7 "
Me!Cridi = DLookup("[Mont_Cridi]", "N_Cridi", "[ID] = 7")
TXTCridi.Requery
End Select
If MsgBox("هل تريد تثبيت تاريخ القرض", vbYesNo) = vbYes Then Me.AwardMonth = Date
'Cridi_Value = [Cridi] + [Cridi2] + [Cridi3] + [Cridi4] + [Cridi5] + [Cridi6] + [Cridi7]
Call Update_Cridi_Value
End Sub
