Newsgroup: it.comp.appl.access
Titolo: Stampare dati filtrati in una maschera

 Ciao a tutti sono sempre io(I problemi li incontro tutti oggi!!!)
Dopo aver filtrato dei dati in una maschera avrei necessita' di
stamparli.Mi sono creato un report e
All'evento "Su APERTURA" del report ho inserito la seguente routine:
Private Sub Report_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.Filter = Me.OpenArgs
Me.FilterOn = True
End If
End Sub
Quando pero' apro il report il debug  come errore OpenArgs.Come posso
fare?Aspetto vostre notizie
Grazie ancora

 Grazie ancora
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:fk1hmm$o6a$1...@aioe.org...

quel codice lo avevo suggerito io, in realtà è l'ultima di una serie di 
routine che
1 imopstavano una variabile (strFiltro)
2 la usavano per filtrare una maschera
3 un pulsante chiamava l'apertura di un report impostando come OpenArgs la 
variabile strFiltro
4 si apre il report con la routine che ha postato Dino
Private Sub Report_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.Filter = Me.OpenArgs
Me.FilterOn = True
End If
End Sub
scrivo tutto ciò solo perché non essendo io per niente esperto, volevo solo 
dare la possibilità a chi, come me, ha da imparare, di capire meglio il 
problema in cui si è imbattuto Dino...
La cosa buffa è che in questa maniera a me, in un db di prova, tutto 
funziona, ovvero filtro la maschera e il report si apre con i record 
filtrati. Perché non funziona a lui?
Un grazie per l'attenzione e gli aiuti e un saluto
Andrea

 
Ha un errore da qualche altra parte.
Comunque se gia' filtri nella openform non trovi che sia ridondante 
filtrare successivamente mediante i valori passati in Openargs?
Baraldi lo disegnano cosi'. Realmente e' ancora piu' pestifero. Tenta di 
raggiungermi ma non gli riuscira' mai! ;<)
-- 
ac
y-1=x

 ha scritto nel messaggio 
news:C4_8j.15354$8j3....@tornado.fastwebnet.it...

già che cretino che sono...
in effetti basta passare la stringa che funge da filtro come condizione 
where... (giusto?).
Ti ringrazio e non capisco perché mi viene sempre da pensare alle cose meno 
lineari.
Ciao 

 Ciao
Ecco "Bravissimo"... ora hai capito... una punizione di 2 ore suo vetri
rotti...!
Quando gli altri suggeriscono non sempre dicono ca...te manca la Z..!


 Andrea
Non sò ma quando 2 "Non Esperti" si incontrano spesso succede che ognuno
parla del
proprio affare ed asserisce a quanto dice l'altro ma in realtà entrambi non
capiscono...!
Io per risolvere ho suggerito la strada giusta fate VOBIS...!


 y-1=x
Chi sei il pifferaio magico...?
Ultimamente sono un pò incazzato in effetti dalla scadenza di livello sia
dei frequentatori, quelli
boni non ci sono più in queste aree, che da quelli novi....  che abbondano
ma .... ma....
Avevo smesso per un pò di frequentare, mi ero scocciato... ora che non ho un
Piffero da fare
son tornato e che ti trovo ....? Sempre la stessa cosa... in tutti i NG...!
Addirittura ti leggo sempre più spesso a scrivere messaggi
onomatopeici...(Prrrrrrrr non viene bene
ma il rumore tipico ROMANO di quando si porta la parte cava tra Pollice e
Indice alla bocca e si spinge
lo devi da conosce come le tue tasche...)...!
E' pur vero che dipende da dov'esce... io l'olezzo non lo sento e
conoscendoti un Sig.re non può esser
che dall'alto... suvvia non far capriole però...!
Ecco ora mi diletto in minchiate...!
;-)
Ciao Ale buon WeekEnd


 - Mostra testo tra virgolette -
Ciao Alex Wrote sono Dino
Mi scuso per aver dimenticato l'inserimento del mio nome nel post di
ieri sera.
Volevo ringraziarti per tutti i consigli che mi hai dato (anche quelli
non tecnici).
Credimi l'Help lo usato spesso e spesso mi ha risolto dei problemi.E
non e' mio costume fare cose che non capisco.
Il vero problema che mi sto' approcciando adesso al VBA e di
conseguenza non avendo esperienza in merito rischio di fare domande
sciocche o banali per voi.A volte poi (Hai ragione) la fretta ti fare
il famoso copia/incolla pensando che vada tutto bene e invece!!!.
Bene perdona la mia doverosa presentazione. Adesso volevo passare al
consiglio che mi hai dato.
Non saprei come impostare la proprieta' WHERE  nella funzione
OPENREPORT.O meglio se non sbaglio la proprietà Filter della  Form che
mi hanno suggerito (e che funziona benissimo) e' la seguente:
Public Sub ApplicaIlFiltro()
Dim nrCaratteriTgl As Integer
nrCaratteriTgl = Len(strFilter)
nrCaratteriTgl = nrCaratteriTgl - 4
If Left(strFilter, 4) = "and " Then
    strFilter = Right(strFilter, nrCaratteriTgl)
