Kod:
Private Sub ProductName_BeforeUpdate(Cancel As Integer)
If(Not IsNull(DLookup("[ProductName]", _
"Products", "[ProductName] ='" _
&; Me!ProductName &; "'"))) Then
MsgBox "Product has already been entered in the database."
Cancel = True
Me!ProductName.Undo
End If
End Subhttps://accesstr.net/konu-officedev-vba-...rsivi.html
konusunda bahsettiğim arşivden buldum. Burada
"gireceğimiz değer eğer tabloda varsa geri al diyor"
Kod:
Cancel = True
garantiye almış kendini.
