Gotocontrol error 1

[byfr7]

I tried to show the Activity Name auto when I select the Category Name(Party,Conference, other...) from my combo box and this part works good. However, after selecting the Category name, I would like it auto point the next place where to enter the data. I use GoToControl function but it didn't work. I really don't know what is wrong with my code, please help!!!

Below is the code I use:
-----------------------------------------------

Private Sub ActivityDetailID_AfterUpdate()
On Error GoTo ActivityDetailID_AfterUpdate_Err

Forms!Activity!ActivityName = DLookup("[ActivityName]", "ActivityDetail", "[ActivityDetailID] = " & Forms!Activity!ActivityDetailID)
If (ActivityDetailID = "Party") Then
DoCmd.GoToControl "PartyType"
End If
If (ActivityDetailID = "Conference") Then
DoCmd.GoToControl "ConferenceDate"
End If
If (ActivityDetailID = "Others") Then
DoCmd.GoToControl "Momo"
End If

ActivityDetailID_AfterUpdate_Exit:
Exit Sub
---------------------------------------------------------

Thanks,
byfr

 

[PHV]

Have you tried the SetFocus method ?

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[byfr7]

Thanks PHV, I tried what you suggested but still didn't work properly!!!

 

[PHV]

Are PartyType, ConferenceDate and Momo controls in the same form as ActivityDetailID ?

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[byfr7]

Yes, they are all in the same form as ActivityDetailID.

 

[Edski]

You're missing the Error Label for a start