Newsgroup: it.comp.appl.access
Titolo: Associare un file word al database

Il mio problema è il seguente:
Avendo una tabella anagrafica con i vari campi ID(contatore/chiave),Cognome,
Nome, Etc. vorrei fare in modo che da una maschera dove faccio la ricerca
anagrafica ci sia un pulsante che una volta premuto:
a) nel caso non sia presente un file del tipo ID_Cognome_Nome.doc me lo crei
all'interno di una determinata cartella e me lo apra in modo che io possa
modificarlo e quindi di salvarlo.
b) nel caso sia già presente un file del tipo ID_Cognome_Nome.doc me lo apra
in modo che io posso modificarlo e salvarlo
Eventualmente è possibile fare in modo che il file word sia aperto
all'interno della maschera stessa?
Spero di essere stato chiaro.
Ringrazio anticipatamente quanti risponderanno.


Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:3J7Qb.173492$_P.61...@news4.tin.it...

guarda, non sono un esperto ma ti copio incollo questo
è preso pari pari da 
www.sitocomune.it
 sezione general, esempio di
automazione con MSword
che tra l'altro ringrazio perchè spesso trovo cose utilissime
Private Sub cmdWord_Click()
    'Autore: Federico Luciani
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim blOpen As Boolean
    On Error Resume Next
    blOpen = True
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Set wordApp = CreateObject("Word.Application")
        blOpen = False
        Err.Number = 0
    End If
    On Error GoTo gestErrori
    Set wordDoc = wordApp.Documents.Add()
    With wordApp
        .Visible = True
        .Activate
        .Selection.Style = wordDoc.Styles("Titolo 1")
        .Selection.TypeText "Hello world!"
    End With
    If Not blOpen Then
        wordDoc.Close savechanges:=False
        wordApp.Application.Quit
    End If
esci:
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
End Sub

 ha scritto nel messaggio
news:PQ7Qb.133379$VW.53...@news3.tin.it...

Avevo già provato questo codice trovato sul sito comune ma praticamente al
momento del click mi apre word per una frazione di secondo e subito me lo
richiude non salvando nulla. Devo forse aggiungere il riferimento a qualche
libreria? Ho provato a aggiungere quella relativa a Word ma il risultato non
cambia.
Ciao

 ha scritto nel messaggio
news:bur1gu$sc6$1...@canarie.caspur.it...

Non trovo nulla che faccia al caso mio sul newsgroup e sul sito comune
l'esempio che c'è non mi funziona con Access XP.
Ciao


Ciao.
--
Sergio MAZZA

 Sergio MAZZA
Ho provato il codice da te postato e funziona "quasi" bene, ho detto quasi
perchè penso che ci sia qualcosa che non va nella prima parte dell'IF:
if  isnull(me!ID) then
     oApp.Documents.Add
     oApp.ActiveDocument.SaveAs "c:\documenti\" & nomeDoc
Se ho capito bene in questo modo se il documento ne crea uno nuovo, però non
deve essere l'ID nullo ma il file nomeDoc = Me!ID & "_" & Me!cognome & "_" &
Me!nome & ".doc" non deve esistere all'interno della cartella documenti.
Ciao e tantissime grazie.

 Ciao e tantissime grazie.
Nel mio primo messaggio ti indicavo l'utilizzo della funzione Dir (vedi
help); cambia l'if in:
If Dir("c:\documenti\" & nomeDoc) = "" then
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:burdag$2ct$1...@canarie.caspur.it...

Non so veramente come ringraziarti, mi hai risolto un grandissimo (almeno
per me) problema.
Grazie ancora.

 ha scritto nel messaggio
news:ZQaQb.134548$VW.53...@news3.tin.it...

.... accendi  un cero !
Ciao Daniele

 Grazie ancora.
Prego...
Ciao.
--
Sergio MAZZA