Discussion :

[Chrissrare]

Dans une procédure vba, j'ai le code suivant :

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
16
17
18
19
20
21
22
23
24
Private Sub lbl_impressionapresmodif_Click()
 
  DoCmd.RunCommand acCmdRefresh
  If (Eval("[Forms]![Modif demande devis]![SF Modif demande devis 1]![Modifiable24] Is Not Null")) Then
    DoCmd.OpenReport "demande de devis aprés modif f1", acViewNormal
  End If
 
  If (Eval("[Forms]![Modif demande devis]![SF Modif demande devis 1]![Modifiable26] Is Not Null")) Then
    DoCmd.OpenReport "demande de devis aprés modif f2", acViewNormal
  End If
 
  If (Eval("[Forms]![Modif demande devis]![SF Modif demande devis 1]![Modifiable29] Is Not Null")) Then
    DoCmd.OpenReport "demande de devis aprés modif f3", acViewNormal
  End If
 
  If (Eval("[Forms]![Modif demande devis]![SF Modif demande devis 1]![Modifiable32] Is Not Null")) Then
    DoCmd.OpenReport "demande de devis aprés modif f4", acViewNormal
  End If
 
  If (Eval("[Forms]![Modif demande devis]![SF Modif demande devis 1]![Modifiable34] Is Not Null")) Then
    DoCmd.OpenReport "demande de devis aprés modif f5", acViewNormal
  End If
 
End Sub

En fait, vous avez compris. Cette procédure permet d'imprimer des états à condition qu'un champ d'un formulaire ne soit pas vide. Quand je lance cette procédure en ayant access complet sur le poste, ca fonctionne mais si je le lance avec le runtime ca ne marche plus !!?? Il imprime les 5 états sans tenir compte des "if".

Pouvez-vous m'aider ??

Merci d'avance ...

[AlainTech]

Juste pour voir ce que ça donne, juste après la ligne

Code :

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

DoCmd.RunCommand acCmdRefresh

essaye de mettre:

Code :

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

Msgbox Eval("[Forms]![Modif demande devis]![SF Modif demande devis 1]![Modifiable24] Is Not Null")

Ca te donnera une idée de ce qui est renvoyé par ton Eval.

Si je te propose ça, c'est que j'ai un doute quant à la pertinence d'Eval dans ce cas là.

[Chrissrare]

Ca me renvoi la valeur -1

On peut utiliser quoi d'autres qu'(eval) alors ???

[Xan]

bah, -1, ca revient à True, en VB, je me trompe?

Donc, normalement, ton code devrait fonctionner. Moi, je dois bien avouer que je ne comprend pas u__u

[Chrissrare]

Ca fonctionne de toute façon puisque quand access est installé ca marche. Le souci n'apparaît qu'avec le runtime.

D'ou ma question : Y a t'il une autre façon de faire la même chose !??

[AlainTech]

Ca me renvoi la valeur -1

On peut utiliser quoi d'autres qu'(eval) alors ???

C'est le même résultat aussi pour des champs vides?

[Chrissrare]

Non quand le champ est plein il renvoi la valeur -1 et quand il est vide, il renvoi la valeur 0 ...

[AlainTech]

Ce que tu réponds, c'est bien en testant en Runtime?

Si le Msgbox renvoie les bonnes valeurs et que le If n'en tient pas compte, c'est kya un couac...

[Chrissrare]

Oupppps désolé AlainTech, je te donnais le résultat avec Access d'installé. Quand je lance sur la version RUNTIME il me renvoi tout le temps la valeur -1. Que la combo soit vide ou pleine c'est pareil.

Encore dsl...

Merci ...

[AlainTech]

Je serais toi, j'essayerais avec une syntaxe du genre:

Code :

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

If Not [Forms]![Modif demande devis]![SF Modif demande devis 1]![Modifiable24].Text = ""

Plus "universelle", à mon avis...

[AlainTech]

J'ai retrouvé la bonne syntaxe.

Code :

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

If Not IsNull([Forms]![Modif demande devis]![SF Modif demande devis 1]![Modifiable24])

Edit --> Pour autant que la valeur de Modifiablexx puisse bien être Null.

Ca devrait être accepté autant en RunTime qu'en développement.

[Chrissrare]

Ca marche nikel !!! Je te remercie beaucoup ...