Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Ciao Marta,
guarda il lavoro fatto da Marco Pizzamiglio, completo di istruzioni ed esempi.
Ciao
Giorgio Rancati
Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
Buongiorno a tutti!
Qualcuno mi può indicare dove posso trovare all'interno della Community/Forum istruzioni passo-passo che mi spieghino come automatizzare la compilazione dei campi modulo di un modello Word da Access?
Ho provato a cercare con "Trova le risposte" ma non riesco a trovare nulla...
Eventualmente c'è qualche anima caritatevole e molto paziente che mi spiega come fare?
Grazie un miliardo!!!
Marta
Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Risposta accettata dall'autore della domanda
Ciao Marta,
guarda il lavoro fatto da Marco Pizzamiglio, completo di istruzioni ed esempi.
Ciao
Giorgio Rancati
Buongiorno Giorgio,
studiando il lavoro fatto da Marco Pizzamiglio sono perfettamente riuscita a far funzionare l'automazione Access/Word sul mio database...
E' vero, non sono un'esperta di codice VBA...
E' vero, non sono un programmatore...
E' vero, lo ammetto, con Access sono partita proprio da zero ma qualcosa sono già riuscita a fare (e per questo devo solo ringraziare tutti voi, utenti di questo bellissimo forum); mi sento portata con il codice VBA, anche se devo ancora studiare moltissimo (e in questo speravo, forse abusando un pò troppo della vostra pazienza e generosità, che mi avreste aiutato ancora una volta)...
Mi scuso, infine, se ho sparato una grossa cavolata "VBAana" (da perfetta ignorante) con quel mio: "Modello = CurrentDb.Recordset (SELECT * FROM SchemaFidejussioneProvvisoria)"...
Lasciando da parte la mia pallosa lagnanza logorroica, cerco di venire al dunque...
Volevo sapere se e come è possibile, modificando il codice di Marco Pizzamiglio associato all'evento click dell'interrutore "Esporta", esportare dati da due diverse maschere aventi entrambe origine in una stessa tabella; potrei costruire una sola maschera (e il codice mi funziona perfettamente) ma visto che i campi sono parecchi, ho trovato essere più elegante dal punto di vista puramente grafico dividere il tutto in due maschere.
Grazie per l'aiuto che vorrete concedermi.
Marta
Ciao Marta,
scusa ma dalle tue perplessità mi sembra di capire che in fatto di codice VBA sei molto a digiuno, purtroppo la "compilazione dei campi modulo di un modello Word da Access" richiede capacità da programmatore.
Forse ti conviene lasciar perdere il codice VBA e seguire la strada della stampa unione di Word e se questa strada non è percorribile perchè hai bisogno di un'automazione spinta, allora conviene commisionare il lavoro ad un professionista.
Ciao
Giorgio Rancati
Buongiorno Giorgio,
in relazione alla mia domanda sull'automazione Access-Word, volevo sapere come posso modificare il codice che ho preso dal lavoro di Marco Pizzamiglio affinché avendo due maschere con campi appartenenti alla stessa tabella denominata "SchemaFidejussioneProvvisoria", cliccando sull'interruttore "Esporta" presente sulla seconda maschera mi esporti i dati presenti in tutte e due le maschere nello stesso modello word prescelto.
In particolare, mi sembra di intuire che si potrebbe modificare la seguente parte di codice sottolineata, ma non so come (ho provato con Modello = CurrentDb.Recordset (SELECT * FROM SchemaFidejussioneProvvisoria) ma mi dà errore perché evidentemente c'è qualcosa di assolutamente sbagliato nella mia modifica):
Private Sub Esporta_Click()
Dim Wrd As Word.Application, Doc As Word.Document
Dim Rst As DAO.Recordset
Dim Modello As String, NomeFile As String, i As Integer
Dim Record As String, SQL As String
Dim Tbl As String * 1
Dim TotRiga As Currency, Totale As Currency
Dim ReplSel As Boolean
Modello = CurrentDb.Name
Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) & "ComunediVareseDichiarazioniOfferta.dot"
Come posso fare?
Grazie mille!
Marta
Buonasera Giorgio,
grazie mille per l'indicazione!
Buona serata.
Marta