(05/12/2014, 18:00)boolean_ yazdı: Sayın access06,

Formunuzun içindeki GELDIGI_YER alanının güncelleştirme öncesine aşağıdaki kodu eklerseniz istediğiniz işlem olacaktır.

Dim SID As String



Dim stLinkCriteria As String

SID = Me.[GELDIGI_YER].Value

stLinkCriteria = "[GELDIGI_YER]=" & "'" & SID & "'"

If DCount("[GELDIGI_YER]", "evrakkayit", stLinkCriteria) > 0 Then

Me.Undo

MsgBox "Girmekte Oldugunuz " _

& SID & " Kayıt Daha Önce İşlenmiş." _

& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _

, "Mükerrer Kayıt"



End If

Set rsc = Nothing

İlginize çok Teşekkür ediyorum, ama KAYIT_NO alanından çıkıldığında ya da güncellendiğinde bu denetimi yapmasını istiyorum. GELDIGI_YER alanının güncelleştirme öncesine yazdığım zaman hiç bir tepki vermiyor, mükerrer kayıt hatası vermiyor.

bu kodu KAYIT_NO alanına uyguladığım zaman ise, ölçüt ifadesinde veri türü uyuşmazlığı veriyor ve Debug dediğimde ise vb kod sayfasında

If DCount("[KAYIT_NO]", "evrakkayit", stLinkCriteria) > 0 Then

satırına gidiyor.

çözüm olmadı.  ((