DoCmd.SetWarnings False
Dim x1
(x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.aa), 0)
If x1 = 0 Then
"MsgBox "This code is not registered", vbMsgBoxRight + vbCritical, "notes"
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Exit Sub
End If
السلام عليكم ..... اريد اضهار msgbox هذا كود مسجل ( This is a registered code )'