Discussion :

[morgan47]

Bonjour
cet fois je viens vers vous car j'ai un probleme avec ma base de donnée.
j'ai beaucoup galèré pour arrivé a faire quelque chose de simple avec les base de donnée access.
mais j'y arrive a peu prés mais j'ai un probleme.
en fait j'ai une listbox qui contient toutes les entré d'une table.
lorsque l'on clique dessus ca affiche le nom dans une textbox nom et le prenom dans le textbox prenom.
mon code marche impec lorsque je clique pour la premier fois sur une ligne de la listbox.
mais lorsque je clique sur une autre ligne de ma listbox pour changer de nom j'ai une erreur 3265 élément non trouvé dans cette collection.
voila le code de ma listbox_clic qui s'appel choix:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub choix_Click()
choix1 = choix.Text
 
sql = "select * from nom where nom='" & choix1 & "' "
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
 
nom.Text = rs.Fields(nom)
prenom.Text = rs.Fields(prenom)
rs.Close
 
End Sub

si ca peu vous aidez voila le code lors du chargement du form:

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
 
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\test.mdb")
 
sql = "select * from nom"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
 
While Not rs.EOF
 
choix.AddItem rs.Fields("nom")
'choix.AddItem rs.Fields("nom") & " " & rs.Fields("prenom") 
rs.MoveNext
Wend
 
End Sub

d'ou peu venir ce probléme, si quelqu'un le sais?
merci pour vos réponce futur.

[AdHoc]

Salut,
je te propose une piste de débuggage:
- en mettant rs en espion et un point d'arrêt juste après la requete et vérifie la valeur de ses champs

Maintenant quelques conseils:
- je ne voie pas la déclaration (=dim) de rs dans ton code (ni de rien d'autre d'ailleurs)
- personnellement après un close, je réinitilise toujours mes objets avec

Code :

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

set Monobjet = Nothing

- Vérifie que tu as bien quelque chose dans ton rs avant d'accéder aux champs (Oui, je sais, c'est une sélection de la liste donc tu as forcément quelque chose, mais ce n'est pas propre et surtout inutilisable dans un cadre multi utilisateur)

Une remarque qui n'a rien à voir

Les boucles While...Wend peuvent être imbriquées à n'importe quel niveau. Chaque Wend correspond à l'instruction While la plus récente.

Conseil L'instruction Do...Loop permet d'exécuter une itération de manière plus structurée et plus souple.