Setfocus on textbox

nathan · Sep 13th 2005

I am having trouble with the setfocus command and I have done a bit of searching and it appears I am not alone but with my very limited knowledge of vba I cannot seem to work it out.

I have managed to get the following code (with help) but the setfocus in the Private Sub cmdnextski_Enter() is not working and after pressing enter a different button is selected on the form.

basically the form asks for a number and when enter is pressed I want the number and time to be written to the sheet. works fine using the click sub but not the enter sub.

here is the code

---------------------

Code

Private Sub cmdnextski_click()
        ActiveCell.FormulaR1C1 = Format(Time, "Long Time")
            
        Range(Cells(Application.ActiveCell.Row, _
            Application.ActiveCell.Column + 1), Cells(Application.ActiveCell.Row, _
            Application.ActiveCell.Column + 1)).Activate
        ActiveCell.FormulaR1C1 = txtskinumber
        
        Range(Cells(Application.ActiveCell.Row + 1, _
            Application.ActiveCell.Column - 1), Cells(Application.ActiveCell.Row + 1, _
            Application.ActiveCell.Column - 1)).Activate
               
    txtskinumber.Value = ""
    timingform.txtskinumber.SetFocus
    
    
End Sub


Private Sub cmdnextski_Enter()


        ActiveCell.FormulaR1C1 = Format(Time, "Long Time")
        
        Range(Cells(Application.ActiveCell.Row, _
            Application.ActiveCell.Column + 1), Cells(Application.ActiveCell.Row, _
            Application.ActiveCell.Column + 1)).Activate
        ActiveCell.FormulaR1C1 = txtskinumber
        
        Range(Cells(Application.ActiveCell.Row + 1, _
            Application.ActiveCell.Column - 1), Cells(Application.ActiveCell.Row + 1, _
            Application.ActiveCell.Column - 1)).Activate
        
    txtskinumber.Text = ""
    timingform.txtskinumber.SetFocus


End Sub

Display More

----------------------------------

Thanks in advance
Nathan

Dave Hawley · Sep 13th 2005

Re: Setfocus on textbox

Hi Nathan

Welcome to ozgrid

Please use the code tags when posting code.This is one of the rules you agreed to when joining.

I have added them for you this time. Please understand that future failure to comply with forum rules could see your posts deleted.

pangolin · Sep 13th 2005

Re: Setfocus on textbox

Hi nathan

the set focus is usually of the syntax

Code

userform.textbox.setfocus

where

userfrom and textbox are the names given by you

check out your syntax

HTH

pangolin

Dave Hawley · Sep 13th 2005

Re: Setfocus on textbox

In regards to your question, the Enter Event of any Control Object occurs before a control actually receives the focus from a control on the same form. Exit occurs immediately before a control loses the focus to another control on the same form.

See the example below, which should help.

Code

Dim bCancel As Boolean


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = bCancel
    bCancel = False
End Sub


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
                                     ByVal Shift As Integer)
    If KeyCode = 13 Then
        bCancel = True
        Sheet1.Range("A65536").End(xlUp).Offset(1, 0) = TextBox1
        TextBox1 = vbNullString
    End If
End Sub

Display More

nathan · Sep 13th 2005

Re: Setfocus on textbox

Dave

Sorry about the code tags :oops:

But thank you VERY MUCH for the solution YAY works like a charm

:dance:

it is just a simple project to help the scorers at the jetski racing.. they will be VERY happy now..

Thanks heaps

Setfocus on textbox

Participate now!

Share