› Excel e gli applicativi Microsoft Office › Messaggio "Errore" se campo vuoto in UserForm
-
AutoreArticoli
-
Buongiorno a tutti,
chiedo un vostro gentile aiuto riguardo a ciò che sto per chiedervi ... Ho tre UserForm con tre TextBox per ognuno e nella prima UserForm ho tre CommandButton che hanno la seguente funzione: EXIT (esce dalla userform), NEXT (va alla seconda userform) ed INSERT DATA (inserisce i dati immessi nelle tre textbox in Sheet1 in determinate celle).
Ecco vorrei fare in modo che se non compilo tutte e tre le TextBox vorrei che, nel momento in cui clicco su NEXT uscisse un messaggio di errore che dice "Hai dimenticato di compilare un campo" facendomi ritornare sulla prima Userform.
Il codice associato al pulsante NEXT è il seguente:
`Private Sub CommandButton3_Click() Me.Hide UserForm2.Show End Sub`
(sinceramente ho provato ad inserire la riga If TextBox1 = "" Then e il messagebox ed end if solo che il messaggio esce ma solo quando chiudo la userform, io vorrei che uscisse nel momento in cui vado a cliccare su NEXT)
Grazie in anticipo per la vostra disponibilità e buon weekend!
prima chi chiudere la prima userform, potresti fare dei controlli nelle varie textbox della tua userform, se tutti i campi sono completati chiudi la prima userform ed apri la secondo, altrimenti messaggio di avviso è focus sulla textbox da completare, tutto da tradurre in codice
Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )Ciao e grazie per aver risposto.
Ho fatto la prova: ho completato tutte le textbox, chiudo le userform e il messaggio non esce.
Ho fatto la prova: ho completato tutte le textbox, chiudo le userform e il messaggio non esce.
posta le righe di codice con cui hai fatto la prova
Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )Private Sub CommandButton3_Click() Me.Hide UserForm2.Show With UserForm1 If TextBox1.Text = "" Then MsgBox "Errore" End End If End With End Sub
Riempiendo la textbox1 il messaggio non esce; se lascio vuota la textbox1 nel momento in cui clicco su NEXT, mi fa andare avanti alla seconda userform (e qui vorrei che esce il messaggio) , chiudo le userform ed esce il messaggio. Ma solo quando chiudo esce.
(il codice si trova nel pulsante NEXT)
scusa, ma analizzando riga per riga il tuo codice tu dici
Me.Hide
Nascondi la userform1, quella dove c'è il pulsante
UserForm2.Show
Mostrami la userform2
With UserForm1
questo non va bene , perchè tu non sei piu nella userform1, quind il controllo non lo fa.
sposta queste righe di codice subito dopo l'end With
Me.Hide
UserForm2.Show
prova ad allegare un file senza dati sensibili
Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )Ho spostato le righe come mi hai consigliato e adesso funziona! Ho fatto la prova di scrivere qualcosa nella textbox esaminata e il messaggio non esce..
Grazie milleeeeee e buona giornata
Perdonami, chiedo un'altra cortesia: ora il messaggio esce se non inserisco niente nella textbox1, però quando faccio su OK del messaggio, scompare oltre al messaggio anche la userform. Cosa dovrei aggiungere al codice affinchè dopo aver cliccato OK al messaggio, la userform non scompari, per avere la possibilità di modificare la textbox1?
Scusa ancora!
-
AutoreArticoli