End If
Me.Filter = strFilter
Me.FilterOn = True
End Sub.
Forse ho sbagliato ad inserire questa routine.Devi portare pazienza
perche' la voglia di imparare e' TANTA e sbagliando si impara.
Grazie ancora aspetto una risposta.
 Saluti da DINO

 - Mostra testo tra virgolette -
Andrea ciao sono Dino.Volevo ringraziarti per l'aiuto che mi hai
dato.Secondo me non ti devi giustificare con nessuno per il codice che
mi hai consigliato.Se a te funziona vuol dire che va bene anche se
puo' essere ridondante.
E ricorda che di tutto il TEAM il vero "INESPERTO SONO SOLO IO"
Grazie ancora e .....ALLA prossima.
Saluti Dino

 @Alex (Alessandro Baraldi)
diciamo "non esperti" per essere buoni... in realtà navigo in acque quasi 
sconosciute, ma ogni tanto riesco a fare qualche cosa...
comunque hai ragione nel dire che fate vobis è la strada giusta... io, in 
buona fede e pieno di buono spirito altrusitico, tentavo di dare una mano, 
più che altro una indicazione dalla quale partire o cercare di risolvere il 
problema, e non certo una soluzione bella e pronta (non ne sono mica 
capace). Da li a dire "perché 'sta roBBa non funziona?" ce ne passa, e mi 
sento pure a disagio a vedere le indicazione che gli avevo passato postate 
in questo ng ad intasarlo, ancora di più, con altra monnezza.
Da oggi mi limiterò a chiedere :-)!
Ciao e buona domenica!
Andrea 


Cio Alex Wrote sono Dino
Non so se lo sai ma i vetri fanno male facciamo qualcosa di meno
forte.
Se permetti oggi mi sento di sparare un poì di cazzate.....
Lasciando stare Access per un momento ..... vorrei che tu dalla
tua ..POSIZIONE ....DI SAPIENZA mi potessi spiegare il significato di
MODESTIA....... Come diceva Aebore ....MEDITATE GENTE ...MEDITATE...
GRANDE Alex ti saluta un........inesperto.
Ciao Dino

 MODESTIA....... Come diceva Aebore ....MEDITATE GENTE ...MEDITATE...
Modestia,modestia,modestia...... Sul dizionario che forniscono agli 
esperti di "Access" non c'e' mi dispiace.
Ovviamente ;<)
-- 
ac
y-1=x


Quando si sviluppa la modestia è quella cosa che non ti aiuta a capire
che stai facendo...!
Non è grave quando hai imparato ad usare Access passa...!
;-)
@Alex

 Ciao Ale buon WeekEnd
Altrettanto.
-- 
ac
y-1=x

 - Mostra testo tra virgolette -
Non dubitavo sul tipo di risposta che potevi dare..........
Tranquillo che ripasso ....
Se oltre a sviluppare conosci altro ti riporto di seguito quello che
diceva CONFUCIO(a scusami ma lo conosci!!!)
L'anziano armato di molta pazienza SI SIEDE SULLA RIVA DEL FIUME ...
E ..ASPETTA  E ASPETTA  e alla fine vede passare tutti i suoi
AMICI(anche i piu' esperti) /NEMICI che annaspando chiedono aiuto.....
Ehi grande BOSS sto scherzando Auguri di Buon Natale......(Tanto ci
sentiremo ancora)
Saluti Dino

 - Mostra testo tra virgolette -
Ahh..per me devi sicuramente rileggerlo meglio prova e fammi sapere
Saluti Dino...
NB:Eventualmente fammi sapere che ti invio il nuovo ZANICHELLI.......

 - Mostra testo tra virgolette -
Ahh..per me devi sicuramente rileggerlo meglio prova e fammi sapere
Saluti Dino...
NB:Eventualmente fammi sapere che ti invio il nuovo ZANICHELLI.......
---------------
quoto ac !
Io ho cercato sulla guida di access e poi su MSDN ma di modestia non ho 
trovato traccia!
Invece ho trovato :
1) @Alex  =  Garmin (o TomTom) (!) ottimo navigatore, mappe 
perfette,indicazioni sintetiche e corrette, voce ... da migliorare! ;))
2) NG = palude sconosciuta. Puoi camminarci una vita e non trovi una buca 
... puoi fare un solo passo e sprofondare! ;))
3) HO chiesto aiuto ... tutto quello che arriva è buono, fosse anche nessuna 
risposta. Potrebbere essere un segno che qualcuno ci sta lavorando.
4) Nessuno e' tenuto a rispondere.
5) Se risponde potrebbe non essere la risposta giusta o quella più adatta al 
tuo caso.
6) HO chiesto aiuto ... tutto quello che arriva è buono, (doppia!) Perchè me 
la prendo se qualcuno mi dice che la domanda e' veramente imbecille? Mi 
serve una risposta, lascio perdere lui e insisto!
7) Continuo a lurkare, perchè qui le informazioni non costano nulla ( e 
rendono moltissimo!).... ;))
IvanDaBologna 


