Automazione access word link file doc associanti a maschera

di il
2 risposte

Automazione access word link file doc associanti a maschera

Buongiorno,
ho provato a cercare ma non ho trovato risposta.
Ho un database contenente per determinati modelli dei fogli di istruzioni in word
Tabella istruzioni:
Modello tipo testo (chiave primaria)
Istruzioni tipo Hyperlink ( dove metto il percorso del file dotx con automazione)
Poi in una altra tabella “Prodotti” ho sempre
Modello tipo testo (chiave primaria)
numero di serie testo indicizzato
adesso da se da una maschera di inserimento prodotti avvio un automazione di apertura di file dotx e compilazione di un campo funziona solo se:
nella riga di codice scrivo indirizzo direttamente
Set Doc = Wrd.Documents.Add("C:\istruzioni\istruzioni1.dotx")
Doc.Activate
Al posto dell'indirizzo voglio creare una una variabile che sfrutti il campo di testo "istruzioni" dell maschera di immissione per richiamare file corretto, ma non riesco a definire la variabile
Ho provato con:
Dim istruzionilink As hyperlink
istruzionilink = Me.istruzioni
Set Doc = Wrd.Documents.Add(istruzionilink)
ma non funziona
qualcuno saprebbe come fare?
ho fatto anche altri tentativi ma senza successo
grazie

2 Risposte

  • Re: Automazione access word link file doc associanti a maschera

    1. Quando scrivi righe di codice VBA o SQL abbi cura di SELEZIONARLO, poi clicca sul tasto in alto CODE (devi scrivere in modalità "Editor completo & Anteprima" per vedere il tasto CODE).
    Ciò aiuta il colpo d'occhio degli utenti abituati a leggere i codici con i caratteristici caratteri monotype stile Courier New e similari…

    2. Io non ho mai usato la strategia che dici tu, ma mi affido alla veridicità di

    mauroone ha scritto:


    se da una maschera di inserimento prodotti avvio un automazione di apertura di file dotx e compilazione di un campo funziona solo se:
    nella riga di codice scrivo indirizzo direttamente
    Set Doc = Wrd.Documents.Add("C:\istruzioni\istruzioni1.dotx")
    Doc.Activate
    Quindi (secondo me) potresti correggere così
    Dim istruzionilink As String
    istruzionilink = Me!istruzioni
    Set Doc = Wrd.Documents.Add(istruzionilink)
  • Re: Automazione access word link file doc associanti a maschera

    Grazie!!!!!

    funziona
Devi accedere o registrarti per scrivere nel forum
2 risposte