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
![Çözüldü](images/icons/cozuldu.png)
İyiki Varsın Access
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)