Ciao Ivan sono Dino.
Sono concorde con i punti 2-3-4-5 il primo ....o forse sei un fan del
"GURU" Alex....
Poi non si tratta di insistere e nemmeno di far domande stupide.....
non si vuole neanche che tutti risolvano i problemi al posto proprio.
E' secondo me solo una questione di educazione.....
Sai l'esperienza mi dimostra tutti i giorni che chi per scherzo o
nella realta' si sente un super ...poi ho paura che nella vita
normale................
Con questo non voglio assolutamente fare polemica con
nessuno.Ribadisco pero' che la filosofia di questo Group secondo me e'
diversa
Auguri di buon Natale e beato te' che puoi mangiare I "TURTELEN"

 NB:Eventualmente fammi sapere che ti invio il nuovo ZANICHELLI.......
Ciao Dino.
Qualcun altro diceva che il Tao che puo' essere detto non e' vero Tao.
Mi spiace annotarti che la mia risposta voleva essere anche un po' 
"autoironica", ma fa niente.
-- 
ac
y-1=x


wrote:

Ciao Ale Wrote sono Dino
L'ho capito benissimo la tua autoironia....
Mi piace solo sottolineare che non voglio essere un approfittatore del
Web.
E poi sai come dicono a Napoli "NESCIUNO NASCE IMPARATO".
Ciao e auguri di Buon natale
NB:Il bello di Access e' che ci fa' diventare autoironici.
Saluti dall'apprendista del VBA





Guarda se io mi sedessi sulla riva del fiume sono cero che prima o poi
passeresti anche tu...
giusto pe rimanere in tema... ma nonostante sia di tradizionale filosofia
Orientale preferisco
darti un'indicazione...!
La proprietà Filter di Form è già strutturata per essere passata alla
proprietà WHERE del Metodo
OpenReport, tant'è che se provassi a leggerla(Debug.Print Me.Filter) ti
potresti rendere conto del senso...!
A questo punto rileggendo l'Help in merito al parametro WHERE si deduce che:
    Docmd.OpenReport "NomeReport",,,Me.Filter
Ecco la magia di confucio...!
P.S. non ho inventato nulla anzi mi fanno incazzare le storielle di Guru e
mica Guru... io mi sono fatto
il mazzo(da solo senza tanto LUKRARE il NG) per studiare VB6/VBA ed Access e
non sopporto la superficialità in nessun campo...
Se si fà una domanda TECNICA servono le basi per poterne capire le risposte
altrimenti è comodo ritenerle cose da "SOLONI"
in realtà è vero il contrario.
Per il resto delle osservazioni fatte non mi interessano nè per scherzo nè
seriamente... se il problema è tecnico lo affronto
se è un Flame passo oltre ....


 y-1=x



Ciao Alex Wrote sono Dino.
Mi sembra doveroso ringraziarti non solo per la soluzione ma
soprattutto per il PS.
Infatti posso immaginare e' difficile pensare alla buona fede via Web
soprattutto per chi risolve i problemi.
E' vero che in questa Chat ci sono tanti frequentatori e tanti sono
solo LUKRONI.Ci sono pero' anche persone che si fanno un culo (si puo'
dire sul Web) tanto e nello stesso tempo grazie a dritte (che possono
sembrare banali) sistemano un piccolo frammento del loro progetto e
poi proseguono.
E' anche giusto dire DATE A CESARE QUEL CHE E' DI CESARE...
Personalmente (senza scrivere confessioni lacrimose) e' anni che
lavoro in  Access sviluppando Sw discreti senza scomodare il
VBA.Adesso ho deciso di fare il salto di qualita' e mi sto' facendo il
mazzo.Non amo la "pappa pronta"e lungi da me Lucrare(lo voglio
scrivere in italiano) e personalmente prima di mettere in rete un
quesito ci lavoro sopra.
Adesso basta se no rischio davvero di sca....arti con aggiunta di
zeta. Sicuramente ti rompero' ancora i "MARONI" con altre domande
spero piu' tecniche di queste.
Concludo dicendo che se siamo qui a scriverci "io a chiedere e tu a
risolvere" e' perche' ci accomuna un unico comun denominatore .......
cioe' la passione per Access.
PS:Non sono il tipo che fa' sviolinate .... pero' ho dato una
sbirciata al tuo sito e devo dire che.....il mazzo in VBA6/VBA ha dato
i suoi frutti.
Basta ho davvero finito
Auguri di Buon Natale e tanto ci sentiremo ancora (ho gia' dei quesiti
da porti ma ... prima provo a smazzarmeli io)
Saluti Dino.