Newsgroup: it.comp.appl.access
Titolo: Eliminazione file

Ciao a tutti,
ragazzi ho bisogno di spostare in automatico un documento word da una
cartella ad un'altra predefinita dopo aver apportato delle modifiche. Su per
giů un "SALVA CON NOME" con la cancellazione del file originario!
Grazie mille
Francesco
--------------------------------
Inviato via 
http://usenet.libero.it

 Francesco
Name tuopercorsovecchio tuopercorsonuovo
Ovviamente comprese le estensioni
ciao MAssimiliano


 ciao MAssimiliano
Devo fare un procedimento automatico con una macro!
Che istruzioni ci devo dare?



E dopo: Kill tuopercorsovecchio...
Ciao.
--
Sergio MAZZA

 Che istruzioni ci devo dare?
Perchč una macro, creati un pulsante. Elimini il codice che c'č dietro e al
suo posto ci inserisci
private sub Tuopuls_click()
if dir(tuopercorso)<>"" then
Name tuopercorsovecchio tuopercorsonuovo
else
msgbox "Il file non esiste"
end if
end sub
ciao MAssimiliano


 ha
scritto:

Sergio se lo rinomini già non trovi più il vecchio percorso



Ho capito; chiudo che oggi non è aria...
Ciao.
--
Sergio MAZZA

 end sub
L'ho inserito ma mi da errore quando inserisco il percorso. Qual è la
sintassi corretta?
Mi fai un esempio completo? Ascolta ma word mi sposta e salvail file che sto
utilizzando?
grazie infinite


 grazie infinite
Aspetta, rileggo il post che hai quotato
"ragazzi ho bisogno di spostare in automatico un documento word da una
cartella ad un'altra predefinita dopo aver apportato delle modifiche. Su per
giů un "SALVA CON NOME" con la cancellazione del file originario!"
Ma tu vuoi lavorare in Access o in Word. Spero la prima, altrimenti perchč
hai postato qui?
ciao MAssimiliano


 sintassi corretta?
cos'e' un percorso?
e' una stringa che contiene il percorso secondo il comune uso di windows:
"C:\TuaCartella\TuaSottocartella\TuoFile.TuaEstensione"
cut
Sib

 ciao MAssimiliano
Francesco


 Sib
Francesco



Continua a gestirlo da Access.
Tu sai dov'č all'inizio. Avendo outputato. Bene la prima prte del percorso
ce l'hai.
Per la seconda parte: č sempre la stessa directory? Almno una parte č sempre
la stessa. Il nome da scegliere qual'č?
Dammi tutte queste info e lo risolviamo. Discendi causa, prova anche a ddare
una proposta di codice.
ciao MAssimiliano


Option Compare Database
Option Explicit
'------------------------------------------------------------
' Rtf_A
'
'------------------------------------------------------------
Function Rtf_A()
On Error GoTo Rtf_A_Err
    DoCmd.OutputTo acReport, "Rtf_A", "RichTextFormat(*.rtf)",
"\\Vs4\Uffici\SIA\" & [Forms]![RefertatiA]![Cognome] & " " &
[Forms]![RefertatiA]![Nome] & " " & [Forms]![RefertatiA]![Progressivo
Manuale] & ".rtf", True, "C:\Documents and Settings\f.mirizzi\Dati
applicazioni\Microsoft\Modelli\Normal.dot"
Rtf_A_Exit:
    Exit Function
Rtf_A_Err:
    MsgBox Error$
    Resume Rtf_A_Exit
End Function
Questo è il modulo che mi esporta il documento! Questo documento (che si
chiama con i primi tre campi del record selezionato come puoi vedere) deve
essere aperto in word, editato e salvato in un altra cartella sul server
centrale con la cancellazione del file originario! E' qui l'inghippo!
Spostarlo o salvarlo in quest'altra dir e cancellarlo dall'originale! Per me
possiamo anche gestirlo da access, basta che sia il più possibile
automatizzato!
Grazie infinite!


Ho provato con questa sintassi per provare:
Private Sub Tuopuls_click()
If Dir("\\Vs4\Uffici\SIA\") <> "" Then
Name "\\Vs4\Uffici\SIA\" "\\Vs4\Uffici\"
Else
MsgBox "Il file non esiste"
End If
End Sub
Ma mi da sempre errore in corrispondenza del "NAME"!



Perfetto.
Allora il file normal.dot è un Template, cioè un modello, quindi se usi
Normal è inutile. Se invece ti crei un modello tuo lui uscira già
formattato.
Comunque il percorso di partenza l'abbiamo
Bastera solo aggiungere un pulsante e dire
Private sub Pulsante_magico_clieck()
path = "\\Vs4\Uffici\SIA\" & [Forms]![RefertatiA]![Cognome] & " " &
[Forms]![RefertatiA]![Nome] & " " & [Forms]![RefertatiA]![Progressivo
Manuale] & ".rtf"
' Ci salviamo il path come variabile così lo gestiamo meglio
if dir(path)<>"" then
'cioè se esiste il nostro file
Name path as "C:\documenti\Pippo.doc"
fammi sapere MAssimiliano


 fammi sapere MAssimiliano
Mi da un errore di sintassi alla prima riga!
Ma tutto ciň lo devo semplicemente copiare in un modulo?
Francesco


 Francesco
Scusa prima della riga incriminata devi dichiarare la variabile
dim path as string
e poi il resto
MAssimiliano


 MAssimiliano
Francesco



Come hai chiamato il tuo pulsante?
Comando1? scrivi cosě invece di Pulsante_magico
MAssimiliano


GRANDEEEEEEEE! Massimo il più è fatto! Sei stato magico!
Mi dava l'errore perchè mancava l'end if e l'end sub! :o)
Ok ora ci siamo! Ma i casini non sono finiti perchè io devo spostare il file
nel momento in cui viene modificato in word! Posso agganciare un pulsante
word ad Access? Se riusciamo a fa sta cosa è il massimo!
Grazie ancora
Sei stato un angelo!


 Sei stato un angelo!
Sorry, ho provato con VBA di word ma niente.
Devi ritornare in Access.
ciao MAssimiliano


 ciao MAssimiliano
Ciao Francesco


Scusa scusa ho risolto da solo! ;o)
Checco
