Newsgroup: it.comp.appl.access
Titolo: Ottimizzazione comando "Name"

Ciao a tutti,
qualche giorno fa ho esposto un problema, cioè spostare un file word da una
cartella all'altra utilizzando access! Il mitico "MA" mi è stato di
grandissimo aiuto e tramite questo comando che ora vi posto ho risolto
tutto!
Option Compare Database
Option Explicit
Dim path As String
Function click()
On Error GoTo click_Err
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:\" & [Forms]![RefertatiA]![Cognome] & " " &
[Forms]![RefertatiA]![Nome] & " " & [Forms]![RefertatiA]![Progressivo
Manuale] & ".rtf"
click_Exit:
    Exit Function
click_Err:
    MsgBox Error$
    Resume click_Exit
End If
End Function
C'è solo un piccolo problema! Si può visualizzare un messaggio di conferma
di "avvenuto spostamento" del file quando tutto va a buon fine? Ultima cosa
se il file è già stato spostato mi da sto messaggio "file già esistente" e
non me lo sovrascrive, mentre io vorrei che lo facesse, ossia che mi
sovrascriva il file!
Grazie infinite!
Checco
--------------------------------
Inviato via 
http://usenet.libero.it

 sovrascriva il file!
Kill Path
elimina il file definito nella stringa Path
Sib

 Il mitico "MA"
ROTFL
He heehhehee ehehehh e
Antonio


--------------------------------
Inviato via 
http://usenet.libero.it

 Checco
Ciao MAssimiliano


 MAssimiliano
Che poi mi sono stupidamente giocato la battuta:
Ciao Michelle, Ciao MA, MI-TI-CO....
....
Ma vaffa.....
Antonio


Antonio, non ti eri ancora scollegato....
;-)
Ah Antonio, un tempo non avevi questi buchi... beh a dire il vero di ritorno
dagli EA, pare ti si siano aperti diversi buchi...
MAssimiliano


Massimigliano sei sempre più mitico!
Va tutto alla perfezione! :o)
Ma non è finita qua poi vi posto qualche altro casino da risolvere!
Anzi ve ne anticipo uno bello grosso! Allora io ho adesso una serie di
documenti word chiamati col campo "Cognome2, "nome" e "progressivo" del
record di access! Adesso posso riaprire questi documenti tramite access?
Posso associare il documento al record dell'MDB?
Ragazzi se facciamo questo è il massimo!
Grazie ancora


 Grazie ancora
dim pippo as string
pippo = me.cognome2 & ""& nome & "" &progressivo
me.pippo.hyperlinkaddress = dir("tuopercorso" & pippo)
ciao MAssimiliano


 dagli EA, pare ti si siano aperti diversi buchi...
E sempre come dice il saggio filosofo cinese Confucio:
L'importante č godé
Antonio

 ciao MAssimiliano
Ciao
Francesco



Non sono d'accordo. Per me č molto importante l'ordine dei vagoni.


 ciao MAssimiliano
Ciao
Francesco
--------------------------------
Inviato via 
http://usenet.libero.it

 AIUTO! :o)
Infatti.
credo sia una maschera singole. Allora creati un pulsante "Pulsante".
Sulla maschera ci sono i controlli che definiscono il file rtf?
Se sě, allora sull'evento current
dim path
path = me.cognome & " " & me.nome & " " & me.progressivo & ".rtf"
if dir(path) <>"" then
me.pulsante.visible = true
end if
Poi dietro al pulsante sull'evento click
dim path
path = me.cognome & " " & me.nome & " " & me.progressivo & ".rtf"
me.pulsante.Hyperlinkaddress = path
ciao MAssimiliano


 ciao MAssimiliano
Ciao Checco


 me.pulsante.Hyperlinkaddress = path
