[VBA-A]Pb avec la commande if dans vba

Version imprimable

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

Code:

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 ...

10/04/2006, 22h39
AlainTech

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

Code:

DoCmd.RunCommand acCmdRefresh

essaye de mettre:

Code:

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à.
11/04/2006, 09h49
Chrissrare

Ca me renvoi la valeur -1

On peut utiliser quoi d'autres qu'(eval) alors ???
11/04/2006, 11h06
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
11/04/2006, 11h41
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 !??
11/04/2006, 14h10
AlainTech

Citation:

Envoyé par Chrissrare

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?
11/04/2006, 16h57
Chrissrare

Non quand le champ est plein il renvoi la valeur -1 et quand il est vide, il renvoi la valeur 0 ...
11/04/2006, 21h06
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...
12/04/2006, 08h57
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 ...
12/04/2006, 12h20
AlainTech

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

Code:

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

Plus "universelle", à mon avis...
12/04/2006, 16h11
AlainTech

J'ai retrouvé la bonne syntaxe.

Code:

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.
14/04/2006, 09h09
Chrissrare

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

:D :D :D :D