metin kutusunda denetleme

Yardımlarınız için teşekkürler.
Sanırım tam olarak anlatamadım sorunu.
Yeni bir kayıt yapıldığında eğer bu kayıt var ise mesaj verip bu kaydın olduğunu işleme devam edilip edilmemesini sormasını cevap hayır ise kaydı yapmamasını istiyorum.Yukarıdaki kod mesaj veriyor fakat,forumdan çıkıldığında yinede tabloya kayıt yapıyor...

kodu güncelleme öncesindeye yazın ve en sonunda

undo

kullanın..

Arkadaşlar kodu aşağıdaki şekilde değiştirdim .
Private Sub FirstName_BeforeUpdate(Cancel As Integer)
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("select * From model_cesıt where HesapNumarası='" & Me.HesapNumarası & "'")
If rst.RecordCount >= 1 Then
MsgBox "GİRİLEN KOD NUMARASI DAHA ÖNCE KULLANILMIŞ !!!!"
Me.FirstName.Undo
End If
End Sub
Fakat o kodla tabloya kayıt yapmaya devam ediyor ...Saygılar

Bazı şeyleri çok bilmek ve abartmak iyi değil işte..


Böyle deneyin. Ben denedim çünkü..

Teşekkürler
Bizimki bilgisizlikten,yardımınız için teşekkürler.Allah razı olsun