Devi aiutarmi scrivendomi tutto il codice! Sto imparando il linguaggio in
questo gioni... Sono a terra! :o(
Grazie infinite!



MAssimiliano


 > ciao MAssimiliano
Sě bello mio, perň fatti aiutare...
cerca di essere preciso e ricco di particolari quando mi dai le indicazioni


 ciao MAssimiliano
Ciao Checco
--------------------------------
Inviato via 
http://usenet.libero.it

 MAssimiliano
Checco


 cerca di essere preciso e ricco di particolari quando mi dai le
indicazioni
Lo so è che a volte sono troppo frettoloso! Ieri ci sono riuscito abbastanza
velocemte, il fatto è che nonostante usi access da anni non mi sono mai
addentrato nell'utilizzo dei moduli... :o(
Checco


Ho scritto la prima parte del codice nel modulo!
E' corretto? A me da un errore in questa riga:
(path = Me.Cognome & " " & Me.Nome & " " & Me.Progressivo & ".rtf")
Questo è il codice
Option Compare Database
Option Explicit
Function clic()
Dim path
path = Me.Cognome & " " & Me.Nome & " " & Me.Progressivo & ".rtf"
If Dir(path) <> "" Then
Me.pulsante.Visible = True
End If
End Function
Checco



 ciao MAssimiliano


 Checco
Questo path va bene se è inserito nel codice della maschera. Se lo inserisci
nei moduli devi sostutire
"me.cognome" con "forms!tuamaschera!cognome".
Ti suggerisco invece di spostare tutto il codice "alle spalle" della
maschera.
E inseriscilo nell'evento
Private sub Form_current()
Aspetto news
MAssimiliano


 Rileggiti ciò che ti ho scritto prima e vedi se va.
Ecco il codice che ho inserito nel modulo, per ora ho provato la prima
parte:
Option Compare Database
Option Explicit
Function clic()
Dim path
path = Me.Cognome & " " & Me.Nome & " " & Me.Progressivo & ".rtf"
If Dir(path) <> "" Then
Me.pulsante.Visible = True
End If
End Function
Ho eseguito il debug e mi da errore nella 5°riga!
Ovviamente avevo la maschera aperta!
Che si fa?



Se vuoi usare una function devi riferirti ai controlli in maniera indiretta
sostituendo
me.cognome con form!tuamaschera!cognome
Un suggerimento, metti il tutto nel codice della maschera e lascia
me.cognome.
Ricordati di inserirlo su form_current
ciao MAssimiliano


 Private sub Form_current()
Massimiliano ci stiamo arrivando! Non capivo che dovevo creare il pulsante
direttamente nella maschera e andare su evento e selezionare "generatore di
codice"!Ti ripeto è la prima volta che uso i moduli e questo medoto!
Comunque ecco il codice da me inserito:
Option Compare Database
Option Explicit
--------------------
Private Sub Form_Current()
Dim path
path = Me.Cognome & " " & Me.Nome & " " & Me.Progressivo & ".rtf"
If Dir(path) <> "" Then
Me.Pulsante.Visible = True
End If
End Sub
---------------------------
Private Sub Pulsante_Click()
Dim path
path = Me.Cognome & " " & Me.Nome & " " & Me.Progressivo_Manuale & ".rtf"
Me.Pulsante.HyperlinkAddress = path
End Sub
Ok? E' tutto giusto? Pare di si! Però mi da un errore "Impossibile aprire
MIRIZZI FRANCESCO 123.rtf"! Forse non sa da dove prenderlo! I file rtf si
trovano in "C:\"!
Può essere questo il problema?
Checco


Ah ultima cosa!
Il pulsante me lo fa ugualmente vedere per tutti i record... :o(
Checco



Si infatti scusa
path = "c:\" & Me.Cognome & " " & Me.Nome & " " & Me.Progressivo_Manuale &
".rtf"
ciao MAssimiliano


 ciao MAssimiliano
Ora stacco e vado a casa! Sicuramente ci risentiamo domani! ;o)
Ciao e grazie di tutto! Spero di poterti ricambiare in qualche modo!
Checco



che fai, vai via proprio prima che ti dico gli estremi della banca???
MAssimiliano
