hello I have an textbox "nume" and I like to be focuse, the cursour to stay there till something will fill the textbox:
I put this code but it is not working:
Code:Private Sub nume_AfterUpdate() If IsNull(Len(Me.nume)) Then Me!nume.SetFocus 'this part it is not working Else Me.Dirty = False DoEvents Me!List36.RowSource = Me!List36.RowSource ReadOnly_Click Me.List36.Selected(Me.List36.ListCount - 1) = True Me![nume] = Me![nume] End If End Sub