Discussion :

[sami0701]

Bonjour

Dans mon formulaire j'ai un Menu déroulant qui contient les éléments suivants : PROA, PROB,PROC,PROD,PROE

Si l'utilisateur choisi PROA, un formulaire Frm_PROA doit s'ouvrir pour être renseigné,

idem Si PROB , c'est le form Frm_PROB qui doit s'ouvrir etc

j'ai mis l'expression suivante mais elle ne marche pas

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 Rub_AfterUpdate()
 
If Rub = "PROA" Then
DoCmd.OpenForm "Frm_PROA"
ElseIf Rub = "B" Then
DoCmd.OpenForm "Frm_PROB"
:
:
:
Else
Exit Sub
End If
End Sub

Rub est le nom du champ contenant le Menu déroulant

Aider moi SVP, Merci

[User]

utilise les balise de code pour l'encadrer (#):

Sinon avec un select case sur afterupdate:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
...
 
Select Case Me.Rub.Value
 
Case "PROA"
DoCmd.OpenForm "Frm_PROA"
 
Case "PROB""
DoCmd.OpenForm "Frm_PROB"
 
...
 
End Select

Ou encore plus simplement:

Code :

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

DoCmd.OpenForm "Frm_" & Me.Rub.Value

A+

[sami0701]

Merci User pour ton aide j'ai essayé les 2 codes mais ça marche pas, je n'arrive pas à trouver l'erreur

Merci pour l'aide

[User]

Re,

vérifie dans les propriétés de ta liste Rub :

Sur l'évènement après maj tu as bien [Procédure événementielle]

Si oui cliques sur les 3 petits points à droite,

normalement tu dois avoir le code:

Code :

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

1
2
3
4
5
Private Sub Rub_AfterUpdate()
 
DoCmd.OpenForm "Frm_" & Me.Rub.Value
 
end sub

Si tout est ok, donne nous alors le message d'erreur ou autre

[sami0701]

Tout est OK, le message d'erreur est le suivant:

L'expression après MAJ entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Un problème est survenu durant la communication entre Prod_Sp et le serveur OLE ou le contrôle ActiveX.


Prod_Sp est le nom de mon Formulaire qui contient le MD

Merci

[User]

le Menu Déroulant comme tu dis, c'est bien une zone de liste déroulante pris sur la boîte à outils Access ???

[sami0701]

Non le formulaire est créé à partir d'un Tableau, j'ai une table avec 2 champs (ID_Rub et Rub) et une 2ème table avec 4 champs (ID_Bon, Date, Client, Rub) ce dernier champ est sous forme de liste déroulante lié au 1er tableau et à partir de ce 2ème tableau j'ai crée mon formulaire qui a les mêmes champs

Merci

[User]

donc,

si la propriété contenu de ta liste déroulante vaut "Table1"
sur ta liste déroulante il faut mettre:

pour la propriété
Nbre colonne =2
et
colonne liée=2

[User]

Sinon pour ton message d'erreur j'ai trouvé une discussion qui ressemble beaucoup à ton problème:
http://www.developpez.net/forums/d68...e/#post3980561

A+

[sami0701]

Oui, j'ai fait tout ça mais j'ai toujours même message d'erreur.
comment je peux t'envoyer ma BD pour la voir de près?

Merci

[User]

Croisement,

parcours d'abord cette discussion:
http://www.developpez.net/forums/d68...e/#post3980561

[sami0701]

Re

En changeant la langue pour les programmes non unicode dans le panneau de configuration, le message d'erreur à changer et devient " .....Un problème est survenu durant la communication entre M.S.O et le serveur OLE ou le contrôle ActiveX".

alors qu'avant c'étais entre BD et le serveur

Merci pour votre patience

[sami0701]

Merci beaucoup pour votre aide, le pb est résolu

j'ai créé un nouveau formulaire et je refait le travail et ça marche


Merci infiniment pour votre aide et votre patience