[Risolto] Macro per aprire un rapporto filtrato

[congiu.andr]

Buon giorno, avrei bisogno di una macro per il database allegato.
Nel formulario MENU è presente un sub-formulario con dei nomi (in questo caso di cartoni animati) e un pulsante "Pulsante macro mancante".
Supponiamo che mi posiziono sul record di Goldrake poi al rilascio del pulsante del mouse su "Pulsante macro mancante" la macro dovrebbe aprirmi il rapporto "Rapporto storico tutti" ma, solo con i valori di Goldrake.
Senza tale filtro mi visualizzerebbe tutti i dati di tutte le persone.

Nota: esiste una chiave primaria ID RESIDENTE ma nel sub-formulario è solo nascosta per guadagnare spazio.

Vi ringrazio e buona serata

andrea

[Mizio1961]

Ciao
Intanto che dò un occhiata al tuo DB guarda in questo post viewtopic.php?f=13&t=4899 dove abbiamo già affrontato il problema di cui parli.
Le macro sono all'interno di una libreria nominata Mizio
Saluti... per ora

[congiu.andr]

Le macro sono all'interno di una libreria nominata Mizio

Ciao, grazie che ti interessi al mio problemino, ho scaricato il db e poi ho provato a modificare la macro da te citata, non ci sono riuscito.
Rimango in attesa.

per ora molte grazie

saluti
andrea

[Mizio1961]

Ciao
E' stato più complesso del previsto ma dovrebbe funzionare
Fai sapere se ok o no
Saluti

[congiu.andr]

Ciao, hai già fatto un grande lavoro e ci sei andato Molto vicino, se solo mi fossi spiegato meglio all'inizio.
Hai associato la macro al pulsante “Stampa i prelievi da fare” ma, quella andava bene in quanto mi stampa una lista di tutti i prelievi da fare (comoda per l'organizzazione a colpo d'occhio). Ma questa è una sciocchezza.
La tua macro ha la funzione di creare uno storico dei prelievi fatti e quelli da fare del residente scelto; la query che filtra questi dati è; Query Tutti prelievi.
Ho notato che hai creato un nuovo rapporto, mi spiace averti fatto fare anche questo ma, era già pronto: Rapporto storico tutti.
Ho apportato alcune modifiche al db ma, di poco conto.
Ho predisposto il pulsante “Storico prelievi del residente” che, alla sua pressione dovrebbe fare ciò che segue:
Aprire il Rapporto storico tutti e
riversarci dentro i prelievi fatti e da fare del residente scelto.

Allego il nuovo db che ho ripulito lasciando solo il necessario, è diventato troppo grosso.

Quello che stai facendo per noi è preziosissimo e vorremmo ringraziarti inserendo nel db chi ha realizzato la macro, posso farlo? e se si cosa scrivo?

Grazie e ancora grazie infinite.

[Mizio1961]

Ciao
Ho creato un nuovo report in quanto a me il tuo non acquisiva i dati.
Per questo vorrei sapere se il report Rapporto Storico Tutti che trovo in Prelievi2.odb a te carica i dati della Query Tutti prelievi o no, perchè provando sul mio PC non li carica.
Per la citazione se vuoi puoi mettere By Mizio altrimenti lo dirai direttamente quando dovessero chiedertelo, dando il mio riferimento su questo forum
Saluti

[congiu.andr]

Ciao, si il Rapporto storico tutti carica i dati dalla Query Tutti prelievi.
Ciao e grazie

[Mizio1961]

Ciao
In allegato il tuo file con la funzionalità assegnata e attivata.
Un consiglio sul come organizzare il lavoro di sviluppo in Base, ma anche in generale:
- Usare nomi brevi e sigle per qualsiasi oggetto, ad esempio T per Tabella, Q per Ricerca, R per Report di stampa
- Evitare spazi nei nomi per qualsiasi oggetto, ad esempio T_Resid per Tabella Residenti o Nominativo per 'COGNOME E NOME'
In questo modo diventa tutto più semplice
Saluti e ... buon divertimento

[congiu.andr]

Grazie Mizio
sei stato fantastico e gentilissimo per avermi aiutato e, farò tesoro del tuo consiglio sui nomi, hai ragione più semplici sono meno è la possibilità di errore.
Ho inserito la tua macro nel dBase completo e funziona alla grande. Guardando il codice credo di aver capito che è facilente adattabile in altri db e penso che per far questo basto solo modificare sono i nomi della seguente parte

'---------------------------------------------'
oForm = oEvent.Source.Model.Parent ' ACQ. FORM CORRENTE
oCtrl = oForm.getByName("MainForm_Grid") ' GRID CONTROL
sIDPaz = oCtrl.getByName("COGNOME E NOME").text
sFltRp = """Tabella Residenti""" & "." & """COGNOME E NOME""" & " = '" & sIDPaz & "'" ' FILTRO PER LA STAMPA
sNameDB = "CA_Prelievi2.odb" ' NOME FILE BASE SU CUI SI OPERA
sNameRp = "Rapporto storico tutti" ' REPORT DA APRIRE
sNmQry = "Query Tutti prelievi" ' QUERY DA FILTRARE
sNmFrm = "ReportSource" ' NOME FORM MAIN IN REPORT
cmdOpenReport(sNameDB, sNameRp, sFltRp, sNmQry, sNmFrm) ' APRI REPORT
end sub

Se non arreco disturbo avrei bisogno di spiegazioni sulle seguenti tre righe:
sIDPaz = oCtrl.getByName("COGNOME E NOME").text
sFltRp = """Tabella Residenti""" & "." & """COGNOME E NOME""" & " = '" & sIDPaz & "'" ' FILTRO PER LA STAMPA
sNmFrm = "ReportSource" ' NOME FORM MAIN IN REPORT

Ps: ho inserito una riga Rem per citare la provenienza della macro

Grazie ancora
Saluti
andrea

[Mizio1961]

Ciao Andrea
Giusta interpretazione per il codice, l'altra macro è una funzione che usa i dati della prima per funzionare su qualsiasi report.
Delle righe che mi segnali:
- La prima serve per acquisire il dato dalla scelta del residente che viene fatta nel formulario
- La seconda crea la parte di comando SQL che personalizza la query in base al valore di sIDPaz
- La terza è il nome del report all'interno della sua struttura, che per default viene impostato a ReportSource
Saluti

[congiu.andr]

Grazie

ciao