Discussion :

[sugan]

bonjour à tous , je veux executer une macro dont les conditions dépendent de la valeur d'un control appartenant à un sous-formulaire . je l'ai fait executer à l'événement de màj du control , mais la macro refuse de s'executer : un message me dit que le sous-formulaire est inconnu ou n'appartient à la base ou bien encore qu'il n'est pas ouvert ? . J' ai bien tenter de passer par du code , mais c'est chaud

pouvez-vous m'aider ?

merci
sugan.

[zoom61]

Salut,

Que dois faire ta macro, que contient ton formulaire (champ nécessaire à la condition), quelle est la condition

Voilà un peu les info que tu dois nous fournir pour que l'on t'aide.

@+.

[sugan]

OK d'accord

je veux que ma macro execute une R màj voulue en fonction de la valeur saisie dans une zone de liste :c'est çà ma condition :
cette zone de liste est situé dans un sous formulaire qui lui dépend d'un control du formulaire .

si valeur 1 de liste = condition 1 -> Rmàj 1 s'éxécute
si valeur 2 d eliste = condition 2 -> Rmàj 2 s'execute
si valeur 3 de liste = condition 3 -> Rmàj 3 s'execute

de plus j'ai tester ma macro en faisant ouvrir mon sous formulaire à l intérieur de ma macro juste avant mes conditions, cela marche mais mon sous-formulaire alors n'est plus lié à mon formulaire .

merci pour votre aide

sugan

[zoom61]

Salut,

Voici le code VBA qui correspond à ta macro, il te suffit de le mettre à la place de ta macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
docmd.setwarnings false
if forms![formulaire]![sous_formulaire]![liste] = 1 then
   Docmd.openquery requete_maj_1
end if
if forms![formulaire]![sous_formulaire]![liste] = 2 then
   Docmd.openquery requete_maj_2
end if
if forms![formulaire]![sous_formulaire]![liste] = 2 then
   Docmd.openquery requete_maj_2
end if
docmd.setwarnings true

J'espère que cela t'aidera.
@+.

[Tofalu]

Salut,

Voici le code VBA qui correspond à ta macro, il te suffit de le mettre à la place de ta macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
docmd.setwarnings false
if forms![formulaire]![sous_formulaire]![liste] = 1 then
   Docmd.openquery requete_maj_1
end if
if forms![formulaire]![sous_formulaire]![liste] = 2 then
   Docmd.openquery requete_maj_2
end if
if forms![formulaire]![sous_formulaire]![liste] = 2 then
   Docmd.openquery requete_maj_2
end if
docmd.setwarnings true

J'espère que cela t'aidera.
@+.

La succession de IF ains, c'est vraiment laid. Préfere un SELECT CASE, ou bien alors des If elseIf End If

[sugan]

salut zomm 61 , j'ai tenter incorporer et le code que tu ma donné , mais rien ne se passe . je n'ai plus de bug mais les réqu^tes ne s'éxécute pas .
voici ce que j'ai rentrer :

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
 
Private Sub N°_AfterUpdate()
 
If Forms![F-MAINTENANCE]![F-DETAIL MAINTENANCE]![N°] = 1 Then
DoCmd.OpenQuery "R-maj qté sur puit gauche"
End If
If Forms![F-MAINTENANCE]![F-DETAIL MAINTENANCE]![N°] = 2 Then
DoCmd.OpenQuery "R-maj qté sur puit droite"
 
End If
 
If Forms![F-MAINTENANCE]![F-DETAIL MAINTENANCE]![N°] = 3 Then
DoCmd.OpenQuery "R-maj qté sur 2 puits"
 
End If
If Forms![F-MAINTENANCE]![F-DETAIL MAINTENANCE]![N°] = 4 Then
DoCmd.OpenQuery "R-maj qté sur puit gauche"
 
End If
 
 
End Sub

si je ne met pas les guillemets , il ne signifie "projet inconnu" au niveau du nom des requêtes.

merci pour ton aide.

sugan

[zoom61]

Pour voir si tes tests fonctionnent :

Code :

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

1
2
3
4
5
6
7
8
Private Sub N°_AfterUpdate()
If Forms![F-MAINTENANCE]![F-DETAIL MAINTENANCE]![N°] = 1 Then
   Msgbox "Test 1 ok"
   DoCmd.OpenQuery "R-maj qté sur puit gauche"
   else
   Msgbox "Test 1 non"
End If
...

Si les tests fonctionnent cela vient de tes requêtes.

@+.