
Kod:
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Ş !!!!"
Undo
End If
End Sub