Condividi:        

texbox e setfocus

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

texbox e setfocus

Postdi piter123 » 26/06/08 12:21

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
piter123
Utente Senior
 
Post: 190
Iscritto il: 07/11/07 18:31

Sponsor
 

Re: texbox e setfocus

Postdi Anthony47 » 26/06/08 17:59

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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: texbox e setfocus

Postdi piter123 » 26/06/08 19:00

ancora mille grazie, sei un grande
piter123
Utente Senior
 
Post: 190
Iscritto il: 07/11/07 18:31


Torna a Applicazioni Office Windows


Topic correlati a "texbox e setfocus":


Chi c’è in linea

Visitano il forum: Nessuno e 54 ospiti