Newsgroup: it.comp.appl.access
Titolo: sottoreport bilingue

ciao
Su "apertura" di un report bilingue ho inserito il seguente codice 
(gentilmente offerto dal newsgroup.....che ancora ringrazio).
Private Sub Report_Open(Cancel As Integer)
Dim db As DAO.Database
Set db = CurrentDb
Dim rstEtichette As DAO.Recordset
Set rstEtichette = db.openrecordset("select * from tabella1 where 
IDLingua='" & InputBox("Che lingua?") & "'")
Me.Codice.Caption = rstEtichette.Fields("d1")
Me.Materiale.Caption = rstEtichette.Fields("d2")
Me.cliente1.Caption = rstEtichette.Fields("d4")
Me.Spessore.Caption = rstEtichette.Fields("d3")
Me.Data1.Caption = rstEtichette.Fields("d5")
Me.giorno1.Caption = rstEtichette.Fields("d6")
Me.dal1.Caption = rstEtichette.Fields("d7")
Me.al1.Caption = rstEtichette.Fields("d8")
Me.settimana1.Caption = rstEtichette.Fields("d9")
Me.bobina.Caption = rstEtichette.Fields("d10")
Me.Colore.Caption = rstEtichette.Fields("d11")
Set rstEtichette = Nothing
Set db = Nothing
End Sub
e funziona a meraviglia.
Ora, però, devo inserire in questo report un sottoreport (sottrep), legato 
al "Codice" che deve essere bilingue.
Che codice devo inserire? Mi aiutate ancora?
Grazie.......ciao

Questo è il motivo che aveva spinto Simone Calligaris a sostenere la
poca
versatilità di questo, pur funzionante codice....!
Personalmente ritengo che se si deve mettere mano al codice in questi
casi
va valutata la possibilità di aver preso una strada non pulita.
Ora supponi di dover mettere un Sotto_Sotto_Report che fai....???
Queste soluzioni sono Stand_Alone, e danno più problemi che benefici.
Ricordo che Simone aveva proposto in un 3D precedente di usare il Demo
realizzato da me e Silvio sull'editing dei Report.
Questo Demo sfruttando la ricorsione non avrebbe richiesto
l'implementazione
di NEMMENO una riga di codice nei report.
Saluti
@Alex

(cut)
Ora, perň, devo inserire in questo report un sottoreport (sottrep), legato
al "Codice" che deve essere bilingue.
Che codice devo inserire? Mi aiutate ancora?
Grazie.......ciao
Senti caio ... ma non avevi giurato che le personalizzazioni servivano solo
sul Report principale?
Ma lo sapevo che finiva cosě, eccome!  ;-)
Ciao, Simone

 ha scritto nel messaggio 
news:e4c74m$c3e$1...@balena.cs.interbusiness.it...
ciao
Su "apertura" di un report bilingue ho inserito il seguente codice
(gentilmente offerto dal newsgroup.....che ancora ringrazio).
Private Sub Report_Open(Cancel As Integer)
Dim db As DAO.Database
Set db = CurrentDb
Dim rstEtichette As DAO.Recordset
Set rstEtichette = db.openrecordset("select * from tabella1 where
IDLingua='" & InputBox("Che lingua?") & "'")
Me.Codice.Caption = rstEtichette.Fields("d1")
Me.Materiale.Caption = rstEtichette.Fields("d2")
Me.cliente1.Caption = rstEtichette.Fields("d4")
Me.Spessore.Caption = rstEtichette.Fields("d3")
Me.Data1.Caption = rstEtichette.Fields("d5")
Me.giorno1.Caption = rstEtichette.Fields("d6")
Me.dal1.Caption = rstEtichette.Fields("d7")
Me.al1.Caption = rstEtichette.Fields("d8")
Me.settimana1.Caption = rstEtichette.Fields("d9")
Me.bobina.Caption = rstEtichette.Fields("d10")
Me.Colore.Caption = rstEtichette.Fields("d11")
Set rstEtichette = Nothing
Set db = Nothing
End Sub
e funziona a meraviglia.
Ora, perň, devo inserire in questo report un sottoreport (sottrep), legato
al "Codice" che deve essere bilingue.
Che codice devo inserire? Mi aiutate ancora?
Grazie.......ciao
se non ricordo male il report doveva essere una cosa semplicissima e le tue 
conoscenze di vba ridottissime...
hai due soluzioni...o  scarichi la demo citata da alex, ti studi la 
ricorsionie e cerchi di capire come adattare il suo demo al tuo problema 
visto che suggerimenti per farlo non te ne ha dati...oppure se non hai tempo 
una settimana per capirti tutto....fai un copia incolla del codice che hai 
messo nel primo report nell'evento su apertura del secondo report.
Puoi crearti una tabella nuova per il sottoreport se ti č piů facile oppure 
usare la stessa tabella ma aggiungento un campo "nomereport" da utilizzare 
come filtro quando apri il recordset
Dim rstEtichette As DAO.Recordset
Set rstEtichette = db.openrecordset("select * from tabella1 where
IDLingua='" & InputBox("Che lingua?") & "' and nomereport='fattura'")
                                                                    ^^^^^^^^^^^^^^^^^^
....
se imposti con questo secondo metodo puoi aggiungere quanti sottoreport vuoi 
in modo rapidissimo
Ovviamente č brutto chiedere due volte la lingua per report e sottoreport 
quindi se sai cosa sono le costanti puoi memorizzarti su una costante la 
prima risposta e usarla per la seconda.
Se il report finisce qui vai tranquillo con questa sistema senza dannarti 
tanto l'anima altrimenti ti consiglio pensarci bene prima di continuare a 
incasinarti sempre di piů.
ciao, AEOM

Questi giovinastri che non ascoltano .....!
;-)
@Alex

Purtroppo non dipende da me...
E' il mio capo che, bel bello, è venuto a dirmi: "ma in questa stampa non 
si può inserire anche.........."
a report già concluso!!!!!
Comunque grazie a tutti.......ciao

Non è colpa del tuo capo, ma della tua comprensibile inesperienza.
Il suggerimento di Simone non era fatto proprio da chi vuole evitare di
dover lavorare 2 volte sullo stesso problema e che sicuramente è
passato
prima di te per questi aspetti.....!!!
Per questo servirebbe ascoltare i suggerimenti migliori anche se
possono
sembrare più contorti a prima vista....!!!
@Alex