عدم ادخال عدد مكرر

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

شباب السلام عليكم

عندي استفسار ومساعدة

رقم سند القبض لايقبل التكرار

واذا جيت فتحت نموذج اضافة سند قبض وادخلت بيانات لو فرضنا بسند رقم 12

وسكرت وحفظ لو جيت ادخلت مره ثانية نفس الرقم يسكر ولكن لايحفظ

المطلوب اذا ادخلت نفس الرقم يظهر مسج بانه الرقم موجود مسبقا وتكبس موافق ويعود المؤشر لخانة سند القبض وتغير الرقم

طابة 3 - Copy.rar

[Shivan Rekany]

49 دقائق مضت, وسيم الحمادة said:

واذا جيت فتحت نموذج اضافة سند قبض وادخلت بيانات لو فرضنا بسند رقم 12

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

Private Sub الرقم_الوظيفي_BeforeUpdate(Cancel As Integer)
    If DCount("*", "البيانات", "[رقم سند القبض]=" & Me.الرقم_الوظيفي) > 0 Then
            MsgBox "الرقم مکرر"
            Cancel = -1
    End If
End Sub

 

طابة 3 - Copy.rar