Newsgroup: it.comp.appl.access
Titolo: report bilingue..ancora

 me.tuaetichetta2.caption=tblDigiture.field("dicitura2")
Io, che non sono esperto di Access, non ci ho capito molto e pertanto 
preferivo arrivarci per gradi.
E' giusto preparare una tabella in questo modo? (è solo un esempio)1a 
soluzione
IDLingua /       D1                     /         D2         /  ecc.
Ita      / codice prodotto              /spessore
Ita-Ing  / codice prodotto-product code /spessore-thickness  /
Fra-Ing  / code produit-product code    /epaisseur-thickness /
Oppure deve essere in questo modo: 2a soluzione
IDLingua /       CODICE PRODOTTO        /     SPESSORE       /  ecc.
Ita-Ing  / codice prodotto-product code /spessore-thickness  /
Fra-Ing  / code produit-product code    /epaisseur-thickness /
Poi non mi è chiaro come collegare questa tabella al report: mi date 
ancora un aiuto?
Grazie mille.....ciao

 me.tuaetichetta2.caption=tblDigiture.field("dicitura2")
S'era spiegato anche che questo sistema funziona con i Reports, ma
dev'essere sviluppato ulteriormente per i Sotto-Reports...
Ciao.

Ciao
Ma il mio report ha dei sottoreport che però non contengono 
etichette......
forse non mi ero spiegato bene?
ciao e grazie


Pensavo potessero essere personalizzati anche quelli...
Ma continuo a non essere d'accordo sul metodo: è rigido.
Se nei reports, col tempo, saranno aggiunte delle etichette dovrai
continuare a manutenere anche le tabelle.
IMHO dovresti scaricare il seguente:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=197
e implementarlo nella tua applicazione.
Ciao, Simone

Che dici del nuovo sito è più funzionale...?
Ciao
@Alex

"Alessandro Baraldi" <
Che dici del nuovo sito è più funzionale...?
Lo trovo eccezionale sotto il profilo dell'usabilità!
Ma anche graficamente, considerando che non è "disegnato" con Front Page hai
fatto un buon lavoro  :-)
Ciao, Simone

Ciao....sono sempre io
Questo è un programma per utilizzo personale pertanto il problema non si 
pone (anche perchè il report di questo tipo è solo uno).
Il problema, per me, è impostarlo nel modo giusto per iniziarlo e portarlo 
sino alla fine.
Se mi aiuti a comprendere il metodo......
Ciao e grazie mille

 ha scritto nel messaggio 
news:e3ndgj$pu9$1...@carabinieri.cs.interbusiness.it...



