مساعدة عمل رسالة MsgBox

[elkareee]

السلام عليكم

مطلوب مساعدة بعمل رسالة MsgBox فى حالة محاولة التسجيل برقم مستند Doc موجود مسبقاً فى الجدول Tra  تظهر الرسالة التالية " عفوا رقم المستند موجود مسبقاً برجاء اضافة رقم 0 على يسار الرقم الحالى " ومرفق قاعدة 2003 بها النموذج المطلوب التعديل عليه جزاكم الله خير

New.rar

[Shivan Rekany]

38 دقائق مضت, elkareee said:

السلام عليكم

مطلوب مساعدة بعمل رسالة MsgBox فى حالة محاولة التسجيل برقم مستند Doc موجود مسبقاً فى الجدول Tra  تظهر الرسالة التالية " عفوا رقم المستند موجود مسبقاً برجاء اضافة رقم 0 على يسار الرقم الحالى " ومرفق قاعدة 2003 بها النموذج المطلوب التعديل عليه جزاكم الله خير

New.rar

اتفضل اتمنى ان ينال اعجابك

استخدمت هذا الكود

Private Sub add_doc_AfterUpdate()
Dim a As Integer
a = DCount("[doc]", "tra", "[doc]='" & Me.add_doc & "'")
If a >= 1 Then
MsgBox "عفوا رقم المستند موجود مسبقاً برجاء اضافة رقم 0 على يسار الرقم الحالى"
End If
End Sub

 

New (3).rar

[elkareee]

20 ساعات مضت, Shivan Rekany said:

اتفضل اتمنى ان ينال اعجابك

استخدمت هذا الكود

Private Sub add_doc_AfterUpdate()
Dim a As Integer
a = DCount("[doc]", "tra", "[doc]='" & Me.add_doc & "'")
If a >= 1 Then
MsgBox "عفوا رقم المستند موجود مسبقاً برجاء اضافة رقم 0 على يسار الرقم الحالى"
End If
End Sub

 

New (3).rar

هوا المطلوب جزاك الله خير أخى الكريم

[eideid]

شكرا لك اخونا الغالي