Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
11/11/2009 00:04
Konu Sahibi
derebeyi
Yorumlar
12
Okunma
4032
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ü 
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ü 
(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

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19: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ü 
Sayın alpeki99, teşekkür ederim.


Cevapla

Puletin


Kullanici Avatari
Altın Üye
1.715
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...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Yardım : Tablodaki Bir Verinin Combobox İle Secilerek Tutarının Gösterilmesi orba 2 85 18/09/2017, 04:55 orba
Çözüldü IT Envanter programı için ön çalışma mengok 4 2.325 12/09/2017, 15:01 team_quash
Çözüldü Envanter - Demirbaş Kayıt Programı [Bilgi İşlem Departmanı İçin] zlatan.ibo 3 2.390 09/09/2017, 14:34 anlezgn
Çözüldü Sürekli Formda Kayıt Girdisi Üstte Olması Yardım... bilservisci 13 363 28/08/2017, 01:42 bilservisci
Çözüldü Giriş Yaparken Tabloda Tanımlı İse Kaydetsin barcins 8 545 12/05/2017, 10:14 barcins

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.