Newsgroup: it.comp.appl.access
Titolo: AXP openargs - report / A2K openargs - report?

ciao a tutti,
sviluppando l'applicazione in AccessXP ho utilizzato la funzionalità
Openargs per aprire un report facendogli visualizzare determinati dati
piuttosto che altri, salvo poi rendermi conto che in Access2000 questa
proprietà non è supportata..
Come posso fare?
Vorrei evitare di fare n report simili per n fattispecie diverse!
Grazie mille
em.an

 wrote in message
news:DP%9f.41868$
Pe2.7...@twister2.libero.it

Usa una variabile Globale.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


ciao @Alex,
scusa l'ignoranza, ma in cosa consiste?
(una dritta per capire da dove partire..)
em.an

 wrote in message
news:N20af.41882$
Pe2.7...@twister2.libero.it

Creati una Variabile di tipo Public in un Modulo
nella quale salvi la stringa che avresti passato
tramite OpenArgs prima di aprire il Report.
Quindi su Evento Open del Report leggi la variabile
e fai la stessa cosa che facevi prima con OpenArgs.



Ciao @Alex, anzitutto grazie per la tua pazienza
.
Sto procedendo come segue, tenuto conto che il mio obiettivo è quello di far
caricare, all'apertura del report OFFERTA (in un suo sottoreport) dei testi
in lingua diversa in ragione del bottone premuto in una maschera popup:
1. come da te suggerito ho creato un modulo contenente le seguenti
istruzioni:
Option Compare Database
Public Function OffStd_ITA()
    Reports!OFFERTA.OFFERTA_STD.Report.OnOpen    'riga incriminata
    Reports!OFFERTA.OFFERTA_STD.Report!descr1TIT.ControlSource =
"descrITA1TIT"
    Reports!OFFERTA.OFFERTA_STD.Report!descr1txt.ControlSource =
"descrITA1txt"
End Function
Public Function OffStd_ENG()
    Reports!OFFERTA.OFFERTA_STD.Report.OnOpen    'riga incriminata
    Reports!OFFERTA.OFFERTA_STD.Report!descr1TIT.ControlSource =
"descrENG1TIT"
    Reports!OFFERTA.OFFERTA_STD.Report!descr1txt.ControlSource =
"descrENG1txt"
End Function
2. a ciascun tasto preposto alla selezione della lingua ho tolto il
parametro OpenArgs, in quanto non supportato da Access2K, ed aggiunto le
funzioni definite nel modulo, come segue (esempio ITA):
'...
    DoCmd.OpenReport stDocName, acPreview
    OffSTD_ITA
    OffSTD1_ITA
    OffSTD2_ITA
'...
ma qui mi blocco, infatti non so come dire che OffSTD_ITA, OffStd1_ITA ecc
devono venire fatti partire SuApertura del sottoreport in questione: ho
provato con ".OnOpen" che immagino essere errato in quanto mi da errore..
grazie
em.an

 in lingua diversa in ragione del bottone premuto in una maschera popup:
Elimino tutto quello che hai scritto, forse mi sono spiegato male.
Do per scontato che prima usassi OpenArgs nell'Evento Open
del Report, pertanto ti mostro come fare per ottenere la
stessa cosa con il minor numero di modifiche.
'------------------ MODULO -----------------
Option Compare Database
Option Explicit
Public mOpenArgs as string
Ora nella Form dove aprivi il Report con OpenArgs
scrivi:
mOpenArgs=Valore(quello che prima passavi ad OpenArgs)
Docmd.OpenReport "NomeReport"
Ora nel Report:
Private Sub Report_Open(Cancel=True)
 'Immagino che quì prima leggevi Me.OpenArgs
 'Ora leggi la variabile:
 'Mando un messaggio solo per farti vedere che
 'funziona
 MsgBox mOpenArgs
 'Quì ora metti quello che facevi prima nella versione XP
End Sub
Ciao



Fantastico @Alex!
bastava cosi "poco"..
grazie ancora
em.an