Discussion :

[Milyshyn76]

Bonjour à tous!
J'ai encore un jolie problème j'aurais aimer le résoudre avant la fin de la journée, il s'agit là d'un travail professionnel et le BOSS s'impatiente...

Voila, j'aimerais donc ouvrir un enregistrement grâce à une zone de liste, j'ai commencer un code, il marche...mais le problème c'est qu'il ne prend en compte que le premier enregistrement de ma zone de liste...

merci à tout ceux qui m'aideront...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Liste0_DblClick(Cancel As Integer) 'double clique = procédure a faire
Dim ver As Variant
Dim selection
 
'For Each ver In Me.Liste0.ListIndex
DoCmd.OpenForm "modif_gp", acNormal
 While Forms![modif_gp]![id_groupe].Value = Me.Liste0.ItemData(ver)
    Forms![modif_gp]![nom_groupe].Value = Me.Liste0.ItemData(1)
       Forms![modif_gp]![liste_compte].Value = Me.Liste0.ItemData(2)
 Wend
'Next ver
End Sub

[Jeannot45]

Bonjour,

Peux-tu expliciter un peu plus ta problématique ?

Merci

[Milyshyn76]

Biensur.j'ai une zone de liste dans un formulaire, appartenant à une table.
Le enregistrements de cette table sont ajouté au fur et à mesur dans un autre formulaire "ajout groupe".
Lorsque je clique sur un élèment de cette zone de liste, je voudrais voir apparaitre les enregistrements dans un autre formulaire modifier.

Voici le code que j'ai commencer à créer...sur un evenement double clik sur la table.

Code :

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

1
2
3
4
5
6
7
8
 For Each ver In Me.Liste0.ItemsSelected
DoCmd.OpenForm "modif_gp", acNormal
 While Forms![modif_gp]![id_groupe].Value = Me.Liste0.ItemData(0)
    Forms![modif_gp]![nom_groupe].Value = Me.Liste0.ItemData(1)
       Forms![modif_gp]![liste_compte].Value = Me.Liste0.ItemData(2)
 Wend
Next ver
End Sub

ce code est correct mais le soucis c'est qu'il ne prend en compte QUE le premier enregistrement de la zone de liste. Si je veux cliquer sur le deuxième enregistrement, il ne m'affichera systématiquement le premier.

[Jeannot45]

re,

As-tu pensé au sous-formulaire ?

[Gabout]

Bonjour,

Désolé, je ne comprends pas ce que tu cherches à faire.

Le enregistrements de cette table sont ajouté au fur et à mesur dans un autre formulaire "ajout groupe".

Tu ne peux pas ajouter par le biais d'une table des enregistrements dans un formulaire : ton formulaire ne stocke rien !

Peux-tu être plus précise ?

[Milyshyn76]

Ce que je cherche c'est à ouvrir un enregistrement d'une table, qui alimente une zone de liste dans un formulaire. Lorsque je clique sur un enregistrement de cette zone zone de liste, je veux qu'un formulaire s'ouvre, avec les enregistrements concernés....Je veux voir apparaitre les enregistrements dans les contrôles ( zone de texte) concernés.

[Milyshyn76]

Code :

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

docmd.openform "monformcontrat",,,"Numcontrat=" & me.mazliste.column(x)

C'est bon j'ai trouver la solution grâce à une discussion ... Voici mon code pour ceux qui auraient besoin d'aide...

Code :

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

1
2
3
4
Private Sub Liste0_DblClick(Cancel As Integer) 'double clique zone liste = procédure correcte
 
DoCmd.OpenForm "modif_gp", , , "id_groupe=" & Me.Liste0.Column(0)
End Sub