Discussion :

[illight]

Bonjour,


j'ai un problème très étrange : j'essaye, suite au remplissage d'une zone de texte, de remplir une combobox à partir d'une table de Code Postaux / Villes (trouvée sur le site de l'INSEE). Pour cela, suite à la mise à jour de la TextBox, j'ai ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TxtCP_AfterUpdate()
Dim RSVille As Recordset
Dim SQLVille As String
SQLVille = "SELECT NomVille FROM ListeVilles WHERE Code_postal='" & Me.TxtCP.Value & "'"
Debug.Print SQLVille
Set RSVille = CurrentDb.Recordset(SQLVille)
RSVille.MoveFirst
Do Until RSVille.EOF
    Me.CmbVille.AddItem RSVille.Fields(0).Value
'passage à la ville suivante
    RSVille.MoveNext
Loop
End Sub

Quand je remplis ma textBox, il me fait une erreur sur le CurrentDb.recordset, en me disant l'erreur habituelle "membre de méthodes ou données introuvable".

En vérifiant, l'auto implémentation, effectivement, il ne connait pas le "Recordset".
Alors vous allez me dire "il faut activer la référence DAO => c'est bien ça mon problème : je l'ai activée !!!

Alors je peux vous mettre l'imprime écran, donc je vais vous liste les références activées (je met pas tout) :
- Microsoft DAO 3.6 Object Library
- Microsoft ADO Ext. 2.8 for DLL and Security
- Microsoft ActiveX Data Objects Recordset 2.8 library
- Microsoft Visual Basic for Applications Extensibility 5.3


Quelqu'un aurait une idée de pourquoi ça fonctionne pas ?

Pour info, j'ai essayé de prendre une BDD de mon ancien boulot où une requête de ce genre fonctionnait (pour voir si c'était dû au références), j'ai tout enlevé, et copié mes éléments dans cette base de données. ben ça fonctionne toujours pas

Merci d'avance pour vos éclarcissements

[Malick]

Essayez avec ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TxtCP_AfterUpdate()
Dim RSVille As DAO.Recordset
Dim SQLVille As String
SQLVille = "SELECT NomVille FROM ListeVilles WHERE Code_postal='" & Me.TxtCP.Value & "'"
Debug.Print SQLVille
Set RSVille = CurrentDb.OpenRecordset("SQLVille")
RSVille.MoveFirst
Do Until RSVille.EOF
    Me.CmbVille.AddItem RSVille.Fields(0).Value
'passage à la ville suivante
    RSVille.MoveNext
Loop
End Sub

[illight]

Bonjour,


Merci !

Tu sais quoi ? J'avais testé avec ADO.Recordset, mais pas avec DAO. Et par magie, avec DAO ça fonctionne !

Boulet que je suis...Merci en tout cas

[Malick]

De rien, c'est un plaisir

@+

Cordialement,
Malick