Ben test ettim bir problem yok. Eğer aynı ad ve soyad ile bir kayıt var ise uyarıyor mevcut işlemi iptal edip o kaydı ekrana getiriyor. Eğer aynı ad ve soyaddan kimse yoksa direkt kaydediyor.

NOT: Access 2010 ile 2003 formatında kaydettiğim için sizde açmaz ise eğer Kaydet butonundaki TÜM KODLARI SİLİP aşağıdakileri içine yapıştırın:

On Error GoTo Hata_Kontrol

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

        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

        Me.Liste12.Requery

    End If

    



Hata_Cikis:

    Exit Sub



Hata_Kontrol:

    MsgBox Err.Description

    Resume Hata_Cikis

    

NOT : Ufak bir hata var şimdi dışarı çıkacağım için bakamıyorum geri gelince düzelteceğim ancak şu anda eksikte olsa çalışıyor.