كود اذا كان الرقم مكرر يخرج رسالة الرقم مكرر هل تريد الاستمرار نعم ام لا

[abouelhassan]

السلام عليكم الاساتذة الافاضل

بارك الله فيكم امين

اقوم غصب عنى بادخال مستندات اكثر من مرة ويحدث مشاكل بسبب هذا وفى اوقات يتشابه الرقم المدخل

هل بالامكان مثل الاكسل هذا الكود بالاكسيل اريد مثله للاكسس فى الفورم المسمى frm_Items_Entry

  If m <> 0 Then
   Reponse = MsgBox("رقم المستند مكرر هل تريد الاستمرار: " & Chr(10) & _
      Join(Arr, " ; "), 524292)
  If Reponse <> 6 Then Exit Sub
  End If

هنا عند الادخال والترحيل وعند الضغط على زر ترحيل هل بالامكان ان تظهر لى هذه الرسالة فى حالة تكرار الرقم فاذا كنت ادخلت المستند اذاهب واتأكد منه واذا كان الرقم مكرر 

اضغط نعم فيستمر العمل

بارك الله فيكم اخواتى الافاضل

 

1311.11.DATA12.mdb.zip

[سامي الحداد]

وعليكم السلام 

محاولة مني ان شاءالله يكون المطلوب

تحياتي

1311.11.DATA12.rar

[abouelhassan]

بارك الله فيك اخى استاذ سامي الحداد

بعد اذنك انا اضفت الكود للفورم ومشتغلش فى حين انه يعمل فى الملف المرفق السابق

ممكن بعد اذنك تشرحلى اعمل ايه ربنا يحفظك

احترامى اخيك

[سامي الحداد]

السلام عليكم اخي الكريم

أنا حاليآ على الهاتف عندما ارجع للبيت سوف انظر للمشكلة. 

تحياتي لك

 

[abouelhassan]

تحياتى اخى

[abouelhassan]

هنا اخى ظهر لى الخطأ

Private Sub Main_iBill_Number_BeforeUpdate(Cancel As Integer)

varBillNo

ووجدت الحل اخى الحمد لله لم اكن اعلن عن المتغيرين

Dim varBillNo As Variant
Dim FindRecord As Boolean

بارك الله فيك اشكرك اخى

تم تعديل فبراير 17, 2021 بواسطه abouelhassan

[سامي الحداد]

أسف على التاخير  والحمدلله انك وجدت الحل 

بالتوفيق اخي العزيز