Discussion :

[Ivelios]

Bonjour à tous,
J'ai fais un petit exemple qui illustre parfaitement mon problème.

J'ai une table "Personne" (id = clé primaire [Numérique]); (gentil = attribut [oui/non])
J'ai un formulaire avec une liste déroulante des "id". Et une case à cocher "gentil".
Quand je sélectionne un "id" dans la liste, j'aimerais que la case à cocher se coche ou pas en fonction de ce qu'il y a dans la table... Mais après 4 heures de bataille avec cette chaleur je m'incline. Et m'en remets à vous.

Le code VBA

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
Option Compare Database
Dim sql As String
 
Private Sub Liste_id_AfterUpdate()
 
    Me![Coche_Gentil].Value = IIf(Me![Liste_id].Column(1) = -1, True, False)
 
End Sub
----------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
 
    sql = "SELECT Personne.id FROM Personne ORDER BY [id]"
    Me![Liste_id].RowSource = sql
    Me![Liste_id] = Me![Liste_id].Column(0)
    Me![Coche_Gentil] = Me![Liste_id].Column(1)
 
End Sub

Contenu de ma liste :

Code :

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

SELECT Personne.id FROM Personne ORDER BY [id];

Merci à vous

[Invité]

Bonjour

Cela devrait mieux aller comme cela.

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
Option Compare Database
Dim sql As String
 
 
Private Sub Liste_id_AfterUpdate()
 
    Me.Coche_Gentil.Value = Me.Liste_id.Column(1)
 
End Sub
Private Sub Form_Open(Cancel As Integer)
 
    sql = "SELECT Personne.id, Personne.gentil FROM Personne ORDER BY Personne.id; "
    With Me.Liste_id
        .RowSource = sql
        .ColumnCount = 2
    End With
End Sub

Il n'y avait rien dans la deuxième colonne.

Philippe

[Ivelios]

Merci Philippe JOCHMANS, ça marche nikel

Dans mon programme principal, j’avais "juste" oublié de remplacer le nombre de colonne de 7 vers 9 ( dans la liste ), après l’ajout de 2 nouveaux champs.
Enfin "juste"… ça m’a fait perdre pas mal de temps quand même.