Discussion :

[dangeles]

Bonjour,

J'ai 4 boutons qui lancent 4 états. Ces 4 états sont fonctions de ce qu'est saisie dans 2 champs du sous-formulaire.

illustration: si champs sens="achat" et champ type ="B" c'est l'état 1 qui se lance.

Ce que je veux c'est de rendre visibles les boutons selon les infos saisies dans ces 2 champs. Puisque si par exemple sens=vente, l'état ne sera pas rempli par de données, puisque ces états ont comme source une requête.

Donc en général il y aaur 4 boutons dont 2, dans certains cas, ne seriviront à rien (pas d'infs).

[marsouin_89]

Bonjour,

Pourquoi ne pas avoir qu'un seul bouton et fonction de la valeur de tes champs, tu ouvres tel ou tel état ?

Cordialement

Christophe

[dangeles]

merci pour la réponse.

Oui c'est mieux!
Je sais pas si ça complique les choses. En fait, parfois ce bouton doit ouvrir 2 états simultanément et parfois qu'un seul. Car dans le sous-formulaie, pevent être saisi 1 à 2 produits... Donc si c'est possible tant mieux.

j'ai essayé de mettre ça dans "après MAJ" du formualire principal , mais ça marche pas...

Code :

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

1
2
3
4
5
If Forms![pack]![subpack].Form![sensID] = "achat" Then
Me.bouton1.Visible = True
Else
Me.bouton1.Visible = False
End If

[marsouin_89]

Bonsoir,

A mon sens, tu te prends la tête avec ton visible et non visible.

Sur le click de ton bouton, tu pourrais avoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub MonBouton_OnClick()
If Me.Sens="blablabla" Then
DoCmd.OpenReport "Etat1"
Else If Me.Sens="bliblibli" Then
DoCmd.OpenReport "Etat2"
...
Else
'Message si aucune condition ne correspond aux critéres pour ouvir un état
MsgBox "Veuillez saisir les bonnes informations avant d'ouvrir un état."
End If
End Sub

Cordialement

Christophe

[dangeles]

Aiie, j'ai encore oublié d'affcher le code comme il le faut.

Merci,en effet, pas besoin de visible/invisible s'il y a un bouton.

je vais adapter cela...

[dangeles]

je l'ai fait mais rien ne se passe!
voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub bouton_Click()
If Me![subpack].Form![sensID] = "achat" And Me![subpack].Form![typeID] = "A" Then
DoCmd.OpenReport "état achat_A"
ElseIf Me![subpack].Form![sensID] = "achat" And Me![subpack].Form![typeID] = "B" Then
DoCmd.OpenReport "état achat_B"
ElseIf Me![subpack].Form![sensID] = "vente" And Me![subpack].Form![typeID] = "A" Then
DoCmd.OpenReport "état vente_A"
ElseIf Me![subpack].Form![sensID] = "vente" And Me![subpack].Form![typeID] = "B" Then
DoCmd.OpenReport "état vente_B"
End If
End Sub

[marsouin_89]

Bonsoir,

Pour vérifier que tes valeurs sont bonnes, essaies ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub bouton_Click()
If Me![subpack].Form![sensID] = "achat" And Me![subpack].Form![typeID] = "A" Then
MsgBox "état achat_A"
ElseIf Me![subpack].Form![sensID] = "achat" And Me![subpack].Form![typeID] = "B" Then
MsgBox "état achat_B"
ElseIf Me![subpack].Form![sensID] = "vente" And Me![subpack].Form![typeID] = "A" Then
MsgBox "état vente_A"
ElseIf Me![subpack].Form![sensID] = "vente" And Me![subpack].Form![typeID] = "B" Then
MsgBox "état vente_B"
Else
MsgBox "Aucune valeur correcte"
End If
End Sub

Cordialement

Christophe

[dangeles]

En effet, valeur incorrecte.
Je suis certain que les valeurs sont bonnes. Mais, c'est mon sous-fomulaire qu'est bizzare. J'ai créé mon formulaire via l'assitant, qu'a automatiquement généré le sous-form., le problème est que ce formulaire, en mode création est toalement blanc, avec en haut à gauche marqué table.nomdematable

Alors que généralement les sous-formulaires en mode création s'affichent différement, je me trompe?

[marsouin_89]

Bonjour,

Ah, on commence à toucher le problème.

Si ton sous-formulaire apparaît tout blanc, c'est certainement que tu l'a renommé.
Donc, tu sélectionnes ton sous-formulaire, tu vas dans les propriétés et dans Données/Objet source tu vérifies si le nom du formulaire est bien le même que celui que tu penses.

Après, dis moi ce qui ce passe et on avisera.

Cordialement

Christophe

[dangeles]

Non je n'ai pas renommé. J'ai créé le formulaire automaiquement. Je me suis placé sur la table principale et le formualire avec le sous-formualre s'est créé automatiquemnt, via création et formulaire. (je travail sur acess 2010, mais le projet doit se faire sur 2003)

Oui, le nom dans source objet est différent, il est de type: Table.nomtable alors que dans l'onglet autre puis nom, j'ai autre chose.


PS: en fait, le sous-formualire apparait en blanc qu'en mode création

[marsouin_89]

Bonsoir,

Tu ne devrais pas avoir Table.nomtable comme objet source.
Ce doit être le nom de ton sous-formulaire.

Quant à la propriété Nom dans Autre, il peut être différent mais c'est à ce nom là que tu fais référence lorsque tu veux désigner un sous-formulaire.

Donc, corriges la source (Objet source) de ton sous-formulaire et on voit la suite ensemble.

Cordialement

Christophe

[dangeles]

Alors j'ai corrigé/changé le nom et j'obtiens un message d'erreur comme quoi ce formulaire n'existe pas. En plus, le sous-formulaire disparait du formulaire principal.

Est-il possible que ce ne soit pas un sous-formulaire mais autre chose qui se rapproche d'un sous-formulaire. Par exemple, je n'ai pas l'option qui permet d'enlever les flèches de navigation d'enregistrements du sous-formulaire.

[dangeles]

Je viens de trouver la réponse grâce à cette phrase : "Tu ne devrais pas avoir Table.nomtable comme objet source.
Ce doit être le nom de ton sous-formulaire."

J'ai eu un déclic:
Cela ne venait pas du sous-formulaire mais des champs qui constituent le sous-formulaire. En fait, les champs que j'utilise pour les critères venaient d'une "table recherche". Donc au lieu de mettre par exemple achat j'ai mis 1, puisque le chiffre 1 faisait référence à "achat" dans la table. Et ça marche.


Merci pour ton aide!!!!

oups, parcontre il m'imprime qu'un seul état, alors que certains enregistrements nécessitent 2. Je croix la fonctionif n'est pas bien adaptée...

J'ai besoin qu'une fois la première condition remplie, les autres soient vérifiées également. Est-ce qu'il faut la fonction Do While ?

[marsouin_89]

Bonsoir,

Cela me semble normal de n'avoir qu'un seul état puisque tu appèles un état particulier en fonction de certaines valeurs qui sont dans certains champs.

Maintenant, si tu souhaites ouvrir tous tes états, il te faut alors revoir ton code.
Je ne sais pas ce que tu souhaites faire en sortie.

Réfléchis à cette dernière phase et tu devrais atteindre ton but.
Auquel cas, n'hésites pas à continuer ce post, j'essaierais de t'aider.

Cordialement

Christophe

[dangeles]

En fait, dans le sous formulaire peuvent être saisi au maximum 2 lignes et minimum 1 ligne.

Ce qui veut dire que si l'utilisateur saisi une ligne, il y a ouverture d'un état. Mais s'il y a 2 lignes, il y a forcément 2 états qui doivent s'ouvrir. Or ce que fait cette fonction c'est qu'une fois la première condition est vérfiée, elle ouvre l'état et ne vérifie pas les autres.

je ne veux pas ouvrir tous les états sauf ceux qui répondent aux critères définis par ce qu'est saisi dans le sous-formulaire.

Explication: imaginez il y 2 produits (A et B) et 2 types de transaction possibles pour chaque produits (achat /vente). Donc j'ai 4 états (achat A, achat B, vente A, vente B).

Si j'ai dans le sous-form. record1-> sens: achat type:A, il fat que le bouton ouvre que l'état "achat A" et non les autres.

Mais si j'ai dans le sous-form: record1-> sens: achat type:A
record2-> sens:vente type: B

Je veux que le bouton ouvre l'état "achat A" et l'état "vente B" et pas les autres.

je sais pas comment faire pour modifier la fonction IF de telle sorte qu'elle vérfie toutes les conditions.

merci

[marsouin_89]

Bonsoir,

A ce moment là, lorsque tu clique sur ton bouton, il te faut boucler sur les enregistrements de ton sous-formulaire et fonction de ce tu trouves, tu ouvres les formulaires adéquates.

Cordialement

Christophe

[dangeles]

Je ne comprends pas ce que tu veux dire.

Je vais faire les 4 boutons avec visible et invisible, c'est plus simple je pense.

[marsouin_89]

Bonsoir,

A toi de voir ce qui te convient le mieux.

Cela dit, si cette discussion te convient dans l'aboutissement de ta question initiale, n'oublie pas de cocher la case "Résolu" afin que cela profite à tout le monde.

Cordialement

Christophe

[dangeles]

oui, merci pour votre aide!