وعليكم السلام اخى @ازهر عبد العزيز
بهذه العلامه قبل الكتابه '
وتكتب بحرف الطاء وانت عاتجاه الكتابه الانجليزى
Private Sub N1_BeforeUpdate(Cancel As Integer)
'هذا السطر لا ينفذ هو للتعليق
If IsNull(DLookup("name", "at", "[serial number]='" & Me.B & "'")) Then
MsgBox "هذا النص غير موجود بالجدول"
Me.Undo
ElseIf DCount("*", "ld", "idlh=" & Me.idlh & "and B='" & Me.N1 & "'") > 0 Then
Dim stry As String
stry = Me.N1
Me.Undo
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[B] = '" & stry & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
DoCmd.GoToRecord , , acNewRec
End If
End Sub
بالتوفيق