AccessTr.neT

Tam Versiyon: mükerre kayıt hakkında
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
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...-acma.html
inceleyin lütfen
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.
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 Sub
sn Hegu sıra numarasının artması konusu haricinde örneğinizi düzenledim.
istediğinizi anlamamışsam beni yönlendirin lütfen.
Sayfalar: 1 2