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

Derecelendirme: 0/5 - 0 oy



derebeyi
Aktif Üye
Kullanici Avatari
Aktif Üye
152
06/11/2008
0
Samsun
Ofis 2007
02/08/2016,13:18
Çö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ı: 37)
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
152
06/11/2008
0
Samsun
Ofis 2007
02/08/2016,13:18
Çö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
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.993
29/10/2008
Ordu
Ofis 2013 32 Bit
Dün,22:59
Çö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
152
06/11/2008
0
Samsun
Ofis 2007
02/08/2016,13:18
Çözüldü 
Sayın alpeki99, teşekkür ederim.
Cevapla


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çö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
  Tabloda ileriki hesaplamalar için kullanılmak üzere seçim yaptırmak nightashes 6 128 02/12/2016, 20:52 atoz112
  Mükerrer Kayıt Hk. Serkan Çevik 2 79 01/12/2016, 22:37 Serkan Çevik
  iş planı için termin tarihi belirleme brsknm 4 186 26/11/2016, 01:10 brsknm
  koşullu giriş maskesi ve toplama çıkarma maras321 4 116 09/11/2016, 12:31 maras321
  Evrak Kayıt uygulaması için nasıl bir yol izlemeliyim talebe10 7 231 06/11/2016, 13:57 atoz112


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