Kaydet butonunuzun olay kodunu şu şekilde değiştiriniz:

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.

deniyorum ama bende olmuyo arkadaşlar.
kafayı yedirtecek banaya, nasıl sıkıntı oldu bana.

Yinede bu konu ile ilgilenen herkese cok teşekkür ederim.

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.

evet şimdi oldu ALPEKİ99 arkadaşa cok teşekkür ederim.

bişey daha ricaetsem,
silme butonu ekleyip o müşterinin tüm tablolardaki o müşteriye ait bilgileri silinsin istiyorum mümkünmüdür.
Saygılarımla.

Sn Murata lütfen Site Kurallarını okuyunuz ve uygulayınız. Mesajınızın tamamını büyük harfle yazmayınız. Yazdıklarınızı düzeltiniz. Sanırım arkadaşlar uyarmayı unutmuşlar...

Saygılar...

Bütün tablolar dediğiniz "şikayet ve sonuç" ve "ürün" isimli tablolar anladığım kadarıyla. Bu tablo isimleri problem yalnız. Lütfen yapılmaması gereken ölümcül hatalar konusunu ciddi ciddi okuyun.

Benimde sizden iki ricam olsun. Site Kuralları gereği tamamen büyük harfler ile yazmayınız. Diğeri ise sorularınızı adım adım sorarsanız çok daha iyi yardımcı olabiliriz.

Tablolar bahsettiğim bu iki tablo ise ona göre işlem yapalım.