كود بحاجه للتصليح

السبب انه يقرأ من النموذج اللي تحت بس السجل الحالي اللي هو الاول وليس السجل الثاني

الحل انك ما تقارن بالنموذج اللي تحت ، انما تقارن بالمعلومات من الجدول على طول

يعني بدل الكود اللي انت كاتبه اكتب

Private Sub رقم_AfterUpdate()

x = DLookup("[رقم]", "[تعريف]", "[نوع]=" & "'" & Me.نوع & "'" & " And [رقم]=" & "'" & Me.رقم & "'")

z = [رقم]

MsgBox x & vbCrLf & z

If Nz([x], "") <> Nz([z], "") Then

MsgBox# ("الرقم غير صحيح")

End If

End Sub

شكرا يا اخ osama457

هزا هو الحل المطلوب

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

(gift)(gift)