Setfocus'ta tutabilmek... - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Setfocus'ta tutabilmek... (/konu-setfocus-ta-tutabilmek.html) |
Setfocus'ta tutabilmek... - Hayri16 - 22/12/2009 Değerli arkadaşlar; Programımda alanlarda veri olup olmadığını kontrol ediyorum. Bu kontrol sonucu eğer veri yoksa o metinkutusuna odaklanıp veri girmesini istiyorum. Ben istiyorum ama benim yazdığım kodlara göre Access bunu istemiyor. Kontrolü yapıyor, mesajı veriyor ve sonra hiçbirşey olmamışçasına devam ediyor. Ne yapmam lazım? Kod:
Private Sub recete_denetim() Cvp: Setfocus'ta tutabilmek... - arzuu - 22/12/2009 Private Sub Komut2_Click() Me.Metin0.SetFocus If Metin0.Text = "" Then MsgBox ("lütfen değer giriniz!") End If https://accesstr.net/konu-metinkutusu-bos-olmasin.html?page=2&highlight=setfocus Cvp: Setfocus'ta tutabilmek... - Hayri16 - 22/12/2009 Sayın Arzuu; İlginize çok teşekkür ederim ama maalesef olmadı. Kod:
Private Sub recete_denetim() Cvp: Setfocus'ta tutabilmek... - arzuu - 22/12/2009 sn hayri16 bu örneği deneyin. https://accesstr.net/konu-sartli-kayit-ekleme-hk.html?highlight=setfocus Cvp: Setfocus'ta tutabilmek... - Hayri16 - 22/12/2009 Maalesef bu da olmadı Sayın Arzu; "Denetimin üzerinde bir odak olmadıkça bir denetimin bir özelliğine başvuramaz veya özelliği ayarlayamazsınız" hata mesajını verdi. Şimdi program için örnek dosya hazırlıyorum. Başka soracaklarım da var. Burayaya ekleyeyim. Çok teşekkür ederim. Cvp: Setfocus'ta tutabilmek... - mehmetdemiral - 22/12/2009 Sayın Hayri Örnekteki hangi forumdan bahsettiğinizi de yazsaydınız keşke.. Bu tür problemlerle ilgili birçok yerde hep aynı şeyleri yazıyorum ve iş görüyor. Bir metin kutusunun çıkıldığında olayına veya güncelleme sonrasına yazacağınız "burda kal" komutu iş görmez. Bu nedenle gittiği yere "geri dön" demek daha akıllıcadır. "Metin1.setfocus" olayını hep if şartına bağlarız ama o hiç bizi dinlemez. Aslında dinler de, biz ona derdimizi yanlış anlatırız. Halbuki bu işi metin1'den sonra gidilen mesela metin2'nin girildiğinde olayına yaptırsak hiç sorun olmayacaktır. Metin1'den çıkıp metin2'ye girildiğinde If Metin1.Text = "" Then metin1.setfocus MsgBox ("Lütfen değer giriniz!") End If olsaydı o zaman çalışırdı. Deneyin bakın) |