Discussion :

[Asdorve]

Bonjour,

en cherchant dans les tutoriaux j'ai trouvé des exemples de code qui permettent d'afficher dans un datacombo des données.

Le problème, c'est que chez moi ça marche pas...

Est-ce que quelqu'un pourrait m'aider svp?

merci d'avance

[Asdorve]

ben désolé, j'ai trouvé... c'était de ma faute...

voici le code pour ceux que ça intéresse:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 
With DataCombo1
    Set .RowSource = rsADO
    .ListField = "LCCTCODART"
    .SelText = rsADO.Fields("LCCTCODART").Value
End With
End Sub
Private Sub Datacombo1_change()
 
 If IsNull(DataCombo1.SelectedItem) Then Exit Sub
 rsADO.Bookmark = DataCombo1.SelectedItem
 
End Sub

Merci à JM Rabilloud puisque ce code lui appartient...

[Theocourant]

ben désolé, j'ai trouvé... c'était de ma faute...

voici le code pour ceux que ça intéresse:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 
With DataCombo1
    Set .RowSource = rsADO
    .ListField = "LCCTCODART"
    .SelText = rsADO.Fields("LCCTCODART").Value
End With
End Sub
Private Sub Datacombo1_change()
 
 If IsNull(DataCombo1.SelectedItem) Then Exit Sub
 rsADO.Bookmark = DataCombo1.SelectedItem
 
End Sub

Merci à JM Rabilloud puisque ce code lui appartient...

Salut,

Vu que c'est résolu, si tu pouvais marquer la discussion comme "Résolu" ce serait nickel. (menu "Outils de la discussion" puis "Marquer comme résolu")

Merci d'avance

Théo