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

malidolu, 12-09-2009 tarihinden beri AccessTr.neT üyesidir.