Dimensione casella testo

Question

Salve, una tabella contiene un campo memo, con circa 12.000 record ognuno dei quali ha tra i 50 e i 500 caratteri. E' possibile dimensionare automaticamente la dimensione dellla casella in modo da rendere più leggibile il testo?

Grazie Fidel

Answer 1

Aggiungo qui il link a una soluzione più "scientifica" , purtroppo la spiegazione è in francese:

http://cafeine.developpez.com/access/tutoriel/autoextensible/

Answer 2

Ciao Fidel,

una soluzione un po' "spannometrica":

supponiamo che in una riga della tua textBox ci stiano mediamente 80 caratteri (poi la aggiusti tu  in funzione delle tue dimensioni) e che la casella di testo alta una riga misuri 290punti, calcoliamo il numero approssimativo di righe e aggiustiamo l'altezza della textBox di conseguenza. Sull'evento current della maschera metteremo qualcosa del tipo:

Dim nrighe as integer

dim aumento as integer

nrighe= Len(nz(CampoMemo, "")/80 + 1

aumento = 290 * (nrighe-1)

CampoMemo.Height = 290* nrighe

Se dopo il campo memo  ci sono altri ampi dovrai spostare il TOP  di ogni campo nella nuova posizione

AltroCampo.Top = altroCampo.Top+aumento

e se necessario dovrai anche variare l'altezza della maschera