Discussion :

[B-CAB]

Bonjour tout le monde,

En tant que nouveau je m'excuse d'avance pour mes erreurs de noob. Je précise aussi que je ne suis pas un dévelloppeur acharné et bien sûr je vous remercie d'avance pour votre aide!

Alors voici mon prôblème...

Dans un formulaire Access je dispose d'une zone de liste affichant les résultats d'une requête elle-même filtrée par un champ texte:

La requête comporte 3 champs: OF (Ordre de fabrication), connecteur, topo

En saisissant un OF dans une zone de texte puis en appuyant sur un bouton, l'utilisateur filtre la zone de liste pour n'afficher que les enregistrements de cet OF.

J'ai ensuite créé une seconde zone de liste pour que l'utilisateur puisse choisir certains des enregistrements.
Ce que je voudrais c'est qu'en double cliquant sur un enregistrement de la zone de liste celui-ci soit ajouter à la seconde zone avec un numéro qui s'incrémenterait de 1 à chaque enregistrement ajouté...

J'espère avoir été clair.

J'arrive à ajouter la valeur "clé" de la ligne sur laquelle je double clique avec:

Code :

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

Me.Liste2.RowSource = Me.Liste2.RowSource & Me.Liste1.Value

Mais impossible de rajouter la ligne complète.

J'ai pensé aussi à sélectionner la case (ligne+colonne) et ajouter comme ça...

Des pistes?

[marot_r]

Ta seconde liste est basée sur une table ou une requête, n'est-ce pas ?

Donc ce n'est pas à la liste elle-même qu'il faut ajouter la valeur mais à la table sous-jacente. Cela fait tu vas pouvoir rafraichir ta seconde liste pour qu'elle affiche la nouvelle valeur.

Si j'ai bien tout compris, cela devrait ressembler à cela.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private sub AjouterInfo
  dim db as dao.database:set db=currentdb
  dim r as dao.recordset:set r=db.openrecordset("TableSecondeLigne")
  r.addnew
  r![TonChamp]=taValeur
  r.update
  r.close:set r=nothing
  db.close:set db=nothing
 
  me.TaSecondeListe.requery :'Force le rafraichissement de la 2ième liste
end sub

À mettre dans l'événement double-click de chacun des champs de saisie où tu veux que cela fonctionne :

Code :

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

call AjouterInfo()

Si tu as besoin d'autre détails, demande :-).

A+