+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 4 su 4

Discussione: Impostare RecordSource in Report da VBA

  1. #1
    OsvaldoLaviosa non è in linea Topo di biblioteca
    Luogo
    Conversano
    Post
    2,905

    Impostare RecordSource in Report da VBA

    Ho 7 query che si chiamano:
    EtichetteNominativi
    EtichetteNonSoci
    EtichetteSoci
    EtichetteSociPosta
    IndirizziSoci
    Soci
    SociMorosi

    A queste 7 query "corrisponderebbero" altrettanti 7 report omonimi. Si dà il caso che i 4 che cominciano per "Etichette..." hanno la stessa struttura. Di conseguenza vorrei avere un solo report Etichette e su di esso caricare la corrispondente query scelta da una casella combinata in una maschera.
    Nella porzione di codice VBA che gestirebbe questa cosa ho scritto così:
    codice:
    If Left(Me!Scelta, 9) = "Etichette" Then
            DoCmd.OpenReport "Etichette", acViewPreview, , , , Me!Scelta
            Else
            DoCmd.OpenReport Me!Scelta, acViewPreview
    End If
    Poi "Su caricamento" del report Etichette ho scritto
    codice:
    Me.RecordSource = Me.OpenArgs
    Mi appare il seguente
    Errore run-time 2191
    Impossibile impostare la proprietà Origine record in anteprima di stampa o dopo l'avvio della stampa

    Ho provato pure a non giocare la carta del OpenArgs e impostare subito dopo OpenReport
    codice:
    Reports!Etichette.RecordSource = Me!Scelta
    ma ottengo lo stesso errore.
    Come posso risolvere?
    Ditemi i campi di tutte le vostre tabelle.

  2. #2
    Phil_cattivocarattere non è in linea Scribacchino
    Luogo
    Verona-Mantova
    Post
    1,613
    Quote Originariamente inviato da OsvaldoLaviosa Visualizza il messaggio
    ...
    Poi "Su caricamento" del report Etichette ho scritto
    codice:
    Me.RecordSource = Me.OpenArgs
    Mi appare il seguente
    Errore run-time 2191
    Impossibile impostare la proprietà Origine record in anteprima di stampa o dopo l'avvio della stampa

    ...
    Prova "Su apertura", anziché "Su caricamento".

  3. #3
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    15,918
    Di solito si usa una query e si modifica il predicato SQL...
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

  4. #4
    OsvaldoLaviosa non è in linea Topo di biblioteca
    Luogo
    Conversano
    Post
    2,905
    Quote Originariamente inviato da Phil_cattivocarattere Visualizza il messaggio
    Prova "Su apertura", anziché "Su caricamento".
    Funziona! Grazie.
    Ditemi i campi di tutte le vostre tabelle.

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi