Skip to main content

AccessTr.neT


SetFocus olayı

SetFocus olayı

Çözüldü #1
Sayın Hocalarım,

Yapmış olduğum çalışmada acl_ODEMETURU açılan kutudan işlem seçmeden diğer bir alana atlamaması ve ODEMETUR'unun seçilmesinin zorunlu kılmak için;
Kod:
Private Sub acl_ODEMETURU_Exit(Cancel As Integer)
MsgBox "Lütfen Ödeme Türünü Seçiniz"
Me.acl_ODEMETURU.SetFocus
End Sub

acl_ODEMETURU alanının çıkıldığında olayına yukarıdaki kodu ekledim.Ancak veri girlmeden tab veya Enter ile çıkıldığında Uyarı msj.almama rağmen ODEMETURU alanına geri focuslamıyor diğer bir alana geçiyor,sitedeki bir çok örneği inceledim
hepsinde de aynı sorun var en son Hayri beyin Celoyce hocanın örneklerini inceledim,soruma cevap bulamadım.
Saygılarımla.
Cevapla
#2
Me.acl_ODEMETURU.show()
Me.acl_ODEMETURU.SetFocus

Bu sekilde dene ,
Cevapla
#3
Sayın Celoyce hocam
Me.acl_ODEMETURU.show() bu kod kırmızı renkte hata veriyor,bu kodun eksiğimi var yoksa benim yazdığım kod içerisindemi yer alacak.Belirtirseniz sevinirim
Saygılarımla
Cevapla
#4
sayın fascioglu,

bahsettiğiniz talebinize yönelik olarak;
aşağıdaki kod ifadelerini deneyebilirsiniz.

Kod:
Private Sub acl_ODEMETURU_Exit(Cancel As Integer)
If IsNull(Me.acl_ODEMETURU) Or Me.acl_ODEMETURU = "" Then
MsgBox "Lütfen Ödeme Türünü Seçiniz"
'acl_ODEMETURU öncesinde bir başka denetime odaklanıp sonra asıl denetime geçilmesi uygun olur
Me.id_denetim_adi.SetFocus
Me.acl_ODEMETURU.SetFocus
Exit Sub
Else
End If
End Sub

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
Private Sub acl_ODEMETURU_Exit(Cancel As Integer)
If Me.acl_ODEMETURU="" THEN
Me. ----- (BURDA BAŞKA BİR ALANNI YAZ).SetFocus
MsgBox "Lütfen Ödeme Türünü Seçiniz"
Me.acl_ODEMETURU.SetFocus
End Sub

böyle deneyin birde


aslında örneğini eklesen daha çabuk sonuç alırsın,böyle farazi oluyor
Cevapla
#6
Sayın hocalarım,
Örnek ekte.
Saygılarımla
.rar FA.TEKNİK SERVİS -Son - Kopya.rar (Dosya Boyutu: 327,15 KB | İndirme Sayısı: 1)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task