Discussion :

[lmollard]

Bonjour à tous...

voilà, j'ai un état et ce code dans l'ouverture :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Report_Open(Cancel As Integer)
  If Me![FactureHT] = -1 Then
    Me![NetdeTaxes].Visible = False
    Me![tva].Visible = True
    Me![totalHT].Visible = True
    MsgBox ("ATTENTION, vous êtes sur le point d'imprimer une facture avec de la TVA, ceci n'est nécéssaire que si vous facturez pour de la prestation de services !")
 
 
    Else
    Me![NetdeTaxes].Visible = True
    Me![tva].Visible = False
    Me![totalHT].Visible = False
 
  End If
End Sub

Et lorsque j'ouvre l'état, je reçois ce message d'erreur :

Erreur d'execution '2427'
Expression sans parametre

Le champ (FactureHT) sur lequel je teste mon IF, est un Oui/Non. Cà fait la même chose, si je remplace mon -1 par true.
Si je remplace cette expression par 1=1 ou 1=0, çà fonctionne parfaitement...

Si quelqu'un pouvait m'aider...

Par avance merci,

Lionel

[argyronet]

Bonjour,

L'événement Open ne peut pas gérer le contenu d'un champ directement comme tu le souhaites.
De plus, le fait d'avertir l'utilisateur dans ton bloc If/End If n'empêchera pas l'impression car tu n'emets pes de condition d'annulation...

Pour répondre à ta question, essaye plutôt comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Report_Activate()
 If Me![FactureHT] = -1 Then
    Me![NetdeTaxes].Visible = False
    Me![tva].Visible = True
    Me![totalHT].Visible = True
    MsgBox "ATTENTION !!!" & vbCrLf & "Vous êtes sur le point d'imprimer une facture avec de la TVA, ceci n'est nécéssaire que si vous facturez pour de la prestation de services !"
  Else
      Me![NetdeTaxes].Visible = True
      Me![tva].Visible = False
      Me![totalHT].Visible = False
  End If
End Sub

Mais pour empêcher l'impression, il faut vérifier le contenu de "FactureHT" avant d'appuyer sur le bouton du formulaire qui exécute cette impression de manière à pouvoir annuler
Donc, ton idée de base n'est pas bonne.

Argy

[lmollard]

Salut, et merci pour ta rapide réponse..

cependant, çà ne fonctionne pas encore...

je n'ai plus de message d'erreur, mais par contre, tous mes contrôles restent affichés, quelque soit l'état du champ oui/non... Même si pour tester, je remplace par 1=1...

En ce qui concerne le message à l'utilisateur, c'est une option pour moi, de toute façon l'état est en preview, je voulais juste mettre en garde la personne...

Lionel

[argyronet]

Tu n'as qu'à ajouter à tes champs à masquer des champs indépendants où figure une fonction de condition:

Code :

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

1
2
3
4
=IIf([FactureHT]=True; True; False) 'Case à cocher
=IIf([FactureHT]=True; [tva]; "") 'txtTVA
=IIf([FactureHT]=True; [totalHT]; "") 'txtHT
=IIf([FactureHT]=True; ""; [NetdeTaxes]) 'txtNetdeTaxes

De là, les champ contiennent ou ne contiennent pas de valeur selon l'état de FactureHT

Argy

[lmollard]

Re !

Entre temps, j'ai essayé de recopier mes champs, vers un état vierge... et là, ta solution n° 1 a fonctionné...

Je me suis donc penché sur les différences entre l'ancien état et le nouveau, pour trouver la chose suivante :

Si je mets "Oui" à "Fenetre indépendante", çà ne fonctionne pas, dans le cas contraire, çà fonctionne ! Va comprendre pourquoi !!!

Merci encore...

@+

Lionel