كود تحديث حقل من نموذج الي جدول غير منضم بشرط

[mostafaatiya]

السلام عليكم ورحمه الله وبركاته 

محتاج كود تحديث وليس استعلام اذا امكن 

يوجد لديا نموذج formstudent يحتوي علي اسم الطالب + قيمة القسط + تاريخ الدفع + رقم القسط

وعندي جدول الدفعات tbPayment ويحتوي علي كود الطالب  + رقم القسط + قيمة القسط + تاريخ الدفع 

محتاج كود تحديث لما اقوم بتحديد الطالب + تحديد رقم القسط يتم تحديث الحقل في الجدول بناء علي الشرط الذي تم تحديده اللي هو كود الطالب ورقم القسط

ويتم تحديث حقل قيمة القسط Payment بالمبلغ المحدد بالنموذج

وتحديث حقل Paymentdata بالتاريخ المحدد بالنموذج

مثلا مبسط 

يعني مثلا حدد احمد وحددت القسط الاول يتم تحديث قيمة القسط وتاريخ الدفع بناء علي هذا التحديث 

وان امكن اضافة رساله بمتابعه العملية او الغاءها

وهكذا ولكم جزيل الشكر والتقدير 

 

كود تحديث.rar

[د.كاف يار]

تفضل التعديل

 

كود تحديث.accdb

[mostafaatiya]

4 ساعات مضت, د.كاف يار said:

تفضل التعديل

 

كود تحديث.accdb 572 kB · 0 downloads

شكرا لمتابعه حضرتك د كاف يار

ولكن مش ده اللي انا اقصده انا محتاج كود اقوم من خلاله بتنفيذ العملية من خلال زرار الدفع

وليس من خلال النموذج الفرعي بالنسبالي النموج الفرعي هو يعطي بيانات فقط 

من خلال بحثي في المنتدي وجدت هذا الكود ولكن لا اعرف اذا كان يقوم باللي انا محتاجة ام لاء 

وشكرا لحضرتك

 

On Error GoTo enderr
 DoCmd.SetWarnings False
'النموذج
Set Rs = Forms![frm_SlsInvHd]![frm_TInvDt].Form.RecordsetClone
'الجدول للتحري
   Set RsEdit = CurrentDb.OpenRecordset("Tbl_Items")

Rs.MoveFirst
'دوران
Do While Not Rs.EOF
     RsEdit.MoveFirst
'دوران للجدول
   Do Until RsEdit.EOF
   'اذا وجد السجل
    If RsEdit!itname = Rs!itname Then
    'تحريره
         RsEdit.Edit
         RsEdit!vlbleQ = RsEdit!vlbleQ + Rs!vlbleQ
         RsEdit.Update


   End If
   RsEdit.MoveNext
   Loop


Rs.MoveNext
Loop
Set Rs = Nothing
Set RsEdit = Nothing

MsgBox " تم تعديل السجلات الى الجدول بنجاح ", vbInformation, "تم "
Exit Sub
enderr:
MsgBox " خطا في البيانات ", vbInformation, "لم يتم التعديل"

 DoCmd.SetWarnings True

[د.كاف يار]

تفضل التعديل

 

كود تحديث.accdb

[mostafaatiya]

2 ساعات مضت, د.كاف يار said:

تفضل التعديل

 

كود تحديث.accdb 564 kB · 1 download

بارك الله فيك استاذي الفاضل د.كاف يار

وجعله الله في ميزان حسناتك 

هذا بالفعل ما اطلبة 

شكرا جزيلا وجزاك الله خير الجزاء