تصحيح كود برمجى

[figo82eg]

ارجو المساعدة حيث استخدم الكود التالى ولكن لا يعمل عند التعديل على الحقل هل يمكن تعديل لكى ينبه المستخدم بالخطأ مع امكانية قبول او رفض الرقم المدخل 

Private Sub Form_Current()
If Me.adadno.Value <> DLookup("[A]", "[Database]", "[crn] ='" & [Forms]![Database1]![crn] & "'") Then
Beep
If MsgBox("إنــتــبــه ...... يوجد خطأ ....... هل تريد إضافة القيمة؟", _
    vbQuestion + vbYesNo, _
    "تننبيه") = vbYes Then
    Exit Sub
    Else
    Undo
       Exit Sub
End If
End Sub

 

[دروب مبرمج]

جرب كده

Private Sub Form_Current()
DoCmd.RunCommand acCmdSaveRecord
If Me.adadno.Value <> DLookup("[A]", "[Database]", "[crn] ='" & [Forms]![Database1]![crn] & "'") Then
Beep
If MsgBox("إنــتــبــه ...... يوجد خطأ ....... هل تريد إضافة القيمة؟", _
    vbQuestion + vbYesNo, _
    "تننبيه") = vbYes Then
    Exit Sub
    Else
    Undo
       Exit Sub
End If
End Sub

 

[AbuuAhmed]

أيضا جرب هذا الكود:
 

Private Sub Form_Current()
    Dim Msg As String
    
    If IsNull(Me.adadno) Then Exit Sub
    
   'If Me.adadno <> DLookup("[A]", "[Database]", "[crn] ='" & Me.adadno & "'") Then     'إذا كان الحقل نصي
    If Not IsNull(DLookup("[crn]", "[Database]", "[crn]=" & Me.adadno)) Then
        Msg = "القيمة " & Me.adadno & " موجودة هل تريد تكرارها؟"
        Beep
        If vbYes = MsgBox(Msg, vbQuestion + vbYesNo + vbDefaultButton2, "تننبيه") Then
            Exit Sub
        Else
            Undo
            'Exit Sub
        End If
    End If
End Sub

 

[figo82eg]

شكرا على مساعدتى اخوتى الكرام