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.