Newsgroup: it.comp.appl.access
Titolo: Stampa report con condizione

Buongiorno a tutti i presenti e ben trovati,
debbo stampare un MioReport a queste condizioni:
Se il MioControllo, ha valore 44.44 oppure 55.13 oppure 66.34 oppure 77.67
il mioreport, verrà stampato con l'immagine img1
Se il MioControllo, ha valore 33.44 oppure 35.13 oppure 36.34 oppure 88.67
il mioreport, verrà stampato con l'immagine img2
altrimenti se le condizioni sono diverse dalle precedenti,
mi stampa l'immagine img3
--------------------------------------------
avevo cominciato a scrivere
Private Sub Report_Open(Cancel As Integer)
If Me.MioControllo = 44.44 Then
Me.img1.Visible = true
If Me.MioControllo = 55.13 Then
Me.img1.Visible = true
If Me.MioControllo = 66.34 Then
Me.img1.Visible = true
If Me.MioControllo = 77.67 Then
Me.img1.Visible = true
If Me.MioControllo = 33.44 Then
Me.img2.Visible = true
If Me.MioControllo = 35.13 Then
Me.img2.Visible = true
If Me.MioControllo = 36.34 Then
Me.img2.Visible = true
If Me.MioControllo = 88.67 Then
Me.img2.Visible = true
Else
Me.img3.Visible = true
End If
    End if
        End If
            End if
End If
    End if
        End If
            End if
End Sub
Come ne pensate?
Cataldo Formaro 

 Cataldo Formaro
Ciao Cataldo
Bentornato!
Daniele 

 Daniele
Ciao Daniele,
è un piacere ritrovarti!
pomeriggio troverò il tempo di provare, quindi ti farò sapere.
Buona domenica.
Cataldo Formaro 


Ciao 
se il valore del controllo è un testo devi inserire i valori tra virgolette
 If Me.MioControllo = "44.44" Then
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

Riespongo un tantino più chiaro la questione:
debbo stampare un MioReport a queste condizioni.
Se il MioControllo CodiceEsame, ha valore 45.13 or 42.13 or 51.10
il mioreport, verrà stampato con l'immagine img1
Se il MioControllo CodiceEsame, ha valore 45.23 or 45.42 or 48.23
il mioreport, verrà stampato con l'immagine img2
altrimenti se le condizioni sono diverse dalle precedenti,
mi stampa l'immagine img3
Preciso che CodiceEsame è testo
[riporto il codice per intero]
--------------------------------------
Option Compare Database
Private Sub Report_Open(Cancel As Integer)
Me.IMG1.Visible = False
Me.IMG2.Visible = False
Me.IMG3.Visible = False
If Me.CodiceEsame = "45.13" Then
Me.IMG1.Visible = True
If Me.CodiceEsame = "42.13" Then
Me.IMG1.Visible = True
If Me.CodiceEsame = "51.10" Then
Me.IMG1.Visible = True
If Me.CodiceEsame = "45.42" Then
Me.IMG2.Visible = True
If Me.CodiceEsame = "48.23" Then
Me.IMG2.Visible = True
If Me.CodiceEsame = "45.23" Then
Me.IMG2.Visible = True
Else
Me.IMG3.Visible = True
End If
    End If
        End If
           End If
               End If
                   End If
End Sub
-------------------------
all'apertura del report mi segnala:
Errore di Run-time 2427
Nessun valore nell'espressione immessa
Ciao
Cataldo Formaro

 ha scritto nel messaggio 
news:27ILi.128314$U01.1...@twister1.libero.it...

Ciao Cataldo
prova a spostare il codice su formattazione della sezione che contiene il 
tuo controllo.
buona domenica
Daniele
ps. non hai provato con la concatenazione di "OR"? 


ho spostato l'evento su formattazione, per com mi hai suggerito
Private Sub IntestazioneGruppo0_Format(Cancel As Integer, FormatCount As 
Integer)
Me.IMG1.Visible = False
Me.IMG2.Visible = False
Me.IMG3.Visible = False
If Me.CodiceEsame = "45.13" Then
Me.IMG1.Visible = True
If Me.CodiceEsame = "42.13" Then
Me.IMG1.Visible = True
If Me.CodiceEsame = "51.10" Then
Me.IMG1.Visible = True
Else
If Me.CodiceEsame = "45.42" Then
Me.IMG2.Visible = True
If Me.CodiceEsame = "48.23" Then
Me.IMG2.Visible = True
If Me.CodiceEsame = "45.23" Then
Me.IMG2.Visible = True
Else
Me.IMG3.Visible = True
End If
    End If
        End If
End If
    End If
        End If
End Sub
-------------------
mi funziona solo la condizione relativa all'IMG1,
le altre due non le visualizzo,
anche se dovrebbero essere True.
Buona domenica anche a te.
Cataldo Formaro

 anche se dovrebbero essere True.
in questo modo se la prima if non è vera esce dall'if saltando le altre 
istruzioni.
prova in questo modo:
Me.img1.Visible = False
Me.img2.Visible = False
Me.img3.Visible = False
If Me.CodiceEsame = "45.13" Then
Me.img1.Visible = True
ElseIf Me.CodiceEsame = "42.13" Then
Me.img1.Visible = True
ElseIf Me.CodiceEsame = "51.10" Then
Me.img1.Visible = True
Else
If Me.CodiceEsame = "45.42" Then
Me.img2.Visible = True
ElseIf Me.CodiceEsame = "48.23" Then
Me.img2.Visible = True
ElseIf Me.CodiceEsame = "45.23" Then
Me.img2.Visible = True
Else
Me.img3.Visible = True
End If
    End If
-- 
Ciao
Access 

 in questo modo se la prima if non č vera esce dall'if saltando le altre 

Ciao Access,
tutto alla perfezione
Grazie
Cataldo Formaro 

 > in questo modo se la prima if non è vera esce dall'if saltando le altre

Il codice non è il massimo pur funzionando...!
Personalmente scriverei così:
Me.img1.Visible = (Me.CodiceEsame = "45.13" Or _
                            Me.CodiceEsame = "42.13" Or _
                            Me.CodiceEsame = "51.10")
Me.img2.Visible = (Me.CodiceEsame = "45.42" Or _
                            Me.CodiceEsame = "48.23" Or _
                            Me.CodiceEsame = "45.23")
ecc....
@Alex

> >> ------CUT-----------
Il codice non è il massimo pur funzionando...!
Personalmente scriverei così:
Me.img1.Visible = (Me.CodiceEsame = "45.13" Or _
                            Me.CodiceEsame = "42.13" Or _
                            Me.CodiceEsame = "51.10")
Me.img2.Visible = (Me.CodiceEsame = "45.42" Or _
                            Me.CodiceEsame = "48.23" Or _
                            Me.CodiceEsame = "45.23")
ecc....
@Alex
Hai perfettamente ragione.
Ciao
Cataldo