....
scusa ma ultimamente non riesco a frequentare spesso il NG
va benissimo la prima soluzione,
adesso devi nell'evento apertura del tuo report andare a pescarti le 
diciture che ti servono dalla tabella
o usi un Dlookup....anche se non è la soluzione migliore
o crei un recordset della tua tabella
do per scontato che l'ABC di vba per gestire i recordset tu lo conosca 
altrimenti il tuo passo successivo è questo.
velocemente un qualcosa tipo
nell'evento su apertura del tuo report
scrivi...
dim db as database
set db = currentdb
dim rstEtichette as recordset
Set rstEtichette=db.openrecordset("select * from tabellaetichette where 
IDLingua='" & msgbox("Che lingua ? ") & "'")
'rispondi con la sigla della lingua come è memorizzata nella tua tabella
'questa parte della scelta lingua la devi  fare meglio  questo è solo un 
aiuto per partire
adesso che hai il tuo recordset ti compili le etichette del report
me.etichettareport1.caption=rstEtichette.fileds("D1")
me.etichettareport1.caption=rstEtichette.fileds("D2")
etc
etc
set rstEtichette=nothing
set db=nothing
Scusa ho buttato giù tutto in velocità ci saranno degli errori ma è tanto 
per darti uno spunto
Ciao, AEOM

Come non è disegnato con FrontPage....???
In realtà uso VS per la parte ASP e FP per la parte HTML...!
Ciao
@Alex

"Alessandro Baraldi"
Come non è disegnato con FrontPage....???
In realtà uso VS per la parte ASP e FP per la parte HTML...!
E', in effetti mi sono spiegato male: mi riferivo al fatto che la versione
vecchia era interamente statica.
Magari graficamente più accattivante ma inevitabilmente con molte meno
features di questa.
Ciao, Simone

Ciao.....grazie un miliardo per l'aiuto che mi stai fornendo.
Ho inserito nell'evento su apertura del mio report (di prova) il seguente 
codice:
Private Sub Report_Open(Cancel As Integer)
Dim db As database
Set db = CurrentDb
Dim rstEtichette As Recordset
Set rstEtichette = db.openrecordset("select * from tabella1 where 
IDLingua='" & InputBox("che lingua? ") & "'")
Me.Etichetta724.Caption = rstEtichette.Fields("d1")
Me.Etichetta725.Caption = rstEtichette.Fields("d2")
Me.Etichetta726.Caption = rstEtichette.Fields("d3")
Me.Etichetta727.Caption = rstEtichette.Fields("d4")
Set rstEtichette = Nothing
Set db = Nothing
End Sub
Quando apro il report però compare: errore di run-time 13, tipo non 
corrispondente e in giallo viene evidenziata la riga Set rstEtichette = 
db.open.........
Quale può essere la causa?
La tabella l'ho chiamata Tabella1 e i campi d1, d2, ecc
Purtroppo io non sono esperto di VBA, porta pazienza.......... ciao e 
grazie 

Si certo, mi sono messo a giocare da un mesetto con ASP ed ho pensato
di rifarlo proprio perchè era Inutilmente statico.
Purtroppo graficamente ho dei limiti tecnici d'incompetenza, ma la cosa
più importante è che sia fruibile.
Ciao
@Alex

 ha scritto nel messaggio 
news:e3nta7$c22$1...@carabinieri.cs.interbusiness.it...

nella tua tabella il campo idlingua è di tipo alfanumerico?
se cambi il tuo
Set rstEtichette = db.openrecordset("select * from tabella1 where
IDLingua='" & InputBox("che lingua? ") & "'")
con un generico
Set rstEtichette = db.openrecordset("tabella1")
'in questo caso selezioni la prima riga di diciture della tabella
ti da ancora errore?
ciao, AEOM

Grazie per la risposta....
Nella Tabella1 il campo IDLingua è contatore e testo.
Sostituendo la stringa mi da ancora lo stesso errore.....io non ci capisco 
niente 
grazie ancora per l'aiuto.....ciao

mi correggo....il campo IDLingua è chiave primaria e testo.......
ciao

 ha scritto nel messaggio 
news:e3no3h$l5t$1...@fata.cs.interbusiness.it...
mi correggo....il campo IDLingua č chiave primaria e testo.......
ciao
usi ADO o DAO?
se non sai cosa vuol dire che versione di access usi?
ciao AEOM 

Ciao
Uso Access 2000 con XP, nel codice ho inserito il riferimento DAO in 
questo modo (ma non funziona)
Private Sub Report_Open(Cancel As Integer)
Dim db As database, rst As DAO.Recordset
Set db = CurrentDb
Dim rstEtichette As Recordset
Set rstEtichette = db.openrecordset("tabella1")
Me.Etichetta724.Caption = rstEtichette.Fields("d1")
Me.Etichetta725.Caption = rstEtichette.Fields("d2")
Me.Etichetta726.Caption = rstEtichette.Fields("d3")
Me.Etichetta727.Caption = rstEtichette.Fields("d4")
Set rstEtichette = Nothing
Set db = Nothing
End Sub
Ti viene in mente qualcosa?
Grazie per l'aiuto......ciao

 Grazie per l'aiuto......ciao
ricapitolando un recordset lo apri cosě
dim db as dao.database
set db=currentdb
dim rst as dao.recordset
set rst=db.openrecordset("tabella1")
.....
ciao, AEOM

Adesso funziona a meraviglia.
Me lo diceva sempre mio padre: studia daniele......studia....
Battuta a parte....grazie mille.....ciao