Skip to main content

AccessTr.neT


Mükerrer Giriş İçin Yardım..

Mükerrer Giriş İçin Yardım..

Çözüldü #1
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..
.mdb deneme.mdb (Dosya Boyutu: 188 KB | İndirme Sayısı: 38)
Cevapla
Çözüldü #2
Bahsettiğin bu üç alanın birleşiminden oluşan bie alan tanımlasan ve bunun yenilenmez olarak belirlesen zanediyorum sorununu çözersin.
Cevapla
Çözüldü #3
(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.

Cevapla
Çözüldü #4
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
Sayın alpeki99, teşekkür ederim.
Cevapla
Çözüldü #6
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

Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task