Sayın Hocalarım, sakın kızmayın. daha önce bu konunun incelendiğinin farkındayım. fakat örneklerde tek bir kayıt için uygulamalar yapılmış veya ben öyle gördüm. Benim isteğim Adı, Soyadı ve Baba adı metin kutularından oluşan formumda adını, soyadını girdiğimde değil son olarak baba adını da girdiğimde üç kriteride kontrol ederek mükerrer kayıt olup olmadığına bakmasını istiyorum. bir dosya ekliyorum. Yardım ederseniz minnettar olurum. saygılarımla..
Bahsettiğin bu üç alanın birleşiminden oluşan bie alan tanımlasan ve bunun yenilenmez olarak belirlesen zanediyorum sorununu çözersin.
Formunuzda yer alan baba adı isimli metin kutusunun adını txt_babaadi olarak değiştirdim.
Kod:
varmi = DCount("[baba adı]", "tablo1", "[baba adı]= '" & Me.txt_babaadi & "'")
If varmi > 0 Then
MsgBox "Bu kayıt daha önce girilmiş, farklı bir isim yazınız"
Else
'Kaydetme vs. hangi kodları kullanacaksanız
End If
Bu kodu baba adı kutusundan çıkıldığında olayına yazınız. Diğer alanları kontrol ettirmek istiyorsanız aynı anda şu şekilde yapabilirsiniz.
Kod:
varmi = DCount("[baba adı]", "tablo1", "[baba adı]= '" & Me.txt_babaadi & "'")
If varmi > 0 Then
MsgBox "Bu kayıt daha önce girilmiş, farklı bir isim yazınız"
varmi2 =.................
if varmi2>0.............
......
......
Else
'Kaydetme vs. hangi kodları kullanacaksanız
End If
şeklinde iç içe aynı yapıyı tekrar ettireceksiniz diğer iki alan için.
Sayın alpeki99, teşekkür ederim.
AYNI KAYDI GİRME UYARISI 3 KRİTERE GÖRE
Kod:
Private Sub BabaAdi_AfterUpdate(Cancel As Integer)
Dim SD1, SD2, SD3, C As String
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
SD1 = Me.Adi.Value
SD2 = Me.Soyadi.Value
SD3 = Me.BabaAdi.Value
stLinkCriteria1 = "[Adi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Soyadi]=" & "'" & SD2 & "'"
stLinkCriteria3 = "[BabaAdi]=" & "'" & SD3 & "'"
If DCount("*", "Tablo1", "Adi='" & Me.Adi & "' and Soyadi='" & Me.Soyadi & "' and BabaAdi='" & Me.BabaAdi & "'") > 0 Then
C = MsgBox("DİKKAT!...LİSTENİZDE...*" _
& SD1 & " *adında * " _
& SD2 & " * soyadında*" _
& SD3 & " * baba adlı*" _
& SD4 & " KİŞİ GİRİLMİŞ" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbNo Then Undo: Exit Sub
If C = vbYes Then
cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
If cevap <> 6 Then
MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
Undo
ElseIf vbNo Then
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
End If
End If
End If
End Sub