On Got Focus?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jeff M - 31 Mar 2005 16:00 GMT

I have a form that is used to lookup a specific record in
the underlying table based on user input in the Text1
field. When user input does not match any record on the
table, an error window pops up detailing the error, and is
closed when the user clicks the OK button.

How can I make it so that when the error window closes,
that the tab control automatically goes back to the Text1
field? I have tried to set the On Got Focus property as
follows, but it doesn't work:

Private Sub Form_GotFocus()

DoCmd.GoToControl , "[Text1]"

End Sub

Reply to this Message

Ken Snell [MVP] - 31 Mar 2005 17:30 GMT

A form does not get focus unless there is no control on the form that can
receive the focus. Thus, based on your description, it would appear that the
code never runs because the form doesn't get focus.

Post all the code that you're using to pop up the error message. We should
be able to add some code there to accomplish your purpose.

Signature

Ken Snell
<MS ACCESS MVP>

>I have a form that is used to lookup a specific record in
> the underlying table based on user input in the Text1
[quoted text clipped - 12 lines]
>
> End Sub

Reply to this Message

Jeff M - 31 Mar 2005 18:03 GMT

Ken,
Here is the code that initiates the Error Message
Form "IDDoesNotExist":

Private Sub FindCustID_Click()
On Error GoTo Err_FindCustID_Click

Dim stDocName As String
Dim count As Variant
Dim stLinkCriteria As String

stDocName = "CustDetailsTableInputFormUPDATE"
count = DCount("[CUST ID]", "CustDetailsTable", "[CUST
ID]=" & Me![Text1])
stLinkCriteria = "[CUST ID]=" & Me![Text1]

If count = 1 Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Maximize
DoCmd.Close acForm, "Switchboard"
DoCmd.Close acForm, "FindCustID"
ElseIf count = 0 Then
DoCmd.OpenForm "IDDoesNotExist"
End If

Exit_FindCustID_Click:
Exit Sub

Err_FindCustID_Click:
MsgBox Err.Description
Resume Exit_FindCustID_Click

End Sub

Here is the code for the Error Message
Form "IDDoesNotExist":

Private Sub OK_Click()
On Error GoTo Err_OK_Click

DoCmd.Close

Exit_OK_Click:
Exit Sub

Err_OK_Click:
MsgBox Err.Description
Resume Exit_OK_Click

End Sub

Thanks!!!
Jeff M

>-----Original Message-----
>A form does not get focus unless there is no control on the form that can
[quoted text clipped - 22 lines]
>
>.

Reply to this Message

Ken Snell [MVP] - 31 Mar 2005 19:29 GMT

Just need an extra step in the If block to reset the focus to the textbox:

If count = 1 Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Maximize
DoCmd.Close acForm, "Switchboard"
DoCmd.Close acForm, "FindCustID"
ElseIf count = 0 Then
DoCmd.OpenForm "IDDoesNotExist"
Me.Text1.SetFocus
End If

Signature

Ken Snell
<MS ACCESS MVP>

> Ken,
> Here is the code that initiates the Error Message
[quoted text clipped - 83 lines]
>>
>>.

Reply to this Message