Discussion :

[Fredri]

Je voudrais que que mon champ et son étiquette Quantitéplus ne soit visible dans mon rapport si et seulement si il n'est pas vide.

Peut on utiliser Valisesi je n'ai pas réussi j'ai essayé de codé ca dans l'evenement ouverture da l'état mais ca marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.Quantitéplus = null Then Me.Quantitéplus_etiquette.Form.Visible = False

Avez vous des idées ?

Merci

[zoom61]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Me.Quantitéplus is null Then
      Me.Quantitéplus_etiquette.Form.Visible = False
end if

Il me semble bien que la fonction null fonctionne avec "is" et pas "=" ?

[Fredri]

ca marche pas il me fait erreur '424' objet requis

[Petogaz]

salut,

Je voudrais que que mon champ et son étiquette Quantitéplus ne soit visible dans mon rapport si et seulement si il n'est pas vide.

code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Isnull(Me.Quantitéplus) Then 
      Me.Quantitéplus_etiquette.Form.Visible = False 
end if

[Muhad'hib]

Juste une petite remarque.

Perso je n'utilise pas la fonction Isnull mais un test sur la longeur de la chaine. Parce que si la chaine n'est pas Null mais vide, Isnull(chaine) est faux. Je fais donc un test genre if len(chaine) = 0 ou if chaine & "" = "" .
Il y a bien sûr des cas ou on veut juste savoir si la chaine est null, mais en général qu'elle soit null ou vide le prog est le même.

[Fredri]

ca marche toujours pas !
l' erreur 2455 : Form/Report qui n'est pas valide

Ca parraissait pourtant pas compliqué !!!

[Petogaz]

salut,

en effet Muhad'hib a raison il y a une différence entre une chaine vide et null. j'ai répondu sans avoir bien lu le sujet.

pour être sûr de notre coup. cest à dire évaluer une chaine vide ou null il est plus correcte d'utiliser la fonction NZ. dans ce cas le code devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If len(nz(Me.Quantitéplus),"")=0 Then 
      Me.Quantitéplus_etiquette.Form.Visible = False 
end if

N.B et ceci devrait fonction qu'il s'agisse d'une chaine vide ou d'un Null.

[Fredri]

modidication parenthèse sinon erreur de compilation puis maintenant
Erreur 2427 expression sans parametre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Report_Open(Cancel As Integer)
If Len(Nz((Me.Quantitéplus), "")) = 0 Then
Me.Quantitéplus_etiq__.Form.Visible = False
End If

Je désespère d'y arriver un jour

[boubignole]

salut

Faut mettre le code sur l'évènement Au formatage de la section ou se trouve ton champs.

[Fredri]

Tjrs erreur 2455 sur Form/report !

Merci quand même !

[boubignole]

chez moi ce code marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me!NoTvaIntra) Or Me!NoTvaIntra = "" Then
EtiquetteTVA.Visible = False
Else
EtiquetteTVA.Visible = True
End If

peut etre c'es un pb d'utilisation du . et du !

[Alexandre Sahli]

change ton code en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Report_Open(Cancel As Integer) 
If Len(Nz((Me![Quantitéplus]), "")) = 0 Then 
Me![Quantitéplus].Visible = False 
End If

et çà devrait fonctionner