mükerre kayıt hakkında

1 2
30/01/2013, 11:45

hegu

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.
30/01/2013, 12:26

metehan16

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
30/01/2013, 13:25

C*e*l*o*y*c*e

inceleyin lütfen
30/01/2013, 13:59

hegu

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.
06/02/2013, 22:55

fatih karagöl

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
15/02/2013, 17:03

fatih karagöl

sn Hegu sıra numarasının artması konusu haricinde örneğinizi düzenledim.
istediğinizi anlamamışsam beni yönlendirin lütfen.
1 2