Newsgroup: it.comp.appl.access
Titolo: Cornice Opzioni problema...........

Scusate le mie sempre + frequenti visite ma grazie a queste mie "visite" ho
imparato moltissimo è vorrei continuare ad imparare,il problema mi è sorto
non avendo molto spazio nella maschera per poter aprire i vari report quindi
mi è venuta la "Splendida" idea di costruirmi una maschera separata in cui
poter scegliere le varie "Opzioni"
che ho chiamato "Visualizzazione_Report",in questa maschera ho messo 3
pulsanti di opzione che ho chiamato:
Caricati: valore =1
Scaricati valore =2
Tutti i record valore =3
ed un pulsante di comando che chiamo "Apri report"
tutto questo dovrebbe ruotare attorno ad un report che contiene un campo
chiamato "Carico/Scarico" formato SI/NO,sono stato fino a stamattina alle 3
cercando di provare a trovare una soluzione ma ho capito che + andavo avanti
+ che capivo di meno.......
Praticamente a secondo del pulsante che è attivo mi dovrebbe filtrare il
campo "Carico/Scarico" oppure mostrarmi tutti i record utilizzando un solo
report....
idea Utopica.......?!?!?
Vi ringrazio anticipatamente per tutti i vostri consigli.....
Gianni_B

 ha scritto nel messaggio
news:4011274c$1...@news.bluewin.ch...

Se la maschera dalla quale apri il report e che contiene la Cornice opzioni
ed il pulsante di comando si chiama "Visualizzazione_Report".
Se la Cornice opzioni si chiama MieOpzioni.
Se i carichi hanno il campo CaricoScarico con il valore Vero.
Se gli scarichi hanno il campo CaricoScarico con il valore Falso.
A fronte dell'evento "Su clic" del pulsante di comando apri il report con il
metodo OpenReport (vedi help).
A fronte dell'evento "Su apertura" del report genera il seguente codice VBA:
If Forms![Visualizzazione_Report]!MieOpzioni = 1 Then
    Me.Filter = "CaricoScarico = True"
    Me.FilterOn = True
Else
    If Forms![Visualizzazione_Report]!MieOpzioni = 2 Then
        Me.Filter = "CaricoScarico = False"
        Me.FilterOn = True
    Else
        Me.FilterOn = False
    End If
End If
Naturalmente la maschera "Visualizzazione_Report" deve risultare aperta al
momento dell'esecuzione del report.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 news:4011274c$1...@news.bluewin.ch...


 news:4011274c$1...@news.bluewin.ch...

Ciao Roberto Grazieeee davvero per la prima volta funziona tutto al primo
tentativo
non ci credo neanche io... he he he
Vorrei chiederti un altro favore lo so forse sono molto invadente ma sai
tramite codice funziona tutto molto + velocemente.......
io ho una maschera per l'immissione dei parametri che mi apre un report con
origini dati da una query
la maschera lo chiamata :"Trova record".
nella maschera sono presenti una Combox collegata ad una query "Partner" ,la
combox non è associata.
Una texbox "Data_inizio"dove immetto la data di inizio della ricerca
ed un altra che chiamo "Data_fine" dove immetto la data fine cioè estraggo
tutti i record
presenti in queste due date.
Ora io chiedo è possibile fare tutto questo da codice  come sopra.?!?
Grazie della tua infinita "Pazienza".
Gianni_B

 Gianni_B
Certo che si puň, basta impostare adeguatamente in AND le condizioni di
filtraggio del report.
Se la combobox si chiama MiaCombo.
Se il campo di tipo Data/ora che contiene la data da filtrare si chiama
MiaData.
Se il campo da filtrare con quanto selezionato con la combobox si chiama
MioCampo ed č di tipo Numerico.
A fronte dell'evento "Su apertura" del report genera il seguente codice VBA:
Me.Filter = "MiaData >= #" & Format(Forms![Trova record]![Data_inizio], _
& "mm/dd/yyyy") & "# AND MiaData <= #" & _
Format(Forms![Trova record]![Data_fine], "mm/dd/yyyy") & _
"# AND MioCampo=" & Forms![Trova record]!MiaCombo
Me.FilterOn = True
Se invece il campo MioCampo fosse di tipo Testo prova con:
Me.Filter = "MiaData >= #" & Format(Forms![Trova record]![Data_inizio], _
& "mm/dd/yyyy") & "# AND MiaData <= #" & _
Format(Forms![Trova record]![Data_fine], "mm/dd/yyyy") & _
"# AND MioCampo='" & Forms![Trova record]!MiaCombo & "'"
Me.FilterOn = True
Comunque, se non vuoi filtrare direttamente il report a fronte dell'evento
"Su corrente" in quanto ti interessa anche aprirlo senza filtri o con altri
tipi di filtri, le condizioni di filtraggio le puoi indicare nell'argomento
condizioneWHERE del metodo OpenReport (vedi help); cosě facendo puoi aprire
lo stesso report con condizioni di filtraggio diverse che stabilirai
dinamicamente nella OpenReport.
