SetFocus sorunu

[macay]

Sayın Üstadlar,
Aşağıda siteden aldığım bir kod var, yapmasını istediğim işlem, "txtmik12" textbox ta fark 0 (Sıfır) olunca doğrudan "txtcalsure" textbox a gitmesi. fakat fark 0 olunca bile o textboxa geçiş yapmıyor nerede hata yapıyorum.

Saygılarımla,

Private Sub TxtMik11_Change() 'fark hesaplaması
TxtMik12 = Val(TxtUrMik.Value) - Val(TxtMik11.Value)
End Sub


Private Sub TxtMik12_Change() 'eğer fark 0 ise doğrudan çalışma saatine gitsin
If TxtMik12.Value = 0 Then
MsgBox "....."
TxtCalSure.SetFocus
Exit Sub
End If

End Sub

 

[İhsan Tank]

Dosya ekler misiniz_?

 

[macay]

Dosya ekler misiniz_?

İhsan Üstad, Aşağıdaki şekilde hallettim ama halen aşağıda belirttiğim sorularım var
1- Txtcalsure için oraya değer vermez isem yine olmuyor, yani kürsör orada kalmıyor
2-Comboboxlar için koyduğum kısıtlamadan dolayı seçimlerden sonra ancak tab tuşu ile ilerleyebiliyorum, bunu enter tuşu ile yapabilirmiyiz
3-txtcalsure kutucuğuna değer girdikten sonra fire kutucuğuna setfocus yapmak mümkünmüdür

dosya ektedir

Saygılarımla,

Private Sub TxtMik12_Change() 'eğer fark 0 ise doğrudan çalışma saatine gitsin
If Me.TxtMik12.Value = 0 Then
MsgBox " ......."
Me.TxtCalSure.SetFocus
TxtCalSure = 12
Cancel = True
Exit Sub
End If
End Sub