[MS Access] Passare i dati di una query da form a report

Max61

Utente Attivo
2 Mar 2014
740
4
18
Salve sono ancora a chieder lumi a chi ne sa più di me, ho la necessità di inviare i dati di una query che prendi i valori (Anagrafica.AnnoRichiestaUtente e Verbali.VerbaleNumero) da 2 tabelle (Anagrafica e Verbali) con i parametri selezionati nella sottomaschera Verbali di access.
Adesso se lancio la query da sola mi chiede i parametri AnnoRichiestaUtente e VerbaleNumero, una volta dati mi seleziona i record giusti, ma se la stessa query la lancio dalla sottomaschera non mi trova alcun record, è come se quei parametri non arrivassero alla query.
Allego codice query:
Codice:
SELECT Verbali.IDVerbaliAnagrafica, Anagrafica.ID, Anagrafica.Nominativo, Anagrafica.Num_Pratica, Verbali.VerbaleNumero, Verbali.DataVerbale, Verbali.DecisioneGil, Verbali.StatoPratica, Verbali.NoteVerbale, Verbali.RespTecnico, Verbali.RespPoliziaMunicipale, Verbali.UffAttivita1, Verbali.RespverdeUrbano, Verbali.AvvocatoEsterno, Verbali.ConsulenteCompagniaAssicurazioni, Verbali.CompagniaAssicurativa, Anagrafica.DataSinistro, Anagrafica.OraSinistro, Anagrafica.ViaSinistro, Verbali.UffAttivitaAssicurativa1, Verbali.RespEconomato, Anagrafica.LocalitaSinistro, Verbali.[Verbale N_1], Verbali.UfficioLegale, Anagrafica.AnnoRichiestaUtente
FROM Anagrafica INNER JOIN Verbali ON Anagrafica.ID = Verbali.IDVerbaliAnagrafica
GROUP BY Verbali.IDVerbaliAnagrafica, Anagrafica.ID, Anagrafica.Nominativo, Anagrafica.Num_Pratica, Verbali.VerbaleNumero, Verbali.DataVerbale, Verbali.DecisioneGil, Verbali.StatoPratica, Verbali.NoteVerbale, Verbali.RespTecnico, Verbali.RespPoliziaMunicipale, Verbali.UffAttivita1, Verbali.RespverdeUrbano, Verbali.AvvocatoEsterno, Verbali.ConsulenteCompagniaAssicurazioni, Verbali.CompagniaAssicurativa, Anagrafica.DataSinistro, Anagrafica.OraSinistro, Anagrafica.ViaSinistro, Verbali.UffAttivitaAssicurativa1, Verbali.RespEconomato, Anagrafica.LocalitaSinistro, Verbali.[Verbale N_1], Verbali.UfficioLegale, Anagrafica.AnnoRichiestaUtente
HAVING (((Verbali.VerbaleNumero)=[Forms]![Elenco]![VerbaleNumero]) AND ((Anagrafica.AnnoRichiestaUtente)=[Forms]![Elenco]![AnnoRichiestaUtente]))
ORDER BY Anagrafica.Num_Pratica, Verbali.VerbaleNumero, Verbali.DataVerbale;

Il report associato alla query lo lancio con questo codice:
Codice:
        stRepName = "VerbaleGIL_ALL_Numero_Anno_Verbale"
        where_id = where_id & "[Verbali.VerbaleNumero]=" & Me.SelezionaNumeroVerbale
        where_id = where_id & " and [Anagrafica.AnnoRichiestaUtente]=" &             Me.SelezionaAnnoRichiestaUtente
        DoCmd.OpenReport stRepName, acPreview, , where_id
        DoCmd.SelectObject acReport, "VerbaleGIL_ALL_Numero_Anno_Verbale", False
        DoCmd.RunCommand acCmdPrint
        DoCmd.Close acReport, "VerbaleGIL_ALL_Numero_Anno_Verbale"

Il mio intento è quello di poter selezionare il numero di verbale e l'anno di competenza in contemporanea, perchè lo stesso numero di verbale può essere riferito ad anni diversi.
Grazie per l'aiuto
Max61
 
Ultima modifica:

CarlettoFed

