Rechercher : dans
Par :

Access 2003 liste déroulante

Dernière réponse le 17 mar 2005 à 22:58:16 dj_oakley, le 16 mar 2005 à 08:13:48 
 Signaler ce message aux modérateurs

Bjr à tous,
j'ai une liste deroulante (ld_test) qui s'appuie sur une table avec 2 champs :
- test1 qui est la cle primaire en num auto
- test2 qui est du texte

sur le formulaire (toto) j'aimerai stocker la valeur texte (test2) de (ld_test) dans une zone indépendante car par défaut un créant la liste déroulant il prend la clé primaire.

Sur la zone indep j'avais dans source =[test1] car c'est la valeur affiché sur le formulaire et il me retourne la clé et non le texte

Pvz vs m'aider?

Cdt.

Meilleures réponses pour « Access 2003 liste déroulante » dans :
Listes déroulantes simples avec Excel VoirDans votre tableau, vous souhaitez insérer un texte ou une valeur choisi dans une liste (déroulante). vous créez votre liste, ligne aprés ligne, sur votre feuille en cours ou sur une autre feuille du classeur en cours. vous la nommez : INSERTION...

1

LeLaid, le 16 mar 2005 à 11:01:41

Salut,

Tu dois utiliser l'event "afterupdate" de ta liste déroulante. Quelque chose du genre:

Private Sub ld_test_AfterUpdate()
Dim sqlstring as string
mDb As Database
mRs As RecordSet

sqlstring = "SELECT test2 from Ta_Table where test1 = '" & ld_test.Value & "'"

Set mDB = CurrentDb
Set mRs = mDB.OpenRecordset(sqlstring , dbOpenDynaset, dbSeeChanges, dbPessimistic)

Zone_Independante.Value = mRS("test2").Value

End Sub
--
Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée
  :-)

Répondre à LeLaid

2

dj_oakley, le 16 mar 2005 à 12:05:25

Salut Lelaid,
J'ai renseigné ta commande et en éxecutant il reconnait pas le
mDb As Database

Peux tu m'aider?

Répondre à dj_oakley

3

LeLaid, le 16 mar 2005 à 12:11:29

Ah zut, tu es en Access 2003...
Il y a une subtilité, mais je ne sais plus laquelle. Je crois que tu dois ajouter une librairie.

Quand tu as ta fenêtre de code ouverte, via le menu "Tools--> Reference" ou "Outils--> reference", sélecionne les librairies suivantes:

Visual Basic For Application
Microsoft Access 8.0 Object Library
Microsoft DAO 2.5/3.5 Compatibility...

J'espère qu'avec ça ça marchera. Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée
  :-)

Répondre à LeLaid

4

LeLaid, le 16 mar 2005 à 12:23:12

C'est la librairie "Microsoft DAO 2.5/3.5 Compatibility..." que tu dois ajouter. Si ça ne marche pas ajoute aussi les autres Microsoft DAO. Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée
  :-)

Répondre à LeLaid

5

dj_oakley, le 16 mar 2005 à 12:48:36

Je fais ce que tu m'as dit mais tjs meme msg d'erreur
par contre j'ai Microsoft Access 9.0 Object Library

merci pour ton aide LeLaid

Répondre à dj_oakley

6

dj_oakley, le 17 mar 2005 à 04:53:46

Slt a tous,
Je reprend mon explication de maniere claire

j'ai 2 tables :
- 1ere table test
avec 2 chps :
- numtest1 num auto cle primaire
- test2 texte

-2eme table toto
avec 3 chps :
- numtoto num auto cle primaire
- test1 numerique (Assistant liste de choix lien avec la table test)
- tel texte

Ds les relations j'ai numtest1 lié avec test1

Dans le formulaire toto le source s'appuie sur la table toto

ds ce formualire j'ai 4 chps:
- numtoto
- ld_test1 (liste deroulante) definit par rapport a l'assistant liste de choix dans la table toto
- tel
- titi (zone independante) ou je veux stocker la valeur test2 lorsque je selectionne une entite ds ld_test1

Je pense pas que ce soit compliquer à réaliser.

Si quelqu'un pourrait m'aider, son aide est la bienvenue.

Cdt.

Répondre à dj_oakley

9

 purrofixe, le 17 mar 2005 à 22:58:16

Hello,
Tu as regardé par là: (voir sous pt < 6 >)
http://www.commentcamarche.net/forum/affich-1374782-Access-2003
sa marche super..... ou si tu veux un exemple concret selon tes explications je te l'envoie volontier... Amicales salutations
Jean-Pierre

Répondre à purrofixe

7

LeLaid, le 17 mar 2005 à 09:17:34

Dj_oakley,

Tu n'as pas le choix. Tu dois passer par du code VBA pour réaliser ça. Pour que le code donné plus haut fonctionne, il te faut trouver la librairie manquante.

Essaye de poser ta question sur le forum du club d'entraide ici:

http://www.developpez.net/forums/viewforum.php?f=38

Tu auras ta réponse assez rapidement.

:-) Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée
  :-)

Répondre à LeLaid

8

LeLaid, le 17 mar 2005 à 13:45:43

J'ai posé la question à ta place et voici la réponse:

http://www.developpez.net/forums/viewtopic.php?t=312145
Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée
  :-)

Répondre à LeLaid