È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Concatena più textbox su form [RISOLTO]

Ultimo Aggiornamento: 04/12/2023 13:56
04/12/2023 00:59

Su una form ho tre textbox.
Come fare per concatenarle e il risultato inserirlo nella quarta textbox sulla stessa form?
04/12/2023 01:00

L'inserimento chiaramente in automatico.
Post: 7.460
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
04/12/2023 09:07

scrivi un evento "AfterUpdate" sulla Textbox3 in questo modo

Private Sub Textbox3_AfterUpdate()
Textbox4 = Textbox1 & " " & TextBox2 & " " TextBox3
End Sub


in questo modo quando dai INVIO sulla textbox3 nella textbox4 vengono concatenati i dati, ho messo spazio fra i vari textbox

Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
04/12/2023 09:10

Ciao,
mentre mi scrivevi ho provato a fare qualcosa anch'io.
Allego il file e chiedo se va bene.
Grazie
rex88
Post: 7.461
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
04/12/2023 09:30

Ciao, ma mi devi far capire una cosa, devi concatenare o sommare, perche nel tuo form vedo

Me.TextBox3 = Me.TextBox1.Value & " " + Me.TextBox2.Value


cioè quel segno più + significa che vuoi sommare textbox1+textbox2?

se è cosi vi sono diversi errori, il primo non puoi usare l'evento "Change", in quanto ogni volta che inserisci un carattere nella Textbox parte l'evento, devi usare l'evento "AfterUpdate" che quando scrivi qualcosa nel textbox aspetta che premi INVIO per andare avanti.

l'altro errore devi considerare che i textbox proprio la parola "Text" vuole dire che qualsiasi valore testo-numero o altro viene considerato testo e non valore numerico, per cui se vuoi fare una somma non puoi farlo devi prima fare una conversione dal testo al numero se si tratta di numeri.

se parliamo di numeri allora vi è ancora un altra considerazione da fare, sono numeri interi o decimali? se sono interi basta

TextBox3 = Val(TextBox1) + Val(TextBox2) 'val converte testo in numero

se decimali 

TextBox3 = Cdbl(TextBox1) + Cdbl(TextBox2) 'Cdbl converte testo in numero con decimali


mi sembra che una volta feci un post sulle Userform, se lo trovo ti lascio il link

Ciao By Sal (8-D
[Modificato da by sal 04/12/2023 09:31]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
04/12/2023 10:11

Ciao,
ho fatto come mi ha consigliato nel precedente post.
Grazie
rex88
04/12/2023 13:56

RISOLTO
Grazie
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 04:21. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com