Utente Attivo
17 Lug 2017
101
1
18
70
Se potessi allegare un file, bastano alcuni record, la cosa sarebbe più semplice da capire.
Comunque 2 domande :
  1. Nella prima query perchè usi il raggruppamento se comunque poi prendi anche il campo
    DataVerbale che rende sicuramente il record univoco, potrebbe nel caso di un numero elevato di record la risoluzione della stessa e quindi la visualizzazione dei dati.
  2. La query relativa all'Origine dati del report è sempre la stessa, cioè la prima che hai pubblicato
Quando la stessa query costituisce l'Origine dati della sottomaschera il filtro deve essere impostato da controlli che debbono essere inseriti nella Maschera che contiene la sottomaschera in quanto i parametri inseriti nella query è come se non ci fossero.

Poi un consiglio la struttura del database dovrebbe almeno essere :
  • tabella Anagrafiche
    • IDAnagrafica
    • Nominativo (meglio Cognome, Nome)
    • ed altri dati anagrafici come potrebbere essere :
      • CodiceFiscale
      • Indirizzo
      • Città
      • Recapiti vari (Telefono, Email, ecc..)
      • ecc...
  • tabella Sinistri
    • IDSinistro
    • IDAnagrafica
    • Num_Pratica
    • DataSinistro
    • OraSinistro
    • ViaSinistro
    • LocalitaSinistro
      AnnoRichiestaUtente (secondo me non dovrebbe essere necessario in quanto ricavabile dalla DataSinistro)
  • tabella Verbali
    • IDVerbale
    • IDSinistro
    • VerbaleNumero
    • ecc...
in quanto un'Anagrafica può avere uno o più Sinistri ed un Sinistro può avere uno o più Verbali, se ho capito bene.
 

Max61

Utente Attivo
2 Mar 2014
740
4
18
Grazie mille CarlettoFed, ma proprio pochi minuti fa sono riuscito nell'intento, cioè passare due parametri al report.
Praticamente avevo messo la richiesta di parametri nella query ([Forms]![Elenco]![VerbaleNumero] e
[Forms]![Elenco]![AnnoRichiestaUtente]), tolti questi dalla query è tutto perfetto.
Allego query:
Codice:
SELECT Verbali.IDVerbaliAnagrafica, Anagrafica.ID, Anagrafica.Nominativo, Anagrafica.Num_Pratica, Verbali.VerbaleNumero, Verbali.DataVerbale, Verbali.DecisioneGil, Verbali.StatoPratica, Verbali.NoteVerbale, Verbali.RespTecnico, Verbali.RespPoliziaMunicipale, Verbali.UffAttivita1, Verbali.RespverdeUrbano, Verbali.AvvocatoEsterno, Verbali.ConsulenteCompagniaAssicurazioni, Verbali.CompagniaAssicurativa, Anagrafica.DataSinistro, Anagrafica.OraSinistro, Anagrafica.ViaSinistro, Verbali.UffAttivitaAssicurativa1, Verbali.RespEconomato, Anagrafica.LocalitaSinistro, Verbali.[Verbale N_1], Verbali.UfficioLegale, Anagrafica.AnnoRichiestaUtente
FROM Anagrafica INNER JOIN Verbali ON Anagrafica.ID = Verbali.IDVerbaliAnagrafica
GROUP BY Verbali.IDVerbaliAnagrafica, Anagrafica.ID, Anagrafica.Nominativo, Anagrafica.Num_Pratica, Verbali.VerbaleNumero, Verbali.DataVerbale, Verbali.DecisioneGil, Verbali.StatoPratica, Verbali.NoteVerbale, Verbali.RespTecnico, Verbali.RespPoliziaMunicipale, Verbali.UffAttivita1, Verbali.RespverdeUrbano, Verbali.AvvocatoEsterno, Verbali.ConsulenteCompagniaAssicurazioni, Verbali.CompagniaAssicurativa, Anagrafica.DataSinistro, Anagrafica.OraSinistro, Anagrafica.ViaSinistro, Verbali.UffAttivitaAssicurativa1, Verbali.RespEconomato, Anagrafica.LocalitaSinistro, Verbali.[Verbale N_1], Verbali.UfficioLegale, Anagrafica.AnnoRichiestaUtente
ORDER BY Anagrafica.Num_Pratica, Verbali.VerbaleNumero, Verbali.DataVerbale;
Ciao e grazie ancora per l'interessamento
Max61
 

