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.
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.