Discussion :

[Stéph utilisateur d'acces]

Bonjour à tous

mon probmême est classique.

j ai un tableau de bord avec une liste déroulante ( liste ) de membres pour ouvrir le formulaire ( COTISATIONS DES MEMBRES) correspondant à ce membre grace à l' ID: N°

voici mon code:

Code :

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

1
2
3
Private sub liste_AfterUpdate()
DoCmd.OpenForm "COTISATIONS DES MEMBRES",,, "N° = " & liste
liste = ""

il me plante et me rebalance sur ce code.

avez vous une idée?

merci à tous

steph

[Jean-Philippe André]

salut,
j'ai un doute, mais je propose

Code :

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

DoCmd.OpenForm "COTISATIONS DES MEMBRES",,, "N° = " & Me.liste.value

[Stéph utilisateur d'acces]

bonjour

merci, mais ça fonctionne toujours pas.

a +

[FreeAccess]

Bonjour,

...mais ça fonctionne toujours pas.

........Avec ce genre de réponse on risque de passer beaucoup de temps...

.... avec une liste déroulante ( liste ) de membres pour ouvrir le formulaire ( COTISATIONS DES MEMBRES)

Ta zone de liste doit contenir le champ ID (de type Numérique...)

Propriété de ta ZdL: (On cache la 1ère colonne contenant l'ID..)
Nombre Colonne = 3
Largeurs colonnes = 0cm;1,459cm;2,542cm

Puis sur l'événement "Après MAJ" de la ZdL

Code :

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

DoCmd.OpenForm "COTISATIONS DES MEMBRES", , , "[ID]= " & Me.Liste.Column(0)

....et bien sur, il faut également que le champ ID soit présent sur ton formulaire que tu va ouvrir (COTISATIONS DES MEMBRES)..

[Stéph utilisateur d'acces]

merci Speedfree

J ai testé, ça fonctionne bien avec un Id ( N°) numérique mais j'avais créé mon Id en type texte et la j'ai erreur 2501.

si je veux modifier mon type, ça efface de nombreux enregistrements.

Y a t il un équivalent à ton code pour un Id de type texte?

Merci de ton aide

steph

désolé c est FreeAccess ton pseudo

[mnssylvain]

Il me semble que si ta valeur est au format texte qu'il fait le faire comme ceci:

Code :

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

DoCmd.OpenForm "COTISATIONS DES MEMBRES", , , "[ID]= ' " & Me.Liste.Column(0) &" ' "

ou

Code :

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

DoCmd.OpenForm "COTISATIONS DES MEMBRES", , , "[ID]= ' " & Me.Liste.value &" ' "

en fonction de la valeur qui t'intéresse dans ta liste......
a+

[Stéph utilisateur d'acces]

merci de ta réponse

mais dans les 2 cas, il m'ouvre bien le formulaire mais ..vide.

il y a visiblement un problême de liaison avec mon ID de type texte alors que lorsque l'id est en numérique ( solution de freeacess) ça marche bien, j'ai testé sur un petit form .

j'ai bien sur vérifié mes liens. tout est ok

steph

[FreeAccess]

Bonjour,

Si ton ID est de type "Texte"......

Code :

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

DoCmd.OpenForm "COTISATIONS DES MEMBRES", , , "[ID]= '" & Me.Liste.Column(0) & "'"

Pour tester, à partir de mon exemple précédent, tu change uniquement le type de ID dans ta table et tu modifie le code.....

...mais j'avais créé mon Id en type texte

....dans ta table, à partir d'un type "Texte" tu peux très bien le mettre en "numérique"...........de plus tu verras rapidement que si un jour tu veux effectuer un tri par rapport à ton champ ID, avec un type de champ "Texte" tu va avoir quelques surprises....

@ mnssylvain
Ta solution était presque bonne..........mais pour que cela fonctionne correctement il ne faut pas mettre d'espace dans "[ID]= ' " et dans Me.Liste.Column(0) &" ' "......

...mais dans les 2 cas, il m'ouvre bien le formulaire mais ..vide.

.....sinon, systématiquement tu ouvre sur un enregistrement vide...

Bonne continuation...

[Stéph utilisateur d'acces]

Merci de ton aide freeAccess

ça fonctionne bien.

ah les espaces

Bonne année à tous

steph