+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: aynı kayıt sorunu (/konu-ayni-kayit-sorunu.html)
Cvp: aynı kayıt sorunu - alpeki99 - 22/09/2010
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.
Cvp: aynı kayıt sorunu - murata - 22/09/2010
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.
Cvp: aynı kayıt sorunu - alpeki99 - 22/09/2010
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.
Cvp: aynı kayıt sorunu - murata - 22/09/2010
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.
Cvp: aynı kayıt sorunu - benremix - 22/09/2010
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...
Cvp: aynı kayıt sorunu - alpeki99 - 22/09/2010
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.