Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
11/11/2009 00:04
Konu Sahibi
derebeyi
Yorumlar
12
Okunma
4553
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

derebeyi

Aktif Üye
 41
 158
 50
 06/11/2008
0
 Samsun
 
 Ofis 2007
 16/11/2018,16:50
Çözüldü 
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)

Kullanici Avatari

Entepli

Üye
 52
 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.

Kullanici Avatari

derebeyi

Aktif Üye
 41
 158
 50
 06/11/2008
0
 Samsun
 
 Ofis 2007
 16/11/2018,16:50
Çözüldü 
(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.



Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/11/2018,10:13
Çö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.

Kullanici Avatari

derebeyi

Aktif Üye
 41
 158
 50
 06/11/2008
0
 Samsun
 
 Ofis 2007
 16/11/2018,16:50
Çözüldü 
Sayın alpeki99, teşekkür ederim.



Kullanici Avatari

Puletin

Onursal Üye
 Belirtilmemiş
 1.717
 40
 01/11/2008
416
 -
 
 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...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kiracı Takip Programı Hk Yardım. turkayemre 2 82 06/12/2018, 11:06
Son Yorum: turkayemre
Çözüldü Raporu Önizleme İçin Yazılacak Vba Kodu Nedir. Oğuz Türkyılmaz 2 70 15/11/2018, 17:15
Son Yorum: Oğuz Türkyılmaz
Çözüldü Barkod Okuyucu El Terminali Kullanımı Hakkında Yardım? pelitt 4 224 08/11/2018, 11:29
Son Yorum: A.Kadir.
Çözüldü Sorguların Son 10 Kayıt İçin Çalışması ertans 6 231 27/09/2018, 12:51
Son Yorum: ertans
Çözüldü Formdan Girilen Kaydın Aynı Form'dan Sadece O Kayıt İçin Rapor Çıktısı Alamıyorum. Oğuz Türkyılmaz 9 361 20/09/2018, 18:26
Son Yorum: Oğuz Türkyılmaz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444