Buton Aktivasyonu Hakkında

11/03/2016, 17:18

notrino

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?.
12/03/2016, 05:09

ozanakkaya

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.
13/03/2016, 20:38

notrino

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..
13/03/2016, 20:46

ozanakkaya

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

"[harf]=" & Me.harf

Konu taşınmıştır.
13/03/2016, 20:59

notrino

Teşekkürler..