elkareee قام بنشر ديسمبر 5, 2016 مشاركة قام بنشر ديسمبر 5, 2016 السلام عليكم مطلوب مساعدة بعمل رسالة MsgBox فى حالة محاولة التسجيل برقم مستند Doc موجود مسبقاً فى الجدول Tra تظهر الرسالة التالية " عفوا رقم المستند موجود مسبقاً برجاء اضافة رقم 0 على يسار الرقم الحالى " ومرفق قاعدة 2003 بها النموذج المطلوب التعديل عليه جزاكم الله خير New.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 5, 2016 مشاركة قام بنشر ديسمبر 5, 2016 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 1 رابط هذا التعليق شارك More sharing options...
elkareee قام بنشر ديسمبر 6, 2016 الكاتب مشاركة قام بنشر ديسمبر 6, 2016 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 هوا المطلوب جزاك الله خير أخى الكريم 1 رابط هذا التعليق شارك More sharing options...
eideid قام بنشر مايو 23, 2023 مشاركة قام بنشر مايو 23, 2023 شكرا لك اخونا الغالي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.