Définir valeur par défaut avec VBA

**legaramir** · 04/04/2009, 21h04

Bonjour à tous,

Je développe une petit système de facturation. Mon problème est le suivant: le taux des taxes changent avec les années. Pour l'instant, j'ai un formulaire pour inscrire les factures [F Fournisseurs - Factures]. Afin de changer le taux des taxes, j'ai créé un formulaire [F Configuration des taxes], servant d'interface, pour définir les taxes par défaut. Donc en cliquant sur un bouton, une boite de dialogue apparait est demande le nouveau taux de taxe pour changer le valeur par défaut du champ [TPS] qui fait partie de
[F Fournisseurs - Factures]. Boom! Erreur d'exécution 2450.

Code :

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

1
2
3
4
 
Public Sub Commande27_Click()
Forms![F Fournisseurs - Factures]![TPS].DefaultValue = InputBox("Quel est le nouveau taux(%) désiré?", "Valeur par défaut de la TPS")
End Sub

Access ne trouve par le champ. Quelle est l'erreur?
Merci à l'avance!

**LE VIEUX** · 04/04/2009, 21h45

bonsoir,
et j'avais oublié bien venu sur le forum

pour accéder au champ de ton formulaire [F Fournisseurs - Factures]. il faut que ce formulaire soit ouvert sinon il est introuvable est-ce le cas?

**legaramir** · 04/04/2009, 21h52

Merci pour l'accueil et merci de la solution. Donc, pour que le tout fonctionne je dois effectuer le changement suivant:

Code :

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

1
2
3
4
5
Public Sub Commande27_Click()
DoCmd.OpenForm ("FFournisseurs_Factures")
Forms![FFournisseurs_Factures]![TPS].DefaultValue = InputBox("Quel est le nouveau taux(%) désiré?", "Valeur par défaut de la TPS")
DoCmd.Close
End Sub

Cependant, on voit le formulaire s'ouvrir et je préfère que ne le voit pas. Peut-on faire en sorte qui s'ouvre de façon plus discrète. De plus,
si je met "5" comme valeur dans mon inputbox... on me donne un taux de "500%"

Merci encore pour l'aide... c'est apprécié!

**Dolphy35** · 04/04/2009, 22h06

Salut,

Je ne n'arrive pas à te suivre, tu passe par un formulaire pour ton taux. Pourquoi ne pas créer une table avec ton taux et réalisé une relation entre ta table et ta facturation, en gros avoir tes enregistrements de facturation et pour le calcul pointer sur ta table de taux

Sinon tu peux créer une constante en vba avec ton taux, chaque changement tu modifie la constante.

dernier conseil je t'invite à nommé tes contrôles

Dolphy

**legaramir** · 04/04/2009, 22h17

Et bien Dolphy, je désire que ma base de donnée soit "User Friendly", donc même une personne ne connaissant pas Access pourrait l'utiliser.
mon Formulaire [F Configuration de taxes] est en fait une interface contenant mon bouton qui exécute la macro. Donc, lors d'un changement de taxe, l'utilisateur n'aura qu'à cliquer sur le bouton par mettre les nouvelles valeurs par défaut.

**Dolphy35** · 04/04/2009, 22h29

re,

D'où ma première proposition

tu stock la valeur de ton taux dans une table, un form permet de modifier ce taux. Ensuite lors de tes calculs il suffit de pointer sur cette table.

Dolphy

**LE VIEUX** · 04/04/2009, 22h36

re,
petite précision il doit être ouvert en mode création,

essai le code :

Code :

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

1
2
3
4
Private Sub Commande27_Click()
DoCmd.OpenForm "F Fournisseurs - Factures", acDesign
Forms![F Fournisseurs - Factures]![TPS].DefaultValue = InputBox("Quel est le nouveau taux(%) désiré?", "Valeur par défaut de la TPS")
End Sub

ton problème vient aussi peut-être du nom de tes forms -
eviter les espaces et surtout les " -,;." ect...
Exemple utiliser "F_Fournisseurs_Factures"
sinon tu risque d'avoir un jour de gros problèmes
voir test joint qui fonctionne

**legaramir** · 04/04/2009, 22h36

Donc si je comprend tu me suggère de changer la valeur par défaut directement dans ma table lieu du formulaire (ce qui est logique)?

J'ai tout de même trouver comment exécuter le tout!
J'ai ajouté un Echo à ma macro.
Il me reste a trouver comment résoudre le problème de format concernant ma valeur de mon inputbox.... admettons que la valeur du inputbox = "3" et bien la valeur par défaut du champ(format:pourcentage) deviendras 300%. Moi je veux 3%.

Merci.

**Renardo** · 05/04/2009, 08h40

bonjour
essai

Code :

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

Forms![F Fournisseurs - Factures]![TPS].DefaultValue = InputBox("Quel est le nouveau taux(%) désiré?", "Valeur par défaut de la TPS")/100

**legaramir** · 05/04/2009, 17h47

Bien pensé Renardo, malheureusement le champ indique la fameuse erreur #Nom?

**Renardo** · 05/04/2009, 20h02

après essai
apparemment c'est le DefaultValue qui pose problème sinon ça fonctionne

**legaramir** · 05/04/2009, 21h32

Merci à tous pour les solutions.

J'ai un peu changer la donnée du problème donc ...
J'ai un formulaire [FConfiguration_de_taxes] pour définir la valeur par défaut.

Le bouton Confirmer exécute la macro suivante pour reporter la valeur.

Code :

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

1
2
3
4
5
6
7
Public Sub Commande4_Click()
Application.Echo False
DoCmd.OpenForm "FFournisseurs_Factures", acDesign
Forms![FFournisseurs_Factures]![Taux TPS].DefaultValue = Forms![FConfiguration_de_taxes]![Texte9]
DoCmd.Close acForm, "FFournisseurs_Factures", acSaveYes
Application.Echo True
End Sub