Newsgroup: it.comp.appl.access
Titolo: Di nuovo da Access a Word

Ciao a tutti
mi aiutate a trovare dove ho sbagliato ?
mi stampa n voltesempre il 1 record  quanti sono i record
'*******************************************************************
'*                     Ciclo sui recor presenti 
*
'*******************************************************************
         SQL = "SELECT qryScad.* FROM qryScad  ORDER BY
qryScad.Data_InvCom;"
         Set Rst = CurrentDb.OpenRecordset(SQL)
        If Not Rst.BOF Then 'se il recordset non è vuoto
    With Rst
            '.MoveFirst 'posizionati sul primo record
        While Not .EOF 'ripeti fino alla fine del recordset:
'*******************************************************************
'*               Apre un nuovo documento basato sul modello 
*
'*******************************************************************
    Set Doc = Wrd.Documents.Add(Modello)
    'attivalo e portalo in primo piano:
    Doc.Activate
pausa
    'seleziona il bookmark del primo campo Nome cliente:
    Doc.Bookmarks("CognomeeNome").Select
pausa
    'e sovrascrivilo con il contenuto dei campi
    'Cognome e Nome:
    Wrd.Selection.TypeText Me.Cognome & " " & Me.Nome
pausa
    'Indirizzo
    Doc.Bookmarks("Indirizzo").Select
pausa
    Wrd.Selection.TypeText Me.indirizzo
pausa
    'CAP
    Doc.Bookmarks("Cap").Select
pausa
    Wrd.Selection.TypeText Me.CAP
pausa
    'Città
    Doc.Bookmarks("City").Select
pausa
    Wrd.Selection.TypeText Me.Città
pausa
    'Provincia
    Doc.Bookmarks("Prov").Select
pausa
    Wrd.Selection.TypeText Me.StatoOProvincia
pausa
    ' Numero Pratica
    Doc.Bookmarks("numPratica").Select
pausa
    Wrd.Selection.TypeText Me.Num_Pratica
pausa
    'Data della visita
    Doc.Bookmarks("DataRevis").Select
pausa
    Wrd.Selection.Font.Bold = True
pausa
    Wrd.Selection.TypeText Me.Data_Revisione
pausa
    Dim Note As String
    On Error Resume Next 'Se l'utente preme annulla genera un errore
    Note = Wrd.Application.WordBasic.InputBox("Digita qui eventuali note:")
    If Len(Note) > 0 Then
        Doc.Bookmarks("Note").Select
        Wrd.Selection.TypeText Note '& vbCrLf
    End If
    On Error GoTo 0
'ripristina il valore originario dell'opzione "Sostituisci la selezione"
    Wrd.Options.ReplaceSelection = ReplSel
'avvisa l'utente che l'esportazione è terminata
    'Wrd.Application.WordBasic.MsgBox "Esportazione terminata",
"Esportazione dati da Access"
'***********************************************************************
'*                                                            STAMPA AVVISI 
*
'***********************************************************************
    On Error Resume Next 'se la stampante non è disponibile si genera un
errore
        Doc.PrintOut
    On Error GoTo 0
'********************************************************************
'*                                               SALVA IL DOCUMENTO 
*
'********************************************************************
    NomeFile = Left(Modello, Len(Modello) - 4) & "_" &
Format(Me.Num_Pratica, "000") & "_"
' ******  cerca il primo progressivo disponibile per il Numero Pratica 
selezionato ******
            I = 1
    While Len(Dir(NomeFile & Format(I, "000") & ".doc")) > 0
            I = I + 1
    Wend
    Doc.SaveAs NomeFile & Format(I, "000") & ".doc"
'***********************    FINE CICLO   *****************************
            .MoveNext        '         passa al prossimo record
        Wend 'Not .EOF
    End With 'Rst
    End If
    Rst.Close: Set Rst = Nothing
'***********************   CHIUSURA DOCUMENTO E USCITA DA WORD 
*************************
    Doc.Close
    Wrd.Quit
'***********************   AZZERAMENTO VARIABILI 
*****************************
    Set Doc = Nothing
    Set Wrd = Nothing
End Sub  'cmdStWord_Click

 ha scritto nel messaggio 
news:QHxqe.6091$75.3...@news4.tin.it...

Grazie del vostro interessamento. Risolto il problema: 


---- omissis ----
Forse perché il ciclo dovrebbe essere:
Do While Not rst.eof
    rst.movenext
loop
Ciao.
-- 
Sergio MAZZA 


ti ho risposto nel tuo post precedente,
ciao,
Mat.