+- 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 olayı (/konu-setfocus-olayi.html)
Sayfalar:
1
2
SetFocus olayı - fascioğlu - 30/12/2015
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 Subhepsinde de aynı sorun var en son Hayri beyin Celoyce hocanın örneklerini inceledim,soruma cevap bulamadım.
Saygılarımla.
Cvp: SetFocus olayı - C*e*l*o*y*c*e - 30/12/2015
Me.acl_ODEMETURU.show()
Me.acl_ODEMETURU.SetFocus
Bu sekilde dene ,
Cvp: SetFocus olayı - fascioğlu - 30/12/2015
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
Cvp: SetFocus olayı - atoz112 - 30/12/2015
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 SubCvp: SetFocus olayı - C*e*l*o*y*c*e - 30/12/2015
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
Cvp: SetFocus olayı - fascioğlu - 30/12/2015
Sayın hocalarım,
Örnek ekte.
Saygılarımla