Last focus, yes last, not LOST

[rs2k]

I have built a form for time sheet entry and part of this form has a custom time-picker, the user clicks a button for the hour and then a button for the minute, this is then combined into a textbox. There are 2 buttons 'confirm' and 'cancel' when confirm is clicked I need to send the time to the last textbox (time entry) that had focus. I thought of conditional formatting the textbox where I want the time to go to, but as soon as a time is picked the focus has changed.

Is there a way around this?

Many thanks
Colin

 

[shg]

In the Enter event for the textboxes of interest, you can save the control to a variable:

Dim oTB As MSForms.TextBox

Private Sub TextBox1_Enter()
    Set oTB = TextBox1
End Sub

Private Sub TextBox2_Enter()
    Set oTB = TextBox2
End Sub

 

[rs2k]

Hi shg,

Thanks for the reply, however I can't get it to work. I forgot to mention that the textboxes where the time entry goes is on a continuous subform.

I put the dim statement at the top of the continuous form,which didn't work. I then tried to reference the subform with;

Dim oTB As MSForms.Forms.EmpTimeEntry2.fsubTEMP_HOURS2.TextBox

Which also didn't work.

Can you shed any light or explain in a bit more detail how to go about this?

Cheers
Colin

 

[shg]

Oh, here I am lost again -- I didn't realize this was the Excess forum, which I can't even spell. Sorry for the spam.

 

[rs2k]

No worries, anybody else?

 

[BrianWren]

What if you gathered the time info in a pop-up?
You could open it with a double-click in the TBox of interest.
Upon successful time selection, fill in a global variable.
Look for an event on the TBox that fires on closing the pop-up, and use that to read the global variable's value.

I am thinkin focus might not fire, but it might. But there are additional events, I think, that might: enter, activate, etc.

 

[Norie]

Colin

You should be able to use the same method in Access, you'll just need to change how you declare the control(s).

Try just using Object, or perhaps TextBox on it's own, MSForms.Forms.EmpTimeEntry2.fsubTEMP_HOURS2.TextBox definitely won't work.