Text Get Focus

[blueraincoat]

Hi All, I made a form based on a query.After the form is opened, if there's no data displayed in the form, I want a text get focus and let user enter the part number which they want to view. I wrote a little code, but it did not work. I don't know what's wrong about it. Could someone help?
Failed to upload the db I attached a picture of the form in design mode.

Private Sub Form_Activate()
If IsNull(Me.txtPartNumber) Then
Me.txtText15.SetFocus
End If
End Sub

[ansentry]

Have a look at my attached sample. You will see that I have put my code behind "OnCurrent".

On my forms I put a command button, name it cmdDud and then make it transparent. I set focus to it when I don't want to display a cursor.

In this case if the partnumber is "null" then the focus will go to it but if it is "NotNull" it will go to cmdDud and the user will not see it.

Hope this helps...

[blueraincoat]

Thank you for reply,ansentry.
I found what's wrong.

Private Sub Form_Activate()
If IsNull(Me.txtPartNumber) Then
Me.txtText15.SetFocus
End If
End Sub

When the code is like above, it will give a error message saying "Method or data member not found". I didn't see this last night because i run it in my WIN7 laptop.
This moring in the office, i changed it as below

Private Sub Form_Activate()
If IsNull(Me.PartNumber) Then
Me.Text15.SetFocus
End If
End Sub

Everything is OK now. Shouldn't it be Me.txtPartNumber? I got this idea when i read a book by Alison Balter.

[ansentry]

Your correct I missed the first Me.

If IsNull(Me.txtPartNumber) Then
    Me.txtPartNumber.SetFocus
Else
    Me.cmdDud.SetFocus ' this is a tranparent command button on the form.
End If

End Sub

Why do you use Private Sub Form_Activate() instead of Private Sub Form_Current()

[blueraincoat]

the sequence of event when a form is open: open load resize activate current, so i put it in an activate event, but i think it would also be fine using the current event