Comment exécuter un code en fonction d'une valeur?

Version imprimable

01/09/2009, 21h13
tomga

Comment exécuter un code en fonction d'une valeur?

Bonsoir !
Pouvez-vous m'aider SVP
J'ai un formulaire Menu1 qui propose 4 options ,il comporte un champ
choix dans lequel est saisi le N° de l'option choisie
1/comment écrire un macro qui en fonction de l'option dans champ
CHOIX va exécuter une autre macro :
CHOIX =1 provoque le lancement de la macro 'Mac 1'
CHOIX = 2 provoque le lancement de la macro 'Mac 2'
2/Comment modifier la macropour prendre en compte les erreurs de
saisie de l'utilisateur comme :
- Saisie d'un nombre diffrérence de 1,2,3 ou 4
-Saisie d'un caractere alphabétique
-Pas de saisie effectuée
dans 3 cas il faut affichier un message avertissant l'utilisateur de son
erreur
Merci d'avance
ps: ce n'est pas le macro VBA mais il est sur langage de macros

bonsoir,
Pour éviter les erreurs de saisie, si on sait d’avance les choix à faire, faire une liste déroulante avec les choix possible et limiter les saisies à la liste.
Pour le lancement des macros ou subroutines sur l’évènement clic par exemple de la zone de liste faire le choix avec fonction « select case » -
Exemple une zone de liste déroulante avec comme valeur 1,2,3 son nom Selection :
Sur son évènement sur clic :
Code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Selection_Click() Ind = Me.Selection.Value Select Case Ind Case 1 DoCmd.RunMacro "Mac 1" Case 2 DoCmd.RunMacro "Mac 2" Case 3 DoCmd.RunMacro "Mac 3" End Select End Sub

02/09/2009, 14h17
tomga

Bonjour !
Merci a vous mais est ce que la réponse c'est la question 1 ou question 2 ?et le formulaire 'menu 1" avec le champ choix comment écrire ,Aidez-moi encore Svp merci encore d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Selection_Click()
Ind = Me.Selection.Value
Select Case Ind
    Case 1
    DoCmd.RunMacro "Mac 1"
    Case 2
    DoCmd.RunMacro "Mac 2"
    Case 3
    DoCmd.RunMacro "Mac 3"
    Case else
    MsgBox "erreur de saisie"
End Select
 
End Sub

02/09/2009, 14h55
tomga

Bonjour !
merci à vous mais pour écrire un macro qui en fonction de l'option dans le champ "choix " va exécuter ene autre macro ?
02/09/2009, 15h04
Pierre Fauconnier

Bonjour

Le Vieux et Psykodumarteau t'ont donné la solution.

As-tu testé? As-tu un problème pour la mettre en place?

Bon soir où jour,
et pardon Pierre bonsoir je viens de voir que tu es toujours là fidèle.
OK, on va vite pour répondre mais le détail du message est à analyser avec l’esprit développeur :
Chaque morceau de la phrase a son importance.
D’abord :
1) Dans mon exemple ce n’est pas une écriture de macro mais du code VBA sur évènement, dans access je n’utilise pratiquement jamais de macro sauf éventuellement celles intégrées attachées aux boutons et encore.
Donc on découpe la phrase :
1)Citation :

Citation:

« Pour éviter les erreurs de saisie, si on sait d’avance les choix à faire

= élément de réponse à ta question 2 – car si seuls les choix possibles sont inclus dans la ZLD(zone de liste déroulante), que tu limites les choix au contenu
Soit Feuille propriété de la ZLD – Données – Limiter à liste : doit être a Oui. Mais normalement cela est mis par défaut.
Si tu ajoutes la partie else proposée par psykodumarteau au code au cas où….
Il ne doit pas y avoir d’erreur.
2)citation :

Citation:

Pour le lancement des macros ou subroutines sur l’évènement clic par exemple de la zone de liste faire le choix avec fonction « select case

C’est là qu’intervient le code :
Pour cela on sélectionne en mode création du formulaire la zone de liste déroulante que j’ai nommée « selection » on ouvre sa feuille de propriété, on sélectionne l’onglet
Evènement – on choisi sur clic, on clique sur les … à droite, cela ouvre VBE avec les lignes :
Code:

1 2 3 Private Sub Selection_Click() End Sub
On insère le reste du code proposé pour arriver à celui posté
soit :
Code:

1 2 3 4 5 6 7 8 9 10 11 Ind = Me.Selection.Value Select Case Ind Case 1 DoCmd.RunMacro "Mac 1" Case 2 DoCmd.RunMacro "Mac 2" Case 3 DoCmd.RunMacro "Mac 3" Case else MsgBox "erreur de saisie" End Select
C’est la réponse à la question 1.
Si après cela tu as des soucis pour y arriver comme te l’a proposé Pierre fait nous le savoir.
A + et bon courage, on va y arriver.

02/09/2009, 22h09
Pierre Fauconnier

Bonsoir Le Vieux,

En fait, en relisant, peut-être que TOUT doit être fait par macro (<> VBA)

Tomga,
Si c'est cela, voici une solution macro

http://fauconnier.developpez.com/for...macroliste.png

http://fauconnier.developpez.com/for...eevenement.png

http://fauconnier.developpez.com/for...listemacro.png

Bien entendu, dans les paramètres de l'action pour chaque ligne de la macro, il faut adapter le nom de la macro appelée (macro1, macro2, ...)
02/09/2009, 22h59
LE VIEUX

re bonsoir Pierre,
c'est effectivement une autre solution mais comme je l'ai précisé par habitude je n'utilise pas les macros dans access, comme également un minimum de SQL direct, mais je ne suis pas un intégriste, bien sur, et plus il y a de solution à un problème plus il a de chance de n'en être plus un.
à Tomga, tu as maintenant des bases pour ta solution.
10/09/2009, 14h59
tomga

Bonjour !
Merci beaucoup à vous tous de m'aider , c'est vrai que ce n'est pas
évidence l'informaique ,mais je suis très contente que vous m'aviez m'aider
Merci encore et à la prochaine ::lol: