Discussion :

[puppusse79]

Bonjour,

J'ai crée un formulaire avec un sous formulaire. Dans le formulaire principal, j'ai une zone de texte avec "NomEntreprise" qui change avec des boutons de navigation. Dans le sous formulaire, j'ai un tableau qui m'affiche les employés dans l'entreprise sélectionnée dans le formulaire principal. Ceci marche tres bien.
Mon problème est que j'aimerais changer ma zone de texte en zone de liste, seulement, je ne pense pas pouvoir utiliser l'astuce des colonnes vu que je peux avoir plusieurs employés par entreprise. Si quelqu'un sait comment faire, je suis preneuse...merci d'avance

[stéphane_ais2]

Bonjour,

Cela ne devrait rien changer (...si j'ai bien compris...) puisque l'affichage des employés se fait dans le sfrm qui doit être lié au frmPrincipal selon des champs Pères/Champs Fils...

Non?

SE

[puppusse79]

Oui, c'est exact, mais en remplaçant ma zone de texte par une liste ça ne marche pas

[stéphane_ais2]

La zone de texte initiale ne doit pas être modifiée puisque je pense que c'est elle qui est liée au sfrm (...ou alors par un champ numérique) ;
tu ajoutes un champ zone de liste modifiable et tu appliques le code et cela drevrait fonctionner...ou tu utilises l'assistant selon la version d'Access sur laquelle tu travailles...
sinon, avec une lecture du jeu d'enregistrement, ça marche bien aussi...

SE

[puppusse79]

qu'entends tu par lecture de jeu d'enregistrement?

[puppusse79]

J'ai essayé ta premiere solution, de mettre une zone de liste qui renvoit le resultat sur ma zone de texte, mais à l'execution, j'ai le message d'erreur suivant: erreur d'execution 3326 Impossible de mettre à jour recordset.
Merci pour ton aide

[stéphane_ais2]

qu'entends tu par lecture de jeu d'enregistrement?

Recordset

j'ai le message d'erreur suivant: erreur d'execution 3326 Impossible de mettre à jour recordset.

Montre-nous le code STP

SE

[argyronet]

Bonjour,

Tout dépend comment est structurée ta base...
Si les entreprises sont dans une table avec une clé primaire, les employés doivent être dans une autre table avec la clé de l'entreprise correspondante à chaque fois.
De là, il est facile de résoudre ton problème.

La liste des entreprises est dotée de la clé (N°Auto) et du nom avec :
largeurs colonne :0cm;6cm
nombre de colonne : 2
largeur liste : 6cm
et contenu :

Code :

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

SELECT NoEntreprise, Entreprise FROM TBLEntreprises ORDER BY Entreprise

Ensuite, tu affectes comme champs pères et fils NoEntreprise

C'est fini...

Argy

[puppusse79]

Merci à tous les deux.

Mon code est simple:

Code :

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

1
2
3
Private Sub Modifiable53_Change()
    Me.Tx_Dénomination.Value = Me.Modifiable53.Column(0)
End Sub

Et oui ma base est constitué ainsi:
une table entreprise et une table emplois avec n°entreprise

[puppusse79]

Je ne pourrais revenir que vers 17h sur le net donc vous inquietez pas si je ne reponds pas.
Merci bcp en attendant

[stéphane_ais2]

Je te propose le code suivant à placer sur l'évenement Afterupdate de la zone de liste modifiable :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub NomZoneDeListe_AfterUpdate()
'Rechercher l'enregistrement correspondant au contrôle
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[num_entreprise] = " & Str(Nz(Me![NomZoneDeListe], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Set rs = Nothing
End Sub

où [num_entreprise] est la clé de la table entreprise (le champ d'indexation) ce qui suppose qu'un contrôle renvoyant cette valeur soit placé dans le frm...
et NomZoneDeListe comme son nom l'indique...


La source de la zone de liste est une rqt basée sur la source de donnée répondant au besoin du type :

Code :

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

1
2
3
4
 
SELECT Table.num_entrerpise, Table.Nom_entreprise
FROM Table
ORDER BY Table.Nom_entreprise;

la liste est classée ici par ordre alphabétique sur le nom de l'entreprise

la colonne liée est le 1er champ, en l'espèce num_entreprise d'où valeur 1 dans l'onglet données//colonne liée

dans l'onglet format, tu masques la 1ere colonne en plaçant ces valeurs dans la propriété Largeurs colonnes :
0cm;5cm - la deuxième valeur (5cm) est un exemple...
largeur liste correspondant à la somme des deux valeurs précédentes

...

SE

[puppusse79]

Merci beaucoup stephane
ta solution marche, meme si je comprend pas à quoi sert le bookmark.
En tout cas, c'est tres sympa à toi de m'avoir aider