Newsgroup: it.comp.appl.access
Titolo: Report impazzito

L'idea era quella di creare una mappa territoriale con etichette (valore 
contenuto iniziale il punto ".") giustapposte nelle quali far apparire i 
nominativi degli addetti al controllo dei vari settori e stampare 
giornalmente il prospetto ottenuto.
A tal fine ho creato un report con la mappa che m'interessava sullo sfondo, 
poi, sull'evendo "Apertura" del report stesso, ho creato una routine nella 
quale viene analizzato il recordset dei dati necessari e, a seconda dei 
casi, vengono piazzati i nominativi nelle zone assegnate.
Ho collocato infine il report così ottenuto all'interno di  un altro report.
Tutto funziona bene, l'anteprima di stampa mostra correttamente l'immagine 
della mappa con i nomi al posto giusto, sennonché, quando stampo su carta il 
report, i nominativi risultano scritti due volte.
Com'è possibile? Sicuramente mi sfugge qualcosa, ma non so quale.
Per ulteriore chiarezza riporto la routine interessata, omettendo per 
brevità la parte preparatoria
(La condizione IIF mi consente di aggiungere più nominativi nel caso di  più 
unità per la stessa zona)
    Do
        Select Case rst!Viabilità
            Case "a": Etichetta7.Caption = IIf(Etichetta7.Caption <> ".", 
Etichetta7.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta34.Caption = rst!CognomeAgente
            Case "b": Etichetta8.Caption = IIf(Etichetta8.Caption <> ".", 
Etichetta8.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta35.Caption = rst!CognomeAgente
            Case "c": Etichetta9.Caption = IIf(Etichetta9.Caption <> ".", 
Etichetta9.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta36.Caption = rst!CognomeAgente
            Case "d": Etichetta10.Caption = IIf(Etichetta10.Caption <> ".", 
Etichetta10.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta37.Caption = rst!CognomeAgente
            Case "e": Etichetta11.Caption = IIf(Etichetta11.Caption <> ".", 
Etichetta11.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta38.Caption = rst!CognomeAgente
            Case "f": Etichetta12.Caption = IIf(Etichetta12.Caption <> ".", 
Etichetta12.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta39.Caption = rst!CognomeAgente
            Case "g": Etichetta13.Caption = IIf(Etichetta13.Caption <> ".", 
Etichetta13.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta40.Caption = rst!CognomeAgente
            'Case "h": Etichetta14.Caption = rst!CognomeAgente: 
Etichetta41.Caption = rst!CognomeAgente
            Case "i": Etichetta15.Caption = IIf(Etichetta15.Caption <> ".", 
Etichetta15.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta42.Caption = rst!CognomeAgente
            Case "l": Etichetta16.Caption = IIf(Etichetta16.Caption <> ".", 
Etichetta16.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta43.Caption = rst!CognomeAgente
            Case "m": Etichetta17.Caption = IIf(Etichetta17.Caption <> ".", 
Etichetta17.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta44.Caption = rst!CognomeAgente
            Case "n": Etichetta18.Caption = IIf(Etichetta18.Caption <> ".", 
Etichetta18.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta45.Caption = rst!CognomeAgente
            Case "o": Etichetta19.Caption = IIf(Etichetta19.Caption <> ".", 
Etichetta19.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta46.Caption = rst!CognomeAgente
            Case "gs": Etichetta66.Caption = IIf(Etichetta66.Caption <> ".", 
Etichetta66.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta69.Caption = rst!CognomeAgente
            Case "sm": Etichetta67.Caption = IIf(Etichetta67.Caption <> ".", 
Etichetta67.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta70.Caption = rst!CognomeAgente
            Case "ba": Etichetta68.Caption = IIf(Etichetta68.Caption <> ".", 
Etichetta68.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta71.Caption = rst!CognomeAgente
            Case "c.a.": Etichetta83.Caption = IIf(Etichetta83.Caption <> 
".", Etichetta83.Caption & " " & rst!CognomeAgente, rst!CognomeAgente): 
Etichetta81.Caption = rst!CognomeAgente
            Case "p": Etichetta101.Caption = IIf(Etichetta101.Caption <> 
".", Etichetta101.Caption & " " & rst!CognomeAgente, rst!CognomeAgente)
            Case "q": Etichetta103.Caption = IIf(Etichetta103.Caption <> 
".", Etichetta103.Caption & " " & rst!CognomeAgente, rst!CognomeAgente)
            Case "r": Etichetta107.Caption = IIf(Etichetta107.Caption <> 
".", Etichetta107.Caption & " " & rst!CognomeAgente, rst!CognomeAgente)
            Case "s": Etichetta109.Caption = IIf(Etichetta109.Caption <> 
".", Etichetta109.Caption & " " & rst!CognomeAgente, rst!CognomeAgente)
            Case "t": Etichetta111.Caption = IIf(Etichetta111.Caption <> 
".", Etichetta111.Caption & " " & rst!CognomeAgente, rst!CognomeAgente)
            Case "u": Etichetta113.Caption = IIf(Etichetta113.Caption <> 
".", Etichetta113.Caption & " " & rst!CognomeAgente, rst!CognomeAgente)
        End Select
        rst.MoveNext
    Loop Until rst.EOF 

 ha scritto nel messaggio news:43e081f4$0$4166$4faf...@reader3.news.tin.it...

Ciao,
non è impazzito.
Durante l'anteprima nelle etichette vengono immessi i nomi, durante la stampa tutta la procedura viene ripetuta quindi i nomi si
raddoppiano perchè le etichette non contengono più il ".".
Devi fare in modo che prima di tutto il ciclo le etichette vengano reimpostate al valore originale "."
Ciao,
Mat.

Ciao e grazie.
Ma se ti dicessi che l'ho fatto?


Allora c'č quelcosa che ci(mi) sfugge.
Tutto il codice che hai postato quando viene eseguito (che evento)? quando fai ripristinare le etichette (che evento)?
Mat.

vengono impostate a "." all'inizio dello stesso. 

 ha scritto nel messaggio news:43e095e2$0$4162$4faf...@reader3.news.tin.it...

Probabilmente il problema č legato al tipo di controllo che hai scelto (etichetta), potresti provare a sostituirle con caselle di
testo.
Oppure potresti aggiungere una variabile statica alla routine incriminata tipo:
Sub Report_Open()
    Static EtichetteImpostate as boolean
    if not EtichetteImpostate then
        select case ...
            Case a:...
            ...
        end select
        EtichetteImpostate = True
    end if
End Sub
Quando il report viene aperto la prima volta le etichette vengono impostate e la variabile statica diventa vera;
quando il report viene stampato e la routine viene chiamata la seconda volta la variabile EtichetteImpostate = true quindi il
contenuto della if... non viene rieseguito.
Cosě facendo non č nemmeno necessario reimpostare il contenuto ="." ogni volta (l'importante č che nella versione salvata del report
ci siano i punti).
Ciao,
Mat.