Newsgroup: it.comp.appl.access
Titolo: Spostare file da una cartella ad un'altra massivamente a tutti i record di una maschera

Buon pomeriggio,
sono una new entry, spero possiate aiutarmi!
Ho creato un primo codice per spostare file da una directory ad un'altra, questi file, da una cartella generale vanno a finire ognuno nella cartella di ogni cliente.
Ho trovato il codice per spostarli cliccando sul pulsante di ogni cliente.
per velocizzare l'operazione vorrei creare un pulsante unico per spostare i file massivamente in ogni cartella cliente. Ho quindi creato una maschera che ha come origine dati una query dove sono elencati tutti i clienti, e questo pulsante generale dove ho inserito questo codice:
 
Private Sub Comando6_Click()
Dim CN As String
    CN = [Cognome e Nome]
 Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
  Dim rs                  As DAO.Recordset
     Set rs = DBEngine(0)(0).OpenRecordset("elenchi", dbReadOnly)
    If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        Do Until rs.EOF
 
    Perc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTII\DOCUMENTI \"
    NewPerc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTII\DOCUMENTI \" & CN & "\"
    FSO.MoveFile Perc & "*" & CN & ".*", NewPerc
    DoEvents
    rs.MoveNext
    Loop
    End If
    rs.Close
    Set rs = Nothing
  End Sub
 
solo che rimane sempre sul primo record e non scorre in avanti... perchè? potete aiutarmi?
Grazie


intanto mi pare che quel valore CN non cambi mai non essendo valorizzato 
dentro il ciclo
 
mi aspetterei dentro il tuo ciclo qualcosa tipo
 
CN=rs.fields("nomecliente")
 
inoltre se non leggo male perc e newperc sono identici quando vai a fare 
il movefile
 
BFS
 
-- 
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com
 
 

Ho già letto questo stesso POST in un FORUM... stai già ricevendo aiuto... in cosa trovi ancora difficoltà da ripubblicare nuovamente...?
 
@Alex

 @Alex
Buongiorno,
volevo precisare che, essendo principiante, il codice citato mi è stato fornito da un utente del forum i programmatori, dato che leggo risposte dalle stesse persone dell'altro forum, continuerò a parlarne dall'altra parte.
Grazie.

 @Alex
 
Quale Forum?
 
Saluti


Avevo postato sul forum i Programmatori, con il quale ho risolto grazie all'aiuto di alcuni utenti. Vi posto comunque il codice che magari può esservi utile
 
Private Sub Comando6_Click()
On Error GoTo Err_Comando6_Click
Dim CN As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim rs                  As DAO.Recordset
Set rs = DBEngine(0)(0).OpenRecordset("elenchi", dbReadOnly)
If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        Do Until rs.EOF
    CN = rs![CognomeNome]
    Perc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTI\DOCUMENTI DIGITALI\CLIENTI\1.DOCUMENTI DA IMPORTARE\"
    NewPerc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTI\DOCUMENTI DIGITALI\CLIENTI\" & CN & "\"
    FSO.MoveFile Perc & "*" & CN & ".*", NewPerc
    DoEvents
    rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
Exit_Comando6_Click:
    Exit Sub
 
Err_Comando6_Click:
    MsgBox ("Non esistono documenti per questo cliente")
    Resume Next
    End Sub
 
Buona giornata