formda bulunan aktif isimli onay kutusunun güncellenme sonrasında olayına aşağıdaki kodu yazınız.
If Nz(DCount("[Kimlik]", "Tablo1", "[Aktif]=-1"), 0) = 1 Then
If Nz(DLookup("[Kimlik]", "Tablo1", "[Aktif]=-1"), 0) = Me.Kimlik Then
Exit Sub
Else
Me.Undo
End If
Me.Undo
MsgBox ("2. seçim yapılamaz")
End If