+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: mükerre kayıt hakkında (/konu-mukerre-kayit-hakkinda.html)
Sayfalar:
1
2
mükerre kayıt hakkında - hegu - 30/01/2013
Ekte örneğini koyduğum uygulamada mükerrer kayıtta mesaj olayını buradaki üstadların örneklerine bakarak hallettim. Fakat aynı tc numaralı birini yazınca uyarı veriyor ve diğer alanları kapatıyor. Buraya kadar her şey yolunda ama uygulamadan çık deyip tekrar girince boş bir kişi gibi kayıt yapıyor. Bunu nasıl engelleyebiliriz. Birde aynı kayıttan var uyarısı gelince o kayıdı nasıl çağırabiliriz.Aynı uygulama üstünde.
Teşekkür ederim.
Cvp: mükerre kayıt hakkında - metehan16 - 30/01/2013
benzer bir problem bende yaşadım alltaki linte konu açtım çözümünü bende merak ediyorum
https://accesstr.net/konu-form-uzerinden-tekrarlayan-kaydi-acma.html
Cvp: mükerre kayıt hakkında - C*e*l*o*y*c*e - 30/01/2013
inceleyin lütfen
Cvp: mükerre kayıt hakkında - hegu - 30/01/2013
Sayın celoyce emeğine sağlık güzel bir uygulama olmuş fakat sıra numarası illaki ilerlemek zorunda mı? acaba Boş kayıt açmıyor ama sıra no devam edip gidiyor. Bir de böyle bir kayıt var dediğinde o kayıtı çağıramazmıyız.
teşekkür ederim.
Cvp: mükerre kayıt hakkında - fatih karagöl - 06/02/2013
sn metehan bu şekilde deneyin
Private Sub TC_AfterUpdate()
Dim tcsor As Long
tcsor = Nz(DLookup("Sira", "Tablo1", "TC= atanan"))
If tcsor <> 0 Then
Cancel = False
MsgBox "Girmekte Oldugunuz " _
& SID & "tc Daha Önce Kaydedilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"
Form.Undo
DoCmd.FindRecord atanan, acStart, True, acSearchAll, , acCurrent, True
Me.Ad.Enabled = False
Me.Do_Ta.Enabled = False
Me.Adres.Enabled = False
Me.Telefon.Enabled = False
Me.SGK.Enabled = False
Me.Veliad.Enabled = False
Else
Me.Ad.Enabled = True
Me.Do_Ta.Enabled = True
Me.Adres.Enabled = True
Me.Telefon.Enabled = True
Me.SGK.Enabled = True
Me.Veliad.Enabled = True
End If
End SubCvp: mükerre kayıt hakkında - fatih karagöl - 15/02/2013
sn Hegu sıra numarasının artması konusu haricinde örneğinizi düzenledim.
istediğinizi anlamamışsam beni yönlendirin lütfen.