Newsgroup: it.comp.appl.access
Titolo: Opzioni in automazione word (continuo)

Ciao,
siccome non ho più ricevuto risposta nell'altro post, provo a
riformulare la domanda.
Per inviare dei dati ad un file di word con un percorso prestabilito,
uso il seguente codice:
DoCmd.OutputTo acOutputReport, "Mio_Report", _
acFormatRTF, "C:\Users\Nome_Computer\Documenti\Mia_Cartella\" & "/" &
[Mia_Caselladitesto] & ".doc", True
dove "Mia_Caselladitesto" è una casella di testo non associata dove
inserisco il nome da dare al file di word.
La domanda è questa:
dovendo consegnare il db ad una persona che a sua volta girerà ad
altre persone, c'è un modo per aggirare il percorso del file sotto la
voce "Nome_Computer" che chiaramente non posso sapere?
ps
Per chi ha voglia di andarsi a leggere l'altro post, c'è un
suggerimento di Carlo Costarella; purtroppo non sono stato in grado di
metterlo a frutto.
Ciao Vladimiro.

 ha scritto nel messaggio 
news:f8434edb-86b2-49ff...@a12g2000pro.googlegroups.com...



--------  RISPOSTA  --------------
Se da quel comando ometti tutta la parte iniziale del nome file, ovvero se 
il comando diventa semplicemente DoCmd.OutputTo acOutputReport, 
"Mio_Report", acFormatRTF, [Mia_Caselladitesto] & ".doc", True il file dove 
viene salvato ? Credo nella cartella dove c'è l'mdb. Se così è, nella 
maschera in cui valorizzi Mia_Caselladitesto puoi anche inventarti un altro 
campo in cui fai memorizzare all'utente un percorso alternativo alla 
semplice cartella di default.
Scusa, forse non ho capito bene il problema, ma non avevdo avuto ancora 
nessun suggerimento ho creduto opportuno dire la mia, anche con la 
possibilità che sia "di fuori" rispetto al problema stesso.
Ciao
Antonio

 ha scritto nel messaggio 
news:f8434edb-86b2-49ff...@a12g2000pro.googlegroups.com...



-------------------------------------
Il punto importante da capire è che serve conoscere il percorso dove salvare 
il file.
Come già ti dicevo, questo percorso è bene memorizzarlo in una tabella, in 
modo che l'utente possa scegliere una sola volta il percorso di salvataggio.
Le tecniche per ricavare il percorso sono diverse e prevedono sia l'uso di 
ocx, API o altro.
Qui ti propongo due tecniche:
Su 
http://www.sitocomune.com
sezione modules, indice 5.42 trovi un esempio in A97, eventualmente da 
portare in altra versione di Access.
Di seguito un secondo esempio da inserire in un nuovo modulo pubblico:
Option Compare Database
Option Explicit
'************** Code Start **************
'This code was originally written by Terry Kreft.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code courtesy of
'Terry Kreft
Private Type BROWSEINFO
  hOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfn As Long
  lParam As Long
  iImage As Long
End Type
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
            "SHGetPathFromIDListA" (ByVal pidl As Long, _
            ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
            "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
            As Long
Private Const BIF_RETURNONLYFSDIRS = &H1
Public Function BrowseFolder(szDialogTitle As String) As String
  Dim X As Long, bi As BROWSEINFO, dwIList As Long
  Dim szPath As String, wPos As Integer
    With bi
        .hOwner = hWndAccessApp
        .lpszTitle = szDialogTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(512)
    X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
    If X Then
        wPos = InStr(szPath, Chr(0))
        BrowseFolder = Left$(szPath, wPos - 1)
    Else
        BrowseFolder = vbNullString
    End If
End Function
'*********** Code End *****************
Come si usa questo secondo esempio:
dichiari una variabile string:
Dim MioPercorso as String
MioPercorso = BrowseFolder("Scegli un percorso di salvataggio.")
A questo punto MioPercorso restituisce il path completo della cartella 
scelta, per esempio
\\192.168.1.12\User\PippoUser\Documenti oppure
C:\User\NomeUser\Documenti
In ogni caso devi memorizzare il percorso in una tabella...lo sai fare?
Il resto viene da se.
Ciao, Carlo

 ha scritto nel messaggionews:f8434edb-86b2-49ff...@a12g2000pro.googlegroups.com...

In questo modo il file viene salvato nella cartella Documenti mentre
io ho bisogno di salvarlo in una cartella predeterminata con
all'interno lo stesso db.
Comunque grazie della risposta.
Ciao Vladimiro.

 Suhttp://
www.sitocomune.com

Mille grazie per la disponibilità.
Ciao Vladimiro.

 ha scritto nel messaggio 
news:0b529d9b-92c8-49f1...@n33g2000pri.googlegroups.com...


Ciao Vladimiro,
se la cartella dove devi salvare il documento è la stessa in  cui si 
trova l'MDB, basta:
DoCmd.OutputTo acOutputReport, "Mio_Report", 
acFormatRTF,CurrentProject.Path  & "/" & [Mia_Caselladitesto] & 
".doc", True
--
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
http://accessdaziacin.spaces.live.com
---------------------------------------- 

 - Mostra testo citato -
Ciao Cinzia, scusa se ti rispondo in ritardo, ma oggi non ci sono
stato.
Inizialmente era quello che cercavo (infatti mi sono accorto che nel
rispondere ad Antonio, ho espresso quello che tu mi hai indicato), poi
ho pensato, dovendo gestire 45 files di word, che sarebbe stato meglio
racchiuderli tutti dentro un'unica cartella, all'interno della stessa
cartella dove c'è l'MDB.
Resta comunque il fatto che mi hai dato, come sempre,  un prezioso
suggerimento.
Ciao Vladimiro.

 Suhttp://
www.sitocomune.com

Ciao Carlo, ho usato il tuo secondo esempio e funziona alla grande.
Mille grazie Vladimiro.