السلام عليكم احبتي
وضعت كود بحيث يظهر لي عند ادخال العنوان انه تم ادخاله عدة مرات - لكن المشكلة عند الضغط على "NO" يسببلي مشاكل بحيث انه يقوم بحفظ السجل بالرغم من المضاعفات والتكرار
Private Sub Title_BeforeUpdate(Cancel As Integer)
Dim rslt As String
DoCmd.SetWarnings False
If DCount("*", "table1", "[title]='" & Me.Title & "'") > 0 Then
If MsgBox("warnnig", vbQuestion + vbYesNo, "deplucate") = vbNo Then
Me.Title.Undo
Cancel = True
End If
End If
End Sub