Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 10 su 10

scrivere pagina word da vba access

  1. #1
    angelo_dima non è in linea Novello
    Buonasera, vi chiedo aiuto per un problema di interazione access word che dal forum non riesco a risolvere, vorrei scrivere una pagina word come l'esempio sotto

    INTESTAZIONE
    titolo di esempio
    Testo di esempio: di seguito tabella esempio:
    ……..tabella da query di access ( dovrà comparire una tabella con origine una query di access)
    Altro testo di esempio:
    ….…altra tabella da query di access ( dovrà comparire una tabella con origine una query di access)

    dal forum ho preso spunto per capire come aprire un file word da un modello.dot che al suo interno ha dei campi modulo che alimento con dati dal db access ma mi blocco se devo aggiungere una tabella dinamica che ha origine da una query di access

    grazie anticipatamente

  2. #2
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Scusa ma che difficoltà trovi nello specifico...?
    Registra una macro in word, con cui crei una tabella, guardi il codice e lo modifichi in basebal numero di records del recordset aperto per scriverci...
    Leggi anche questo magari:
    https://docs.microsoft.com/it-it/vis...s?view=vs-2019
    ℹ️ Leggi di più su @Alex ...

  3. #3
    angelo_dima non è in linea Novello
    hai ragione Alex, sembrerebbe facile ma per me non lo è,sono riuscito a creare il file word vuoto e a scriverci il testo e anche una tabella ma non capisco xchè non riesco ad aprire un file word .dot come modello dove ci sono dei segnalibri che identificano il punto dove voglio che venga inserita la tabella che verrà alimentata dalla query di access, scusami se non sono molto chiaro

  4. #4
    angelo_dima non è in linea Novello
    Buongiorno, avrei un problema con queste istruzioni, sto cercando di aprire una query con criteri legati a caselle di testo su una form ma al set rs mi da il seguente errore "errore run-time "3061" parametri insufficienti. Previsto 1"

    Dim db As dao.Database
    Dim rs As dao.Recordset
    nomequery = "mens_Pfspdarivedere"
    Set db = CurrentDb
    Set rs = db.OpenRecordset(nomequery, 2)

    sto perdendo la testa di capire come risolvere
    grazie anticipatamente a chi vorrà aiutarmi

  5. #5
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Secondo te noi da quel codice cosa capiamo...?
    Il problema è il predicato della Query sicuramente, e non lo hai postato...!!!!

    Postalo risolto con le variabili così
    Dim db As dao.Database
    Dim rs As dao.Recordset
    nomequery = "mens_Pfspdarivedere"
    Set db = CurrentDb
    Debug.Print db.QueryDefs(nomequery).SQL
    STOP  <---- Quì si ferma guarda in finestra immediata il predicato SQL e postalo.
    Set rs = db.OpenRecordset(nomequery, 2)
    
    ℹ️ Leggi di più su @Alex ...

  6. #6
    L'avatar di gibra
    gibra non è in linea Very Important Person
    Quote Originariamente inviato da angelo_dima Visualizza il messaggio
    sto cercando di aprire una query
    Ma questo cosa c'entra con la discussione in corso?
    ℹ️ Leggi di più su gibra ...

  7. #7
    angelo_dima non è in linea Novello
    Si scusate con la discussione postato così sembra che non c'entri in realtà mi serve aprire la query e leggere i record con un ciclo while rs.not.eof e scrivere ogni record in un punto specifico della pagina word che apro piu avanti partendo da un modello, dalla finestra immediata questo è il testo
    SELECT [NEW PF1].[Port Tag] AS PORTO, [NEW PF1].[Nome Port Facilty] AS [NOME IMPIANTO], [NEW PF1].id_imo AS UNILOCODE, [NEW PF1].DT_REV_PFSA AS [DATA ULTIMO PFSA], data_ass([DT_APP_PFSP],[DT_REV_PFSP]) AS [DATA ULTIMO PFSP], [NEW PF1].sitmensile AS SITUAZIONE, DateAdd("d",90,[DT_REV_PFSA]) AS [DATA PRESUNTA APPROVAZ NUOVO PFSP]
    FROM PORTI RIGHT JOIN [NEW PF1] ON PORTI.ID = [NEW PF1].ID_PORTO
    WHERE ((([NEW PF1].DT_REV_PFSA) Is Not Null And ([NEW PF1].DT_REV_PFSA)<=Nz(Maschere!mensile!datareport,Now( ))) And ((data_ass([DT_APP_PFSP],[DT_REV_PFSP]))<[NEW PF1]!DT_REV_PFSA))
    ORDER BY PORTI.IDDIREZ, [NEW PF1].[Port Tag];

    spero che si capisca
    ciao e grazie

  8. #8
    angelo_dima non è in linea Novello
    HO ANALIZZATO LA SQL E FACENDO VARI TENTATIVI escludendo uno alla volta i criteri HO CAPITO CHE L'ERRORE STA NEL CRITERIO "[NEW PF1].DT_REV_PFSA)<=Nz(Maschere!mensile!datareport,date ())"

    ma non riesco a capire cosa è che non va
    ciao

  9. #9
    L'avatar di gibra
    gibra non è in linea Very Important Person
    Quote Originariamente inviato da angelo_dima Visualizza il messaggio
    Si scusate con la discussione postato così sembra che non c'entri in realtà mi serve aprire la query e leggere i record
    Appunto! NON ha niente a che vedere con la discussione.
    Se si ragiona in questo modo allora qualsiasi argomento diventa 'inerente'; dal creare una maschera, aprire una connessione al db, salvare dati, creare un programma, e via discorrendo...
    Ogni post deve restare 'In Topic'.
    La discussione parla di file Word, l'accesso ai dati è un'altra cosa.
    Se hai ALTRI problemi devi aprire una nuova discussione.
    ℹ️ Leggi di più su gibra ...

  10. #10
    angelo_dima non è in linea Novello
    ok ho capito chiedo scusa allora apro un altra discussione per l'accesso ai dati per questo specifico problema
    grazie

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Leggere una pagina WEB e scrivere i dati in una tabella access
    Da Lottowiz2007 nel forum Visual Basic .Net
    Risposte: 42
    Ultimo Post: 11-03-2021, 14:46
  2. Access-Word: inserimento note a piè pagina via VBA
    Da Jocman nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 05-08-2016, 16:17
  3. Scrivere un valore nel piè di pagina di excell
    Da Carmen nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 08-02-2008, 15:36
  4. Risposte: 1
    Ultimo Post: 26-07-2006, 18:31
  5. [vba]scrivere dati all’interno di word
    Da aakiraa nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 21-07-2004, 22:11