[VBA/ACCESS] Uso di TextBox multiline

[donini]

vorrei sapere se è possibile inviare in dati di una textbox multiline ad un campo del databese access
esempio textbox
0115256666
0125669994
0128665544
inviare al database in questo modo
1) 0115256666
2) 0125669994
3) 0128665544

[mentos]

Prova così, adattando il codice al tuo progetto.

Dim Testo as string
Dim Testo_Finale as string
Dim Cont as long
Dim Numero as integer

'Assegni il valore della textbox ad una variabile
Testo = textbox.value 
'Cerchi il carattere di A CAPO e lo sostituisci con una parentesi chiusa
Testo = Replace(Testo,Chr(13),Chr(13) & " ) ") 
'Il numero 1 lo devi assegnare manualmente
Testo = "01) " & Testo

Numero=2
For Cont=1 to len(testo)
'Se il carattere che sta leggendo non è la parentesi...
if mid(testo,cont,1) <>")" then
'...allora scrive il carattere letto nel testo finale
Testo_Finale=Testo_finale & mid(testo,cont,1)
else
'...altrimenti formatta il numero e lo inserisce nel testo finale...
Testo_Finale=Testo_finale & Format(Numero,"00") & mid(testo,cont,1)
'...incrementa il contatore
Numero=Numero + 1
end if
next

'Assegna al campo del database il valore del testo finale
campodb = testo_finale

L'ho scritto al volo, prova a vedere se funziona.