[ tab ] ile ilerken sıradaki bir textbox u atlama

[geren36]

İyi akşamlar,

bir userfom um var ve üzerinde frame' ler onların içinde de combobox, textbox ve checkbox lar var. Bu userform un üzerinde is bir de tarih textbox u mevcut

bu tarih textbox' una tarihi "dd.mm.yyyy" formatında yazmazsanız, yaptığınız değişiklik "dd.mm.yyyy" ile değiştiriliyor ve exit sub ile macro sona eriyor.

Ancak imleç, yine de sırada bulunan combobox un üzerine gidiyor.

Bu durumda iki sorum olacak :

1 - tarih istenildiği gibi girilmezse imleç sıradaki combobox a gitmesin, tarih textbox' un üzerinde kalsın ve [ dd.mm.yyyy ] ifadesini komple seçsin ki bir defada girişi tekrar deneyebilelim.

2 - Tab tuşuna basıldığında imleç, Userfomda göreceğiniz [ atla ] textboxlarına ve checkbox' lara hiç uğramadan sıradaki diğer textbox' un üzerine gitsin.

çalışma kitabı ektedir.

yardımcı olacaklara şimdiden teşekkürler...

 

[Recep İpek]

1.sorunuz için aşağıdaki kodları Textbox'ın Exit olayına yazınız.

Private Sub TextBox416_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
    Cancel = Not IsDate(TextBox416.Value)
    If Cancel = True And TextBox416.Value <> "" Then
    MsgBox "tarihi, dd.mm.yyyy formatinda girin"
    With TextBox416
        .SelStart = 0
        .SelLength = Len(.Text)
        .SetFocus
    End With
    End If
End Sub

 

[geren36]

teşekkürler ripek,

ancak imleç, sıradaki combobox a gitmemekle beraber, tarih textboxu na da gitmiyor.

yeni veri girmem için mouse ile tıklamam gerekiyor... :???:

 

[Recep İpek]

Bende gayet güzel çalışıyor.Textbox adı farklı olabilir mi?

 

[Korhan Ayhan]

Selamlar,

2. sorunuz için kod editörünü açın. Formunuzda Tab tuşu ile gezerken uğramak istemediğiniz kutucukları seçip Özellikler (Properties) penceresinden TabStop özelliğini FALSE yaparsanız istediğiniz işlem gerçekleşir.

 

[Skorpiyon]

Sayın geren36,

Benim tavsiyem ise Frame nesneleri yerine Label nesnelerini kullanmanız olacaktır. Zira frame'ler bir grup mantığı güderken, label'lerde böyle bir mantık yoktur.

Tab tuşu ile gitmesini istediğiniz text nesnelerini ise ;
Formunuzun üzerine fare ile sağ tuş yaparak "TAB ORDER" seçeneğinden rahatlıkla ayarlayabilirsiniz.

Saygılarımla...

 

[geren36]

sayın cost_control teşekkürler, işime yaradı.

sayın ripek, üzgünüm ama olmadı. tarihi doğru formatta girmediğimde textbox' ın almasını istediğim hali, ekteki [ .jpeg ] dosyasındaki gibidir.

 

[Recep İpek]

Benim eklediğim dosya da aynen dediğiniz gibi işlem yapıyor.

Siz hatalı gösteren dosyanızı tekrar ekleyebilirmisiniz?

 

[Korhan Ayhan]

Selamlar,

Sn. ripek beyin size önerdiği kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub TextBox416_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    Cancel = True
    If IsDate(TextBox416.Value) = False And TextBox416.Value <> "" Then
    MsgBox "tarihi, dd.mm.yyyy formatinda girin"
    With TextBox416
        .SelStart = 0
        .SelLength = Len(.Text)
        .SetFocus
    End With
    Else
    Cancel = False
    TextBox416 = Format(TextBox416, "dd.mm.yyyy")
    End If
End Sub

 

[geren36]

üzgünüm arkadaşlar, beceremedim. :bad:

herhalde userformun ya da diğer nesnelerin bir yerlerindeki ayarlarım eksik ya da yanlış.. onları bir araştırayım..

zaman ve emek harcadığınız için teşekkür ederim.

iyi geceler..

 

[geren36]

Şöyle çözdüm olayı arkadaşlar.yardımlarınız için tekrar teşekkürler.. :icelim:

Private Sub TextBox416_AfterUpdate()
If IsDate(TextBox416) <> True Then
MsgBox "tarihi, dd.mm.yyyy formatinda girin"
TextBox416.Text = "dd.mm.yyyy"
SendKeys ("+{TAB}"), 0
Exit Sub
End If
End Sub