الله ينور عليك استاذى كل شئ رائع تم تجربة كل شئ تمام تسلم ايدك لخى فى الله حبيبىد.كاف يار
تم استدعاء الفاتورة تمام وتم التغير فى البيانات تمام والادخال اليدوى تمام ونسخ السجل تمام
حفظك المولى ورعاك ونجاك يارب
مشكلتى كلها فى كود الرقم مكرر انه بيكتب ارقام فاتورة جديدة من عنده
مثلا عند استدعاء الفاتورة 100 واختار نسخة مماثلة بيكتب رقم فاتورة جديد مكرر-مكرر 11 انا اريد انا اكتب 100 فقط
فالكود يخبرنى ان الرقم مكرر هل تريد التعديل لو اخترت لا يكتب لى 100 مثل هذا الكود هو الذى استخدمه حاليا فى القاعدة من تصميم اساتذتى بالمنتدى
Private Sub Main_iBill_Number_BeforeUpdate(Cancel As Integer)
varBillNo = DLookup("[iBill_Number]", "tbl_Items", "[iBill_Number] ='" & Me.Main_iBill_Number & "'")
If Not IsNull(varBillNo) Then
If MsgBox(" هذا الرقم مكرر." & vbCrLf & vbCrLf & " هل تريد تعديل الرقم ¿", vbYesNo, "Confirmation Required") = vbYes Then
Cancel = True
Me.iBill_Number.Undo
Else
Me.Undo
FindRecord = True
Call Main_iBill_Number_AfterUpdate
End If
End If
End Sub
ماذا يفعل هذا الكود يخبرنى ان الرقم مكرر هل تريد تعديله
لو انا اخترت yes اجد ان سجل الرقم اكتف للكتابة لتغير الرقم ولو اخترت no كان شئ لم يكن ويترك الرقم مكتوب عادى مثل هنا ترك الرقم 100 كما هو وانتقل الى المخزن
معلش استاذى الغالى سامحنى بالله عليك ربنا يعزك ويحفظك ويكرمك يارب امين يارب