Problema pulsante inserisci

Hai un problema con Excel?

Nuova discussione

Problema pulsante inserisci
di mauro (utente non iscritto) data: 10/05/2013 12:29:46
Ciao ragazzi, la settimana passata ho relaizzato un Database e sembtrava che tutto funzionasse, ma quando sono andato a inserire dei dati il pulsante Inserisci non funziona: una volta che ho inserito i dati nelle varie textbox, questi vengono inseriti nelle varie celle quando chiudo la form. Ho fatto diverse prove, ma non riesco a capire dov'è l'errore.
Grazie e saluti a tutti

Questo è il codice:

Private Sub CommandButton1_Click() ' pulsante inserisci
Application.ScreenUpdating = False

If ComboBox1 = "" Then 
    Label1.ForeColor = RGB(255, 0, 0) 
    MsgBox ("Attenzione! Devi inserire un titolo Sig.re oppure Sig.ra oppure Sig.na."), vbExclamation, "Excel e    VBA" 
    ComboBox1.SetFocus
    Exit Sub
End If

If TextBox2.Text = "" Then
    Label2.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire il Nome.", vbExclamation, "Excel e VBA"
    TextBox2.SetFocus
    Exit Sub
End If

If TextBox3.Text = "" Then
    Label3.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire il Cognome.", vbExclamtion, "Excel e VBA"
    TextBox3.SetFocus
    Exit Sub
End If

If TextBox4.Text = "" Then
    Label4.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire l'indirizzo.", vbExclamtion, "Excel e VBA"
    TextBox4.SetFocus
    Exit Sub
End If

If TextBox9.Text = "" Then
    Label10.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire il CAP.", vbExclamtion, "Excel e VBA"
    TextBox9.SetFocus
    Exit Sub
End If

If ComboBox2 = "" Then
    Label8.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire la città.", vbExclamtion, "Excel e VBA"
    ComboBox2.SetFocus
    Exit Sub
End If

If TextBox8.Text = "" Then
    Label9.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire il numero di telefono dell'ufficio.", vbExclamation, "Excel e VBA"
    TextBox8.SetFocus
    Exit Sub
End If

If TextBox10.Text = "" Then
    Label11.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire il numero di telefono di casa.", vbExclamation, "Excel e VBA"
    TextBox10.SetFocus
    Exit Sub
End If

If TextBox6.Text = "" Then
    Label6.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire il numero di cellulare.", vbExclamation, "Excel e VBA"
    TextBox6.SetFocus
    Exit Sub
End If

If TextBox7.Text = "" Then
    Label7.ForeColor = RGB(255, 0, 0)
    MsgBox "Attenzione! Devi inserire l'E-mail.", vbExclamation, "Excel e VBA"
    TextBox7.SetFocus
    Exit Sub
End If

Range("A65535").End(xlUp).Offset(1, 0).Select

ActiveCell.Value = ComboBox1 
ActiveCell.Offset(0, 1).Value = TextBox2  
ActiveCell.Offset(0, 2).Value = TextBox3  
ActiveCell.Offset(0, 3).Value = TextBox4  
ActiveCell.Offset(0, 4).Value = TextBox9  
ActiveCell.Offset(0, 5).Value = ComboBox2
ActiveCell.Offset(0, 6).Value = TextBox8 
ActiveCell.Offset(0, 7).Value = TextBox10 
ActiveCell.Offset(0, 8).Value = TextBox6  
ActiveCell.Offset(0, 9).Value = TextBox7  
 
End Sub

di Baz (utente non iscritto) data: 10/05/2013 12:49:21
Ciao,
non mi è chiaro il tuo problema; il TUO pulsante, funziona o no?
Se No, qual è la parte che non ti funziona? cosa dovrebbe fare?

Potresti allegare il file vuotando il DB dai dati reali?
di totygno71 (utente non iscritto) data: 10/05/2013 12:53:21
E quale sarebbe l'errore che ti da? su che riga?
leggendo il codice non ne trovo!
di Vecchio Frac data: 10/05/2013 13:38:34
Non è che magari basta solo riattivare l'aggiornamento dello schermo prima di uscire dalla procedura?

Application.ScreenUpdating = True
Problema pulsante inserisci
di mauro (utente non iscritto) data: 10/05/2013 15:02:38
Ok problema risolto. Ho provato ha cambiare Application.ScreenUpdating = False con Application.ScreenUpdating = True e il pulsante funziona. Se è possibile mi spiegate perchè con False non funzionava?

Grazie e saluti a tutti
di Baz (utente non iscritto) data: 10/05/2013 15:26:02
l'istruzione Application.ScreenUpdating = False non fa latro che "bloccare" lo schermo, non lo aggiorna.

E' molto utile per velocizzare i vari calcoli che vai a fare nel foglio (ad esempio); ma bisogna poi riattivarlo per avere i risultati.

Spero essere stato abb. chiaro.
Ciao
di Vecchio Frac data: 10/05/2013 15:30:48
cit. "Ho provato ha cambiare Application.ScreenUpdating = False con Application.ScreenUpdating = True"
---> Tra parentesi, non è esattamente quello che avevo suggerito io... :)
Problema pulsante inserisci
di mauro (utente non iscritto) data: 10/05/2013 15:35:40
Ok grazie la risposta è chiara. Ma vorrei capire sempre se è riattivare dell'Application...... .

Ciao
di Baz (utente non iscritto) data: 10/05/2013 15:37:54
"Ma vorrei capire sempre se è riattivare dell'Application...... . "

Application.ScreenUpdating = False
non aggiorna il foglio

all'opposto
Application.ScreenUpdating = True
aggiorna il foglio

(appunto come suggeriva Vecchio Frac )
Problema pulsante inserisci
di mauro (utente non iscritto) data: 10/05/2013 15:39:31
Ok grazie la risposta è chiara. Ma vorrei capire sempre se è riattivare dell'Application...... .

Ciao
Problema pulsante inserisci
di mauro (utente non iscritto) data: 10/05/2013 15:53:16
Scuatemi ragazzi e abbiate un pò di pazienza, nello scrivere l'ultimo messaggio ho fatto un pò di confusione, infatti non sto capendo cosa devo fare: devo inserire la riga Application.Updating =True oppure va bene senza. Io ho provato tutte e due e funzionano. Ma per un codice più pulito cosa mi consigliate di fare?

Grazie
Ciao
di Baz (utente non iscritto) data: 10/05/2013 16:28:44
allora, se hai una gran mole di dati da elaborare e scrivere nei vari fogli, sarebbe meglio

Application.ScreenUpdating = False
'non aggiorna il foglio

'...
' Tue istruzioni
'...

'alla fine riattivi tutto con
Application.ScreenUpdating = True

abb. chiaro?
Problema pulsante inserisci
di mauro (utente non iscritto) data: 10/05/2013 16:43:47
Ok, adesso è tutto chiaro. In questo forum siete veramente grandi. Sono contento di avervi trovato.

Grazie e un saluto a tutti.

Ciao

Vuoi Approfondire?