Newsgroup: it.comp.appl.access
Titolo: per giovardo libero:stampare etichetta singola

 '---------------------------------
Avevo inviato questa mia al tuo indirizzo personale, ma
forse, dopo due o tre giorni, con tutti i messaggi che vi arrivano, non
seguite più le vecchie questioni....
Caro Angelo, ti ringrazio, ma il codice non funziona. Al posto
dell'etichetta mi dà "#errore
 #errore #errore". Io ho previsto che l'iddestinatario della maschera
anagrafico, all'evento click, stampi la singola etichetta con il report
"Etichette Indirizzi Anteprima". Quest'ultimo è generato da una query dove
c'è il campo idanagrafico. Anche nel report c'è il campo idanagrafico. Ho
inserito il nome esatto del report e della maschera con "genera" ed ho
ottenuto quanto segue:
Private Sub PrintRec_Click() 'anteprima etichette
On Error GoTo Err_PrintRec_Click
    Dim stDocName As String
    Dim Criterio As String
    stDocName = "Etichette Indirizzi Anteprima"
    Criterio = "Reports![Etichette Indirizzi Anteprima]![idanagrafico]   =
'" & Me![Anagrafico.idanagrafico] & "'"
    DoCmd.OpenReport stDocName, acPreview, "", Criterio
Exit_PrintRec_Click:
    Exit Sub
Err_PrintRec_Click:
    MsgBox Err.Description
    Resume Exit_PrintRec_Click
End Sub
Se apro il report in struttura, sotto la query di origine, al filtro, è
indicato il record con l'id esatta, ma poi non funziona. E' grave, dottore?
Ciao.Toni.

Prova apportando queste due modifiche, il problema risiede nel fatto che se
[idanagrafico]  è testo valeva la prima soluzione, se è numerico dovrebbe
funzionare così:
................
Dim Criterio As long           ' oppure elimina totalmente questa riga
................
Criterio = "Reports![Etichette Indirizzi Anteprima]![idanagrafico]   =
" & Me![Anagrafico.idanagrafico]
................
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------
"tonidrummer" <tonia...@CICCIONEtin.it> ha scritto nel messaggio
news:cgDA7.5529$HT2.1...@news1.tin.it...


 > >

Scusami, se il precedente messaggio ha  la risposta in cima.
Prova apportando queste due modifiche, il problema risiede nel fatto che se
[idanagrafico]  è testo valeva la prima soluzione, se è numerico dovrebbe
funzionare così:
................
Dim Criterio As long           ' oppure elimina totalmente questa riga
................
Criterio = "Reports![Etichette Indirizzi Anteprima]![idanagrafico]   =
" & Me![Anagrafico.idanagrafico]


                      Angelo
Non vuole funzionare. Sei sicuro degli apici o degli apostrofi?
Mi da errore e mi dice "tipo non corrispondente"
Ciao.Toni.

tonidrummer <tonia...@CICCIONEtin.it> wrote in message
FPzB7.10485$GW5.1...@news2.tin.it...

Ehemm...
Dim Criterio as STRING
Antonio

 ha scritto nel messaggio
news:H9AB7.88687$1H1.9...@news.infostrada.it...

Scusami Toni, ma con due bimbi sotto la scrivania a volte esco di testa!
................
 Dim Criterio As string
................
Criterio = "[idanagrafico]   = " & Me![idanagrafico]


                      Angelo
Yeeeh!!! Ok. Queta era la soluzione!! Grazie Antonio e Angelo.
Toni.
p.s. avrei bisogno di un altro piccolo aiuto che formulo in un nuovo
post:arrotondamento per euro.