Dim ad_no, soyad_no As String
Dim rs As Object
soyad_no = Dlookup ("no", "musteri", "soyad='" & Me.soyad & "'")
ad_no = DCount("ad", "musteri", "soyad='" & Me.soyad & "' AND ad='" & Me.ad & "'")
If ad_no > 0 Then
Me.Undo
MsgBox "Böyle bir kayıt daha önceden var"
Set rs = Me.Recordset.Clone
rs.FindFirst "[no] = " & Str(Nz(soyad_no, 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
MsgBox "yok"
End If
Ben kabaca yazdım siz istediğiniz gibi düzenlersiniz.