السلام عليكم
في المثال المرفق يوجد عملاء عليهم مبالغ مستحقة ويسددونها على أقساط ، المطلوب في كل مرة يتم تسديد مبلغ يتم حفظه في حقل ( paid ) حيث أن العميل الأول عنده خمسة أقساط فإذا سدد مثلا 1000 ريال يتم حفظ هذا المبلغ في الحقل الأول لأول تاريخ وإذا سدد ثانية يتم حفظه في الحقل الثاني لثاني تاريخ وهكذا ..
تفضل اخى
ضع هذا الكود فى حدث عند الضغط للزر (حفظ )
CurrentDb.Execute "UPDATE a2 SET a2.Paid = " & Me.am & " WHERE (((a2.Ns)=" & DLookup("ns", "a2", "paid=" & 0 & " and n=" & Me.n) & "));"
Me.a2_äãæÐÌ_ÝÑÚí.Requeryإذا أردت إضافة بيانات أخرى غير المبلغ مثل تاريخ السداد ورقم الشيك والبنك .. فما هي التعديلات التي يجب أن تكون في الكود السابق ؟
تم تعديل هذه المشاركة بواسطة jafar089 في 15 سبتمبر 2010 في 16:13
لاضافة قيم اخرى استخدم الكود بعد ان تم تعديله
If MsgBox("åá ÊÑíÏ ÈÇáÊÃßíÏ ÍÝÙ ÇáÈíÇäÇÊ ¿", vbInformation + vbYesNo, "ÍÝÙ") = vbYes Then
CurrentDb.Execute "UPDATE a2 SET a2.Paid = " & Me.a2 & ", a2.chn = " & Me.a3 & ", a2.bank = " & Me.a4 & ", a2.dpaid = " & Me.a1 & " WHERE (((a2.Ns)=" & DLookup("ns", "a2", "paid=" & 0 & " and n=" & Me.NoFile & "") & "));"
Me.aa2.Requery
MsgBox "Êã ÍÝÙ ÇáÈíÇäÇÊ "
Else
MsgBox "Êã ÇáÅáÛÇÁ "
End If
Me.Requery
'DoCmd.Close
'DoCmd.OpenForm "aa1"مشكووور وجزيت خيراً ..
ولكن تظهر رسالة خطأ بالنسبة للبنك في كود الحفظ وهناك ملاحظة أخرى وهي أن التاريخ في جدول a2 يختلف عن التاريخ الذي بالنموذج حيث يخزن القيمة في الجدول بالميلادي ويرجعها إلى سنة 1900 !
تم تعديل هذه المشاركة بواسطة jafar089 في 16 سبتمبر 2010 في 13:52
يظهر الخطأ في هذا السطر حيث من الملاحظ أن أي حقل غير رقمي لا يظهر كما هو في الجدول :
CurrentDb.Execute "UPDATE a2 SET a2.Paid = " & Me.a2 & ", a2.chn = " & Me.a3 & ", a2.bank = " & Me.a4 & ", a2.dpaid = " & Me.a1 & " WHERE (((a2.Ns)=" & DLookup("ns", "a2", "paid=" & 0 & " and n=" & Me.NoFile & "") & "));"تم تعديل هذه المشاركة بواسطة jafar089 في 17 سبتمبر 2010 في 21:45
أستاذي العزيز يعطيك العافية
المشكلة في خانة اسم البنك والكود الخاص به حيث تظهر رسالة كما في الصورة :
نعم اخى
هذا لاننى كنت استخدم رقم البنك
عموما اليك هذا التعديل
CurrentDb.Execute "UPDATE a2 SET a2.Paid = " & Me.a2 & ", a2.chn = " & Me.a3 & ", a2.bank = '" & Me.a4 & "', a2.dpaid = '" & Me.a1 & "' WHERE (((a2.Ns)=" & DLookup("ns", "a2", "paid=" & 0 & " and n=" & Me.NoFile & "") & "));"لاحظ علامتى التنصيص فى هذا الجزء
a2.bank = '" & Me.a4 & "'
أحسنت .. أحسنت
بوركت..
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…