Newsgroup: it.comp.appl.access
Titolo: anteprima su record corrente

tabella: Anagrafe,  campi "CF" e "cittadino_italiano"
form: anagrafe,  controllo campo "CF" gruppo d'opzioone "cornice167" con
valori 0 o 1
Report: schedait
report: schedaeuropa
devo visualizzare il report schedait se cittadino_italiano è uguale a 0
devo visualizzare il report schedaeuropa se cittadino_italiano è uguale a 1
questo con il record corrente visualizzato sulla form
ho provato con 
Private Sub Comando54_Click()
On Error GoTo Err_Comando54_Click
    Dim stDocName As String
if cornice167 = 0 then
    stDocName = "SCHEDAit"
    DoCmd.OpenReport stDocName, acPreview, , , "cf" & Me.CF
else
 cornice167 = 1 then
    stDocName = "SCHEDAeuropa"
    DoCmd.OpenReport stDocName, acPreview, , , "cf" & Me.CF
end if
Exit_Comando54_Click:
    Exit Sub
Err_Comando54_Click:
    MsgBox Err.Description
    Resume Exit_Comando54_Click
 
End Sub
il tutto NON MI FUNZIONA!
addò diavolo sbaglio?
grazie
luigi
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it



Exit_Comando54_Click:
Exit Sub

End Sub

ps scusate il doppio msg, ma a quello di prima mi è uscito un nikname a
capocchia! scoperto dopo aver postato


 End Sub


Ma hai eseguito il debug su questa parte di codice?
Anzi è strano che tu possa scrivere questo codice senza che l'editor si
blocchi...
.
.
else
cornice167 = 1 then
.
.
diventa
.
.
.
elseif cornice167 = 1 then
.
.
Ciao
--
sv


 sv
scusa la battitura, ho mancato l'if dopo else
il debug non mi da errori, ma quando clicco sul pulsante, mi da il
messaggio "tipo non corrispondenti"
penso che l'errore non sia sull'if ma sulla riga
    DoCmd.OpenReport stDocName, acPreview, , , "cf" & Me.CF
imho, ma non so dove sbaglio.
luigi


 > sv


Se cf è il codice fiscale, e quindi è una stringa, mancano a parte il
segno =, le virgolette.
Pertanto:
DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
Chr(34)
--
sv


 sv
niente mi da sempre lo stesso errore "tipo non corrispondente"
ho ricontrollato il report, la maschera, la query e le relazioni ma non ne
vengo a capo!
Private Sub Comando55_Click()
On Error GoTo Err_Comando55_Click
    Dim stDocName As String
    stDocName = "SCHEDAit"
DoCmd.OpenReport stDocName, acPreview, , , "cf=" & Chr(34) & Me.CF &
Chr(34)
Exit_Comando55_Click:
    Exit Sub
Err_Comando55_Click:
    MsgBox Err.Description
    Resume Exit_Comando55_Click
 
End Sub
luigi


 luigi
aggiungo che se lo faccio su stampa invece di anteprima
Private Sub Comando56_Click()
On Error GoTo Err_Comando56_Click
    Dim stDocName As String
 DoCmd.OpenReport "schedait", , , "CF=" & Chr(34) & Me.CF & Chr(34)
 
Exit_Comando56_Click:
    Exit Sub
Err_Comando56_Click:
    MsgBox Err.Description
    Resume Exit_Comando56_Click
 
End Sub
funziona perfettamente


 luigi
Leggo un virgola in più...
DoCmd.OpenReport stDocName, acPreview, , "cf=" & Chr(34) & Me.CF & Chr(34)
L'Help.. questo sconosciuto.... Lo sai al CISA che si è detto: "Un buon
programmatore deve avere il tasto F1 della propria tastiera tanto
consumato che non si possa leggere.." 
:-)))
--
sv


 luigi
E certo... vedi la risposta che ti ho già data..
--
sv


 sv
luigi
Grazie sv , di cuore!
