رسالة تنبيه عند ادخال نفس بيانات ثلاث مرات

ضع الكود التالي في حدث " بعد التحديث " لمربع النص الخاص رقمه الوظيفي

Dim VarID As Integer

VarID = DCount("[Id]", "Table1", "[ID]=" & Me.TxtID & "")

If Val(VarID) > 1 Then

MsgBox "لقد قام هذا الموظف بالتهاون بالأنظمة المرورية " & "وهذه المرة " & VarID + 1 & " له", vbMsgBoxRight + vbInformation, "للمرة الثالة"

End If

ملاحظة هامة : في الكود اسم مربع النص الذي يدخل فيه الرقم الوظيفي TxtID واسم الجدول هو Table1 واسم حقل الرقم الوظيفي في الجدول هو ID استبدل الحقول ومربع النص المذكورين في الكود بما هو موجود في جدولك ومبع النص لديك.

الله يعطيك العافية ياأبو ساره جاري التجربه ولك مني جزيل الشكر،،،