texbox e setfocus

[piter123]

Salve, devo inserire dei dati iun una text box, solo che se il valore è <0 o maggiore di 30 parte una form che visualizza una scritta che spiega l'errore e alla sua chiusura si riposiziona all'interno della textbox per cambiare il valore e inserirlo correto.
Ho scritto il seguente codice ma non mi ritorna nella texbox, dove sbaglio ?

Private Sub TextBox4_AfterUpdate()
If TextBox4.Text < 0 Or TextBox4.Text > 30 Then
SETTAGGI_ERR1.Show
TextBox4.SetFocus
End If
End Sub

[Anthony47]

Ho letto anche io di problemi col setfocus, che funziona a ...giorni alterni.
Suggerisco di aggirare l' ostacolo:
-invece dell' istruzione SetFocus metti queste:

Codice: Seleziona tutto

TextBox4.Value = ""
For Each CContr In Me.Controls
If CContr.Name <> "TextBox4" Then CContr.Enabled = False
Next CContr

Poi aggiungi questa

Codice: Seleziona tutto

Private Sub TextBox4_Enter()
    For Each CContr In Me.Controls
    CContr.Enabled = True
    Next CContr
End Sub

In pratica, in caso di errore TextBox4 viene azzerata e tutti gli altri controlli sono disabilitati, quindi puoi solo tornare su TextBox4; ma appena ci rientri riabiliti tutto, quindi nemmeno te ne accorgi.

Ciao.

[piter123]

ancora mille grazie, sei un grande