aşağıdaki kodu firstname(senin hesapnumarası değeri girdiğin alan) alanının güncelleştinme olayına yapıştır.

Private Sub FirstName_AfterUpdate()
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("select * From model_cesıt where HesapNumarası='" & Me.HesapNumarası & "'")
If rst.RecordCount => 1 Then
MsgBox "girdiğiniz kod numarası daha önce girilmiş"
Me.FirstName.SetFocus
End If

End Sub