AccessTr.neT

Tam Versiyon: Mükerrer Giriş İçin Yardım..
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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.
(11/11/2009, 00:09)Entepli yazdı: [ -> ]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
Sayfalar: 1 2 3