منع التكرار

[ابو عبدالحميد]

وقل ربي زدني علماً

السلام عليكم 

انا عندي مشكلتين في نفس البرنامج السابق  (‏‏دليل ارقام التحويلات2.rar )

وهي تعديل الكود عند تكرار (رقم التحويلة) وأريد عند ادخال رقم موجود يظهر لي رسالة تنبيه 

بأن هذا الرقم تم إدخاله من قبل ويتم عرض سجل هذا الرقم في نفس النموذج

والمشكلة الثانية انا عملت هذا البرنامج على نظام اكسس 2003 ولما افتح البرنامج على اكسس 2010 او 2013 او 2016 لا يعمل ويأتي رسائل خطأ 

مع انه البرنامج بسيط جدا ما الحل ؟

وجزاكم الله خير

 

تم تعديل يوليو 20, 2017 بواسطه ابوخليل
فصل الموضوع

[Shivan Rekany]

في ٢٠‏/٧‏/٢٠١٧ at 12:24, ابو عبدالحميد said:

تعديل الكود عند تكرار (رقم التحويلة) وأريد عند ادخال رقم موجود يظهر لي رسالة تنبيه 

بأن هذا الرقم تم إدخاله من قبل ويتم عرض سجل هذا الرقم في نفس النموذج

اتفضل اليك هذا الكود

Private Sub NO_2_BeforeUpdate(Cancel As Integer)
    Dim MyDcount As Integer
    Dim MyId As Integer
        MyId = DLookup("[ID]", "التحويلة", "[رقم التحويلة]=" & Me.NO_2)
    MyDcount = DCount("*", "التحويلة", "[رقم التحويلة]=" & Me.NO_2)
    If MyDcount > 0 Then
        MsgBox "ھذا الرقم محجوزة .. سيتم نقلك اليه"
        Me.Undo
        Me.RecordsetClone.FindFirst "[id] = " & MyId
        Me.Bookmark = Me.RecordsetClone.Bookmark
    End If
End Sub

 

في ٢٠‏/٧‏/٢٠١٧ at 12:24, ابو عبدالحميد said:

المشكلة الثانية انا عملت هذا البرنامج على نظام اكسس 2003 ولما افتح البرنامج على اكسس 2010 او 2013 او 2016 لا يعمل ويأتي رسائل خطأ 

مع انه البرنامج بسيط جدا ما الحل ؟

انا عم استخدم اوفيس 2010 وما فيها مشكلة

في ٢٠‏/٧‏/٢٠١٧ at 12:24, ابو عبدالحميد said:

لا تتعصب .. اهتم بصحتك 

اليك المرفق بعد تعديل

 

--دليل ارقام التحويلات2.rar