[VBA, ACCESS 2010, REPORT]
Ho creato un report da una query che estrae tutti i record da una tabella.
Lo scopo è di mettere uno appresso all'altro il contenuto dei campi (evitando però di lasciare spazi vuoti per i campi che non contengono dati).
Esempio:
record1: campo1, campo2,campo3
contenuto del record1: valore1,vuoto,valore3
record2 ............
ecc (ho creato solo 6 record per fare delle prove)
Vorrei l'output di questo tipo:
valore1,valore3
Ed allora apro il recordset e leggo i campi con:
Do While Not rst.EOF
qNome = rst(1)
qCognome = rst (2) ecc...
Li unisco in una unica stringa Unito (considerando solo quelli con dati e non i campi vuoti):
If Len(qNome) > 0 Then
Unito = Unito & qNome
Else
Unito = Unito & " - manca nome - "
End If
ecc per gli altri campi....
e li visualizzo in una casella di testo (chiamata Testo25 e non associata a nessun controllo):
Me!Testo25.Value = Unito
rst.MoveNext
Loop
Ecco le 2 anomalie che ottengo:
1 - Ottengo, nella casella di testo del report di uscita, 'solo' l'ultima stringa creata (cioè quella con i dati del sesto record).
2 - Inoltre nel report trovo ripetute 6 caselle di testo (cioè uguali al numero totale dei record della tabella) con lo stesso contenuto (appunto quello dell'ultimo dei record).
Dove sbaglio ?
Grazie in anticipo e ... scusate ma sono alle prime armi.
Ugoguitar
Rispondi quotando
