Access 2007

Question

Salve, vorrei poter creare un database di Access per la gestione di file di testo word, per esempio da una maschera access (una volta create tabelle con elenchi di tipologia testi) poter tramite un elenco a discesa effettuare una scelta testo e/o modello (raccolti questi in apposite cartelle) e richiamarlo così direttamente dalla maschera per poterlo aprire e modificare. Non avendo grande dimestichezza con i database però non so se sia possibile richiamare i file di word semplicemente dall'elenco a discesa oppure sia necessario creare report di testo per poi poterli collegare tramite relazioni alle tabelle ed alle voci singole... Grazie per l'aiuto.

Answer 1

NOTA BENE:

Se il problema è solo quello di Aprire un Documento di Word (da Access)

(cioè se il documento di Word non è correlato ad altri dati nel database)

NON SERVE Memorizzare i testi (o modelli) in una tabellama basta solo la "Dialog Box" per andare a cercare il file

e poi aprirlo con Word

Esempio: sulla maschera di Access  metto il pulsante che apre la DialogBox (che chiamiamo cmdApriDoc)  e sull'evento Click ...

Private Sub cmdApriDoc_Click()

      Dim fName, wordApp

      dim txtPath   ' PERCORSO DOVE SI TROVANO I DOCUMENTI   

      txtPath="C:\MieiDocumenti"

wordApp = "C:\Program Files\Microsoft Office\Office15\WINWORD.EXE "   ' DIPENDE DALLA VERSIONE Office Installata!!

       Dim f As Object

      Set f = Application.FileDialog(1)   ' apre la finestra di dialogo per selezionare il file ... 

      f.InitialFileName = txtPath            

      On Error Resume Next

      f.Show

      fName = "" & f.SelectedItems(1)   ' FILE SELEZIONATO     ( se seleziono un file il suo nome viene salvato in fName)

      if  fName>"" then                         

         Shell wordApp & " " & fName

     End If

End Sub

Infatti, il problema ésolo quello di creare un database di ricerca testi

appena avró tempo ci. proveró. e ti faró sapere, Grazie ancora :)))

Answer 2

Non è difficile ma richiede un minimo di conoscenze di programmazione:

0.  Occorre SAPERE QUALE versione di Word è in uso e DOVE è installata sul computer

     e definire il nome completo del file WINWORD.EXE (che è il programma WORD)

     ... in alternativa si potrebbe usare una Function delle API di Windows  che si chiama FindExecutable

ma richiede una conoscenza approfondita dell'uso delle API 

1.  La tabella che conterrà l'elenco dei file Word da aprire deve avere il Campo Tipo Testo 

     (percorso_completo_del file\ nome_del_file      (esempio:  C:\MieiDocumenti\TestiStandard\Testo1.docx)

2.  Usare la DialogBox di Access per Cercare il Documento e "popolare la tabella" 

3.  Una volta inseriti i file nella tabella, se si crea una "ComboBox" cioè una tendina

     per scegliere il documento, aggiungere anche un pulsante per aprire il file in Word

     (supponendo che la "Tendina" da cui li scegli si chiami txtNomeFile  ... 

      occorre inserire l'evento "su Click" al Pulsante    esempio:  (se il pulsante si chiama cmdApriDoc)

Private Sub cmdApriDoc_Click()

       Dim fName, wordApp

wordApp = "C:\Program Files\Microsoft Office\Office15\WINWORD.EXE "   ' DIPENDE DALLA VERSIONE Office Installata!!

       fName = me.txtNomeFile

      If Dir(fName) >"" then 

             Shell wordApp & " " & fName

      Else

          Msgbox "File " & fName & vbCrLf & " NON TROVATO"

      End If

 End Sub

NOTA BENE:

Se il problema è solo quello di Aprire un Documento di Word (da Access)

(cioè se il documento di Word non è correlato ad altri dati nel database)

NON SERVE Memorizzare i testi (o modelli) in una tabellama basta solo la "Dialog Box" per andare a cercare il file

e poi aprirlo con Word

Esempio: sulla maschera di Access  metto il pulsante che apre la DialogBox (che chiamiamo cmdApriDoc)  e sull'evento Click ...

Private Sub cmdApriDoc_Click()

      Dim fName, wordApp

      dim txtPath   ' PERCORSO DOVE SI TROVANO I DOCUMENTI   

      txtPath="C:\MieiDocumenti"

wordApp = "C:\Program Files\Microsoft Office\Office15\WINWORD.EXE "   ' DIPENDE DALLA VERSIONE Office Installata!!

       Dim f As Object

      Set f = Application.FileDialog(1)   ' apre la finestra di dialogo per selezionare il file ... 

      f.InitialFileName = txtPath            

      On Error Resume Next

      f.Show

      fName = "" & f.SelectedItems(1)   ' FILE SELEZIONATO     ( se seleziono un file il suo nome viene salvato in fName)

      if  fName>"" then                         

         Shell wordApp & " " & fName

     End If

End Sub

Answer 3

ciao MariaCristina,

se effettui una ricerca nel forum trovi un sacco di materiale a disposizione :

https://answers.microsoft.com/it-it/search/search?SearchTerm=%20automazione%20word&tab=&status=all&advFil=&IsSuggestedTerm=false&isFilterExpanded=undefined&CurrentScope.ForumName=msoffice&CurrentScope.Filter=&ContentTypeScope=&page=1&sort=Relevance&dir=Desc

Quanto chiedi e' fattibile, ma se non hai troppa dimestichezza con l'automazione e VBA credo sia molto difficile che tu ti possa raccapezzare…. Prova a darci un occhio e valuti se si confa' alle tua attuali conoscenza oppure no.

HTH. Ciao, Sandro.

Ciao Sandro grazie mille ti faró sapere👍��

Answer 4

ciao MariaCristina,

se effettui una ricerca nel forum trovi un sacco di materiale a disposizione :

https://answers.microsoft.com/it-it/search/search?SearchTerm=%20automazione%20word&tab=&status=all&advFil=&IsSuggestedTerm=false&isFilterExpanded=undefined&CurrentScope.ForumName=msoffice&CurrentScope.Filter=&ContentTypeScope=&page=1&sort=Relevance&dir=Desc

Quanto chiedi e' fattibile, ma se non hai troppa dimestichezza con l'automazione e VBA credo sia molto difficile che tu ti possa raccapezzare….

Prova a darci un occhio e valuti se si confa' alle tua attuali conoscenza oppure no.

HTH.

Ciao, Sandro.