marino51

Utente Attivo
28 Feb 2013
3.203
207
63
Lombardia
Praticamente avevo messo la richiesta di parametri nella query ([Forms]![Elenco]![VerbaleNumero] e
[Forms]![Elenco]![AnnoRichiestaUtente]), tolti questi dalla query è tutto perfetto.
ottimo che tu abbia ottenuto il risultato
quindi non avevi bisogno delle clausole WHERE o HAVING, perché hai incluso nel report tutto il set estratto,
oppure i filtri li hai applicati da un'altra parte
 
  • Like
Reactions: Max61
Discussioni simili
Autore Titolo Forum Risposte Data
I Passare record Database access a Java Javascript 0
P Access: recuperare Indice dopo un insert into MS Access 0
N Access: Filtro su maschera MS Access 0
B Non riesco a trovare i cognomi con i caratteri speciali in Access (Microsoft 365) MS Access 0
N Errore interno Access MS Access 2
C ACCESS Aprire maschera se valore non presente in una combo MS Access 7
L Access Periodo maschera continua MS Access 4
B Aumento dimensioni grafico Access Database 0
R [C#] Quali dipendenze occorrono su progetto "Setup" con Access Database? .NET Framework 1
G Appicazione HTML per inserimento dai in Database Access Microsoft HTML e CSS 0
K mc Access/phpmyamin MS Access 0
L Collegare un form html ad un database access Javascript 2
R salve a tutti sono un insegnante di pianoforte e a tempo perso mi sto dedicando ad access Presentati al Forum 1
G Access point con rete guest, consigli? Reti LAN e Wireless 0
P Access Inserimento data. MS Access 4
ges Microsoft ACCESS oltre ogni limite (tre manuali) Altri Annunci 2
@ [MS Access] Funzione Iif..is null... Database 0
P [MS Access] Sostituire un carattere in tutta la tabella MS Access 11
B tasti rapidi Access MS Access 1
M [MS Access] Pulsante su maschera che esegue azioni su altra maschera MS Access 3
C [MS Access] Pagina di dialogo con allegati MS Access 1
F Modificare report di etichette di access con vba MS Access 0
strambotto [MS Access] Smembramento tabella MS Access 5
D [MS Access] Piu' maschere con una sola tabella dati... MS Access 0
G [MS Access] Funzione ARROTONDA non definita nell'espressione MS Access 1
Spenalzo Creare tabelle multiple con Access via VBA MS Access 2
M [MS Access] Relazione tra maschere MS Access 1
G Access Point POE da esterno Reti LAN e Wireless 0
M [MS Access] controllo valido se MS Access 8
N [MS Access] Come relazionare DB Libri trasposti in Film e viceversa MS Access 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
D [MS Access] MS Access 2
S [MS Access] Apertura Maschera su nuov record in base a determinato ID MS Access 0
maria_ia Microsoft Access Windows e Software 0
S [MS Access] Apertura maschera MS Access 3
S [MS Access] trasformare un numero in lettere in un report MS Access 1
D [Visual Basic] [MS Access] query con parametro di testo Visual Basic 4
T mysql tutorial per importare tabelle access in mysql aiuto MySQL 2
P [MS ACCESS] Estrarre più somme da una query MS Access 4
D [MS Access] problemi con inserimento campo in una maschera MS Access 6
F [MS Access] Creare [stringa] da caselle combinate MS Access 0
D [MS Access] aiuto non riesco a capire MS Access 6
Arcadia [MS Access] Focus su campo specifico MS Access 1
akira [MS Access] Apertura recordset MS Access 1
V access 2007, maschera con caselle di selezione Programmazione 4
W [MS Access] Barre di scorrimento su maschere MS Access 0
A [MS Access] Pulsante per inserire allegati in campo maschera MS Access 0
J [MS Access] Filtro su combo in sottomaschera MS Access 11
Arcadia [MS Access] Implementazione progetto con nuove funzioni. MS Access 0
A [MS Access] Aprire maschera con sottomaschera su ultimo record MS Access 0

Discussioni simili