Buton Aktivasyonu Hakkında

Merhabalar,

Ekli örneğimde çalışan butonları göreceksiniz. bu haliyle gayet kullanışlı. Ancak harf kısmına tekrarlanan bir veri girdiğimde bu alan anahtar alan olduğu için kayıt butonuna bastığımda doğal olarak hata veriyor  ama bu esnada komut12 butonu da aktif oluyor. Komut12 butonunun sadece kayıt gerçekleştiği zaman aktif olmasını istiyorum. Sadece kayıt butonuna basılmış olmasıyla bir aktiflik istemiyorum. Nasıl yapılabilir?.

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.

Merhaba Ozan Bey,

Teşekkürler. Bu ihtiyacımı çözüyor. Peki harf alanı harf değil de bir sayı alanı olursa bu tırnak içine alma durumları nasıl değişiyor? Şu metin alanlarıyla sayı alanlarının tırnak meselelerini çözemedim daha da..

Tablodaki alanın veri türü sayı olursa kriter kısmı aşağıdaki gibi olur.

"[harf]=" & Me.harf

Konu taşınmıştır.

Teşekkürler..