Daha önce Kayıt yapılmışmı kontrolü

[Osmanselim]

Daha önce aynı ilgi Girilmişmi? Kontrolü

Arkadaşlar Çalışmamda İsim ve soy isim ayrı ayrı hanelerde yeni bir kayıt girdiğimde bu ismi öncekilerle kıyas edip aynı kaydın olup olmadığını kontrol ettirmek istiyorum, ama bunu forumda nasıl aratabilirim. bunun adı nedir

 

[Taruz]

Merhabalar..

Sihirli Kelimeler :

Mükerrer Kayıt

 

[Osmanselim]

sihirli teşekkürler

Çok teşekkür ederim.

 

[simendifer]

Üzgünüz, sonuç bulunamadı. Lütfen tekrar deneyiniz. diye uyarı cıkıyor sayın taruz eklemiş olduğu link onuniçin ekledim

 

[Osmanselim]

Uygulayamadım Hatam Nerede Acaba

Ben Sorgu kısmına İsim ve Soy isimleri bir arada topladım birbirleriyle aynı kayıtta olabilecek olanların alanlarını da topladım, Formlarda Müşteri kayıt taplosununa yüklenirken olay yardamı na aşagıdaki kodlarıda yaptım am çalıştıramadım bakabilirmisiniz.
Private Sub adısoyadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[adısoyadı].Value
stLinkCriteria = "[adısoyadı]=" & "'" & SID & "'"
If DCount("[adısoyadı]", "giriş", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"

End If
End Sub

 

[Osmanselim]

Arkadaşlar Nasıl yapacağız

Yardımcı olabilirmisiniz.

 

[simendifer]

Osmanselim

degerli kardeşim gönderdiğim kodları bende bir zaman önce formdan almıştım önceki mesajda da ilettim ne varki bugün banada lazım oldu lullandım dediğin gibi bende de hata verdi uygulamamda düzelttim yeni kodlar aşagıda programına uygula bende çalıştı normal
Private Sub MÜŞTERİ_ADI_SOYADI_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[ADSOYAD].Value
stLinkCriteria = "[ADSOYAD]=" & "'" & SID & "'"
If DCount("[ADSOYAD]", "MUSTERILER", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Girmekte Oldugunuz " _
& SID & " İsim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz. TAMAM BASIN SONRA (KAYIT SİL) E BASIN MÜŞTERİ LİSTESİNDEN İSMİ TIKLAYIN", vbInformation _
, "Mükerrer Kayıt"
End If
End Sub

 

[Osmanselim]

Sn Simendifer

Hocam bu sadece isimleri kontrol edicek anladığım kadarıyla bunu soru daki bütün ögelere nasıl uygularım.