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

İyiki Varsın Access
