AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

SetFocus olayı

1 2
30/12/2015, 14:33

fascioğlu

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.
30/12/2015, 15:55

C*e*l*o*y*c*e

Me.acl_ODEMETURU.show()
Me.acl_ODEMETURU.SetFocus

Bu sekilde dene ,
30/12/2015, 16:08

fascioğlu

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
30/12/2015, 16:29

atoz112

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.
30/12/2015, 16:30

C*e*l*o*y*c*e

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
30/12/2015, 16:54

fascioğlu

Sayın hocalarım,
Örnek ekte.
Saygılarımla
1 2