Mükerrer Giriş İçin Yardım..
Tarih
11/11/2009 00:04
Konu Sahibi
derebeyi
Yorumlar
12
Okunma
3432
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



derebeyi
Aktif Üye
Kullanici Avatari
Aktif Üye
148
06/11/2008
0
Samsun
Ofis 2007
30/01/2017,21:39
Çözüldü 
Sponsor Reklam
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..


Ek Dosyalar
.mdb   deneme.mdb (Dosya Boyutu: 188 KB / İndirme Sayısı: 38)
Cevapla

Entepli
Üye
Kullanici Avatari
Üye
36
4
29/04/2009
10
İstanbul
Ofis 2007
02/04/2011,14:55
Çözüldü 
Bahsettiğin bu üç alanın birleşiminden oluşan bie alan tanımlasan ve bunun yenilenmez olarak belirlesen zanediyorum sorununu çözersin.
Entepli, 29-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

derebeyi
Aktif Üye
Kullanici Avatari
Aktif Üye
148
06/11/2008
0
Samsun
Ofis 2007
30/01/2017,21:39
Çözüldü 
Sponsor Reklam
(11/11/2009, 00:09)Entepli Adlı Kullanıcıdan Alıntı: Bahsettiğin bu üç alanın birleşiminden oluşan bie alan tanımlasan ve bunun yenilenmez olarak belirlesen zanediyorum sorununu çözersin.


Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.023
29/10/2008
Ordu
Ofis 2013 32 Bit
24/02/2017,14:08
Çözüldü 
Formunuzda yer alan baba adı isimli metin kutusunun adını txt_babaadi olarak değiştirdim.

Kod:
1
2
3
4
5
6
7
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:
1
2
3
4
5
6
7
8
9
10
11
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

derebeyi
Aktif Üye
Kullanici Avatari
Aktif Üye
148
06/11/2008
0
Samsun
Ofis 2007
30/01/2017,21:39
Çözüldü 
Sponsor Reklam
Sayın alpeki99, teşekkür ederim.
Cevapla

Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
24/12/2016,00:18
Çözüldü 
AYNI KAYDI GİRME UYARISI 3 KRİTERE GÖRE

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  ListBox'a Eklenen Veriyi Kontrol Etme ve Mükerrer Engelleme dufrety 13 185 21/02/2017, 10:35 dufrety
  Gelir Giriş formunda Yeni Kayıt dediğimde Açılır Kutudaki Teknik otomatik Gelmesi haziran4 2 42 09/02/2017, 17:53 haziran4
  Subform icin Arama butonu broiling 22 366 07/02/2017, 02:37 broiling
  Kullanıcı Yetkilendirme Konusunda Yardım arasson 8 185 03/02/2017, 11:35 arasson
  giriş maskeli kayıt edilen verinin listekutusunda farklı gözükmesi hknct 10 407 21/01/2017, 21:37 hknct


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya