السلام عليكم ورحمه الله وبركاته
احبتي هذا الكود شغال معي تمام
فغيرت حقلID_Sanf من رقم الي نص بعدها لم يشتغل معي التنبيه
المطلوب تعديل الكود
Dim Rs As DAO.Recordset
Set Rs = Forms!frmSales!SubSales.Form.RecordsetClone
Rs.FindFirst "[Rjmfatwra] = '" & Me.Rjmfatwra & "' And ID_Sanf =" & Me.ID_Sanf
If Rs.NoMatch = False Then
MsgBox " الرقم مكرر" & " ", , "تـنـبـيـه"
GoTo No_Records
Else