After Update event doesn't work

[AlexanderBB]

Private Sub cmdPrimary_Click()
    txtPrimary.text = GetFolder("Select the Primary Folder")
End Sub

Private Sub txtPrimary_AfterUpdate()
Stop
End Sub

The GetFolder function returns a value which txtPrimary displays.
It isn't assigned a value until then but the After Update event doesn't fire.
Unless I type something into the text box. Is that how it's supposed to be ?

 

[AlexanderBB]

I made it work with

Private Sub cmdPrimary_Click()
    txtPrimary.text = GetFolder("Select the Primary Folder")
    txtPrimary_AfterUpdate
End Sub

Isn't that plain crazy ?

 

[John_w]

Try:

Private Sub cmdPrimary_Click()
    txtPrimary.Text = GetFolder("Select the Primary Folder")
    txtPrimary.SetFocus
End Sub