Harf metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarsanız, aynı harf daha önceden girilmiş ise düzeltmeniz konusunda uyarır ve butonu tekrar kilitler

Dim VarMi As String





VarMi = Nz(DLookup("Kimlik", "Tablo1", "[harf]='" & Me.harf & "'"), 0)



If VarMi <> 0 Then

    Komut12.Enabled = False

    MsgBox ("girdiğiniz" & Me.harf & " daha önce girilmiş, lütfen düzeltiniz")

    Me.sayı.SetFocus

    Me.harf.SetFocus

Else

    Komut12.Enabled = True

End If

koda ekleme yaparak diger butonlarda da kontrol sağlayabilirsiniz.