Mükerrer Kayıt

[fkanuni]

Ehliyet Kayıt adı altında bir form oluşturdum. Burada Kişi adı ve T.C. Kimlik nosu bölümüne yeni kayıt girildiğinde yaptığım sorguya gidip eğer ehliyet faal se aynı kişinin Kişi adı ve T.C. Kimlik nosu kaydına izin vermemesini istiyorum. bunu nasıl yapabilirim. şimdiden teşekkürler.

 

[simendifer]

mükerrer kayıt

arkadaşlar mükerrer kayıt ile ilgili kod lazımsa kalın yazılı olan yerleri kendi formunuza göre düzeltip uyarlayın

olay>güncelleştirme öncesi>kod oluştur açılan yere aşağıdakileri uyarlayın

adı soyadı olan yer mükerrer kayıt kontrol edilmesi gereken yer giriş ise forumun ismi

kolay gelsin

Alıntı:
Private Sub adısoyadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[adısoyadı].Value
stLinkCriteria = "[adısoyadı]=" & "'" & SID & "'"
If DCount("[adısoyadı]", "giriş", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"

End If
End Sub
Formdan alıntıdır yapanın eline sağlık

Aslında siz örnek programınızı ekleseniz daha net cevap ve sorununuz halladebilirdik

 

[fkanuni]

Arkadaşlar örnek formu ekledim. Bide Düzeltme yapayım. Yeni kayıt yaparken Kişi adı, T.C. Kimlik Nosu tutan ve ehliyeti faal olan kişinin kaydına zizn verilmesin istiyorum. Eğer ehliyet faal değilse kayda izin verilebilir. teşekkürler.

 

[simendifer]

(Ehliyet Kayıt.accdb) dosyanız hangi programda yaptınız anlayamadım access degil

 

[beab05]

(Ehliyet Kayıt.accdb) dosyanız hangi programda yaptınız anlayamadım access degil

Access 2007'dir kendileri

 

[fkanuni]

Access 2007'dir kendileri

evet access 2007. Şimdi ekte 2002-2003 olarakta gönderdim. ilginize teşekkürler

 

[fkanuni]

yardım edecek kimse yokmu ??? Lütfen bi el atın