سلام
بنده این کد رو در افتر اپدیت فیلد شماره فاکتور گذاشتم
بله فرم باند شده است


Private Sub invoice_no_AfterUpdate()
Dim Newbook, Newf_name As String
Dim myCriteria As Strin
Newf_name = Me.company_name.Value
Newbook = Me.invoice_no.Value
myCriteria = "[ invoice_no] = " & "'" & Newbook & "' and [company_name] = " & "'" & Newf_name & "'"
If Me.invoice_no = DLookup("[invoice_no]", "invoicetable1", myCriteria) Then
MsgBox "اين فاکتور با شماره " & " " & Newbook & " " & "با نام شرکت/موسسه " & Newf_name _
& vbCr & "در حال حاضر در پايگاه داده ثبت شده است " & vbCr & "لطفا دوباره بررسي نماييد.", vbInformation, "اطلاعات تکراري"
Me.Undo
End If
End Sub