Discussion :

[Remus91]

Bonsoir

J'aurais une question à vous poser sur une chose que je n'arrive pas à faire, cela concerne l'envoie des données d'un listebox vers un textbox en utilisant la clée primaire.

car j'ai essayé

Me.txb_societe.Value = Me.lst_vue_tab.societe

Cette commande fonctionne bien mais elle recopie juste les informations de ma listbox dans mon textbox alors que moi je cherche à obligatoirement passé par la clée.

Si vous avez une solution ou un exemple quelconque je suis preneur.

Bonne soirée
Rémy.

ps : je pense à une commande SQL, mais bon pas sur.

[Invité]

Bonjour

Quel est la source qui alimente ta ListBox ? Requêtes ? Tables ?

Est-ce que ta clé apparait dans la source de ta listbox ?
Quels sont les propriétés :

• Colonne lié
• Nombre de colonnes
• Largeurs de colonnes

Toutes ces informations sont importantes pour paramétrer correctement une listbox et en récupérer des informations.

Philippe

[Remus91]

Bonjour
Oui j'ai été un peut vite et j'ai pas suffisamment décrit mon application, je vais essayer de rattraper cela.
Donc :

- La source d'alimentation de ma listbox est faite par le biais d'une requête sql qui vas récupérer les informations de ma table principale.

- Mon listbox possède 8 colonnes qui récupère les informations de ma table par le biais de la clée primaire.

Mon lisbox me sert à avoir une vue tabulaire de ma table principal.
10 champs dans le listbox
28 champs dans ma table principal

Donc je cherche comment à partir de mon listbox (sur chaque ligne il y aura une clée primaire de ma table principale), qu'il me retranscrive mes informations dans des textbox à partir de la clée primaire.

J'espère que c'est compréhensible.

Rémy.

[Invité]

Re

Ok

Un peu de lecture de la FAQ Access : Comment récupérer la valeur d'une colonne de la ligne sélectionnée dans une zone de liste ?, ce que tu vois dans la FAQ est passé à la propriété Value de ta zone de texte.

Tu peux mettre tout cela par exemple sur l'évènement DoubleClick de ta listebox.

Philippe

[Remus91]

Bonjour

Je suis d’accord avec ce FAQ d'ailleurs je m’en suis partie servie comme tu peut voir sur le bout de code de mon premier poste.

Le problème avec cette méthode est qu'il "re-balances" les informations de mon listbox dans mes cellules, cependant je ne dispose que de 10 colonnes dans ma liste alors que je veut qu'il me renseigne 28 champs.
Ses champs la sont les informations qui sont stocké dans ma table principale.

assez complex quand même...

Bonne journée et bon courage pour cette nouvelle semaine.
Rémy


Merci Argy J'taime

[argyronet]

Bonjour,

Solution 1 : (contraignante)
Tu lis ton Recordset RS fondé sur ta table via la ligne de ton ListBox en cours de sélection. Tu affectes alors chaque champ via la propriété Value de l'objet Field...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
SQL = "SELECT * FROM MaTable WHERE PK = " & Me!ListBox1
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
With RS
    If Not .EOF Then
        Me!txtBox1 = .Fields("Champ1").Value
        Me!txtBox2 = .Fields("Champ2").Value
        Me!txtBox3 = .Fields("Champ3").Value
        Me!txtBox4 = .Fields("Champ4").Value
        Me!txtBox5 = .Fields("Champ5").Value
        Me!txtBox6 = .Fields("Champ6").Value
        Me!txtBox7 = .Fields("Champ7").Value
        '..............
        Me!txtBox28 = .Fields("Champ28").Value
    Else
        MsgBox "Pas de données pour la ligne sélectionnée !", vbExclamation
    End If
    .Close
End With
Set RS = Nothing

Solution 2 : (Simple)
Tu lis ton Recordset RS fondé sur ta table via la ligne de ton ListBox en cours de sélection. On considère alors que tes champs sont présents dans le formulaire et sont alimentés par la source par défaut.
La réaffectation dynamique est alors plus simple...

Code :

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

1
2
3
 
SQL = "SELECT * FROM MaTable WHERE PK = " & Me!ListBox1
Me.RecordSource = SQL

Argy