Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

derebeyi
derebeyi
Access Cevaplanmış Soruları
12
6906

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

Çözüldü #1
derebeyi
Aktif Üye
derebeyi
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 47
Konum: Samsun
Ofis Versiyonu: Ofis 2007
Son Oturumu: 20/06/2022,11:03
Yorumları: 170
Konuları: 55
Kayıt Tarihi: 06/11/2008
Teşekkür Puanı: 0
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
Entepli
Üye
Entepli
Bul
Üye
Adı Soyadı:
Yaşı: 58
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 02/04/2011,14:55
Yorumları: 36
Konuları: 4
Kayıt Tarihi: 29/04/2009
Teşekkür Puanı: 10
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
derebeyi
Aktif Üye
derebeyi
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 47
Konum: Samsun
Ofis Versiyonu: Ofis 2007
Son Oturumu: 20/06/2022,11:03
Yorumları: 170
Konuları: 55
Kayıt Tarihi: 06/11/2008
Teşekkür Puanı: 0
(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
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
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
derebeyi
Aktif Üye
derebeyi
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 47
Konum: Samsun
Ofis Versiyonu: Ofis 2007
Son Oturumu: 20/06/2022,11:03
Yorumları: 170
Konuları: 55
Kayıt Tarihi: 06/11/2008
Teşekkür Puanı: 0
Sayın alpeki99, teşekkür ederim.
Cevapla
Çözüldü #6
Puletin
Onursal Üye
Puletin
Bul
Onursal Üye
Adı Soyadı:
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 24/12/2016,00:18
Yorumları: 1.717
Konuları: 40
Kayıt Tarihi: 01/11/2008
Teşekkür Puanı: 416
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