Discussion :

[casse.gueule]

J’ai un formulaire dans lequel, il y a champ, calculé avec une expression comme ci-dessous

=VraiFaux([Formulaires]![RETOUR]![CASECOCHE]="En cours";0;VraiFaux([Formulaires]![RETOUR]![CASECOCHE]="Oui";[Quantitée]*100;VraiFaux([Formulaires]![RETOUR]![CASECOCHE]="Non" Et [Revendu]="Oui";0;VraiFaux([Formulaires]![RETOUR]![CASECOCHE]="Non" Et [Revendu]="Non";[Prix achat u]*[Quantitée]))))

J'aimerai remplacer les valeurs 0 et 100 en gras par des variables.
cela ne marche pas pourtant mes variables sont initialisées et declarées dans à l'ouverture du formulaire.
comment faire ?

Mon essai (marche pas)
-----------
Private Sub Form_Current()
Dim montimp_retouraccept As Interger
Dim montimp_produitrevendu As Interger
Dim montimp_encours As Interger
........
End Sub

=VraiFaux([Formulaires]![RETOUR]![CASECOCHE]="En cours";[montimp_encours];VraiFaux([Formulaires]![RETOUR]![CASECOCHE]="Oui";[Quantitée]*[montimp_retouraccept];VraiFaux([Formulaires]![RETOUR]![CASECOCHE]="Non" Et [Revendu]="Oui";[montimp_produitrevendu];VraiFaux([Formulaires]![RETOUR]![CASECOCHE]="Non" Et [Revendu]="Non";[Prix achat u]*[Quantitée]))))

erreur #Nom ? à execution

Merci pour les réponses

[Tofalu]

En déclarant une fonction publique dans un module qui ira chercher ces valeurs ... il n'y a pas d'autre solution

[casse.gueule]

Bonsoir

Merci de ta reponse rapide je regarde demain.

[kahmsin]

En déclarant une fonction publique dans un module qui ira chercher ces valeurs ... il n'y a pas d'autre solution

voici mon expression dans une colonne de requête :

NB2: VraiFaux([NB1]>0;VraiFaux(nz([date de vente])<>"" Et nz([date de vente])<[Madate];round((#30/09/2005#-[date de vente]+1)/365;2);0)+VraiFaux(nz([date de vente])="" Ou nz([date de vente])>#30/09/2005#;1;0);0)

j'ai voulu suivre le conseil de Tofalu et j'ai assayer de faire celà :

Code :

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

1
2
3
4
5
Public Function machin()
    Dim Madate As Date
    Madate = #9/30/2005#
 
End Function

mais ça ne fonctionne pas, il me demande toujours dans ma requête de saisir "Madate". :

[User]

Salut,

Tu fais:

Code :

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

Public Madate As Date ' déclaration dans un module indépendant

' Définition de la fonction

Code :

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

1
2
3
Public Function machin() 
machin=Madate      
End Function

et tu remplace [Madate] dans ta requête par: machin()

tu mets a jour ta variable public
dans ton code, par exemple :

Code :

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

Madate = #9/30/2005#

et tu exécute ta requête.

@+