Newsgroup: it.comp.appl.access
Titolo: Recordset che si ferma al primo record

Sto cercando di esportare alcuni valori di un campo su file word. Il
problema è che, quando vado a scorrere il recordset per stamparli, mi
stampa sempre il primo...per tutti i record esportati. Ad esempio se
ci sono 3 record nella tabella stampa sempre il primo record 3 volte.
Ma perchè? Vi scrivo il codice, non ho capito dove cacchio sbaglio.
Set wrd = CreateObject("Word.Application")
    wrd.Visible = True
    wrd.Activate
    Set doc = wrd.Documents.Open("T: percorso")
        doc.Bookmarks("data").Select
                 wrd.Selection.Text = data
        doc.Bookmarks("nuovo_odg").Select
        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
                 Set rs = New ADODB.Recordset
                 Set cn = CurrentProject.Connection
                 rs.Open "Select nuovo_odg from nuovi_odg", cn,
adOpenDynamic, adLockPessimistic
                 With rs
                         While Not .EOF
                              record = nuovo_odg
                              wrd.Selection.TypeText record & vbCrLf
                              .MoveNext
                        Wend
                 End With
                 rs.Close
                 cn.Close

(.....)
Invece di
                With rs
                         While Not .EOF
prova con
                 With rs
                        .movefirst
                         While Not .EOF
Inoltre, prova a sostituire 
                              record = nuovo_odg
                              wrd.Selection.TypeText record & vbCrLf
con 
                              wrd.Selection.TypeText !nuovo_odg & vbCrLf
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------

 ha scritto nel messaggio 
news:1185272385.2...@d55g2000hsg.googlegroups.com...
Sto cercando di esportare alcuni valori di un campo su file word. Il
problema č che, quando vado a scorrere il recordset per stamparli, mi
stampa sempre il primo...per tutti i record esportati. Ad esempio se
ci sono 3 record nella tabella stampa sempre il primo record 3 volte.
Ma perchč? Vi scrivo il codice, non ho capito dove cacchio sbaglio.
Set wrd = CreateObject("Word.Application")
    wrd.Visible = True
    wrd.Activate
    Set doc = wrd.Documents.Open("T: percorso")
        doc.Bookmarks("data").Select
                 wrd.Selection.Text = data
        doc.Bookmarks("nuovo_odg").Select
        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
                 Set rs = New ADODB.Recordset
                 Set cn = CurrentProject.Connection
                 rs.Open "Select nuovo_odg from nuovi_odg", cn,
adOpenDynamic, adLockPessimistic
                 With rs
                         While Not .EOF
                              record = nuovo_odg
                              wrd.Selection.TypeText record & vbCrLf
                              .MoveNext
                        Wend
                 End With
                 rs.Close
                 cn.Close
[risposta]
...
With rs
    Do While Not .EOF
....
Ciao.
-- 
Sergio MAZZA 

 ....
E toglierei il Wend per sostituirlo con:
    Loop
Ciao.
-- 
Sergio MAZZA

Grazie a tutti e due ;)