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