Newsgroup: it.comp.appl.access
Titolo: stampa report con messaggio prestampa

in una maschera ho un pulsante di stampa reportabbinato al singolo record
visualizzato sulla maschera.
Vorrei che clikkando su tale pulsante di comando, invece di mandare in
stampa direttamente il report abbinato, mi comparisse prima un messaggio
(diverso per ogni valore di un controllo campo della maschera) e poi con
un ulteriore clik stampare il report.
Se è possibile, come posso farlo?
grazie!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Se è possibile, come posso farlo?
Inserisci questo codice all'interno dell'evento click del  pulsante di 
comando stampaReport, prima del codice utilizzato per stampare il report:
dim ctl as control
for each ctl in contrls
if ctl.controltype = actextbox then
if not isnull(ctl) then
msgbox ctl.value, vbexclamation, 
ctl.name
end if
next ctl
Cosi avrai a video un msgbox con il contenuto di ogni controllo textbox 
posto sulla form attiva.
-- 
Ciao
Access 

 next ctl

non ci ho capito gran che', ma una volta inserito il codice mi dà errore
sull'ultima riga "next ctl"
e mi dice "next senza for"
comunque il codice completo è:
Private Sub Comando114_Click()
On Error GoTo Err_Comando114_Click
Dim ctl As Control
For Each ctl In contrls
If ctl.ControlType = acTextBox Then
If Not IsNull(ctl) Then
MsgBox ctl.Value, vbExclamation, ctl.Name
End If
Next ctl
    Dim stDocName As String
    stDocName = "repautorizzazioni"
    DoCmd.OpenReport stDocName, acNormal, , "N_autorizzazione=" & Chr(34)
& Me.N_autorizzazione & Chr(34)
Exit_Comando114_Click:
    Exit Sub
Err_Comando114_Click:
    MsgBox Err.Description
    Resume Exit_Comando114_Click
 
End Sub
dove sbaglio?
luigi



prova cosi.
-- 
Ciao
Access 

 prova cosi.
ok adesso va, non dà errori, ma non è quello che voglio ottenere!
a me il messaggio che deve darmi non è il nome dei campi che ci sono sul
report, ma un messaggio tipo "inserisci il modulo giallo" naturalmente il
colore è condizionato da un campo "categoria" e possono essere vari colori
per varie categorie.
spero di avermi spiegato.
es. categoria A  - inserire il modilo giallo
    categoria B  - inserire il modulo rosso
    categoria c  - inserire il modulo verde
ecc


Ciao luigi,
"luigi.ONOFRIO" <onofrio...@Tin.it> ha scritto nel messaggio 
news:f9c6v4$e7k$1...@news.newsland.it...

Sinceramente non riesco a capire quello che vorresti ottenere.
Parlavi di un messaggio diverso per ogni valore di un controllo sulla 
maschera.
è solo un messaggio a cosa di serve?
forse tu vorresti fare un'ulteriore scelta prima di mandare in stampa il 
report?
spiegati meglio
-- 
Ciao
Access

 spiegati meglio
ok ci provo!
ho la maschera "autorizzazioni"
all'interno vi sono dei controlli campi vari di cui uno "categoria" che
contiene dei valori fissi (A, B, C, D, E, H) che vengono selezionati su
ogni record.
ad ogni categoria devo stampare lo stesso report ma su carta di colore
differente, quindi es. Cat. A - Carta rossa, Cat. B - carta verde ecc.
adesso, avendo un record selezionato ad esempio di pingo pallino, a cui è
assegnato la categoria A, devo stampare il report su carta rossa.
senza codice, cliccando sul pulsante stampa, access manda in stampa il
report e basta, mentre io voglio che prima di mandare in stampa il report,
ti avverta con un messaggio quale colore di carta inserire, quindi mando
in stampa il report, access manda un messaggio "inserisci la carta di
colore rosso, io metto la carta rossa, faccio OK e la stampa viene
effettuata. (sulla carta rossa)
spero che mi sono riuscito a spiegare meglio!.
e grazie della pazienza!


 e grazie della pazienza!
Allora, se ho capito bene ti basta una select case, prova cosi:
select case categoria
          case "A"
          msgbox"Inserire la Carta Azzurra", vbinformation, "Colore Carta"
          case "B"
          msgbox"Inserire la Carta Bleu", vbinformation, "Colore Carta"
          case "C"
          msgbox"Inserire la Carta Celeste", vbinformation, "Colore Carta"
.........cosi via per tutte le lettere.
end select
questo codice va inserito al posto di quell'altro.
-- 
Ciao
Access 

 questo codice va inserito al posto di quell'altro.
aaaaaaahhhhh!  finalmente!!
GRAZIE! Funziona perfettamente! era questo che cercavo!
