Excel e gli applicativi Microsoft Office Messaggio "Errore" se campo vuoto in UserForm

Login Registrati
Stai vedendo 9 articoli - dal 1 a 9 (di 9 totali)
  • Autore
    Articoli
  • #15086 Score: 0 | Risposta

    Gret
    Partecipante

      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!

      #15090 Score: 0 | Risposta

      albatros54
      Moderatore
        81 pts

        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 )
        #15092 Score: 0 | Risposta

        Gret
        Partecipante

          Ciao e grazie per aver risposto.  

          Ho fatto la prova: ho completato tutte le textbox, chiudo le userform e il messaggio non esce. 

          #15093 Score: 0 | Risposta

          albatros54
          Moderatore
            81 pts

            Gret ha scritto:

            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 )
            #15096 Score: 0 | Risposta

            Gret
            Partecipante
              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)

              #15097 Score: 1 | Risposta

              albatros54
              Moderatore
                81 pts

                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 )
                #15099 Score: 0 | Risposta

                Gret
                Partecipante

                  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

                  #15101 Score: 0 | Risposta

                  Gret
                  Partecipante

                    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!  

                    #15105 Score: 0 | Risposta

                    Gret
                    Partecipante

                      Ho trovato la soluzione:

                      TextBox1.SetFocus

                      basta aggiungerlo sotto il messaggio. 😉

                    Login Registrati
                    Stai vedendo 9 articoli - dal 1 a 9 (di 9 totali)
                    Rispondi a: Messaggio "Errore" se campo vuoto in UserForm
                    Gli allegati sono permessi solo ad utenti REGISTRATI
                    Le tue informazioni: