Discussion :

[soso86]

Bonsoir

Je fais face actuellement à un problème dont je ne trouve pas l'origine. J'ai besoin de récupérer la valeur de la 1ère et 2ème colonne de la ligne sélectionnée, tout se passe bien, les bonnes valeurs sont renvoyées jusqu'à la 8ème ligne.
A partir de la neuvième ligne la valeur de la 2ème colonne est érronée et ne correspond à rien que je connaisse. Mais si je remplace pour vérifier la valeur de listeLivresEx.listIndex par la 9ème ligne par exemple ça marche, donc je vois pas du tout d'ou ca vient..

J'utilise Ms access 2003, ADO et une liste avec comme contenu une requete, donc ci dessous la requete et le code:

propriété de la listBox:
Origine source: table/requete
contenu: req-selection-livres-Ex


req-selection-livres-Ex
:

Code sql :

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

1
2
3
 
SELECT EXEMPLAIRE.numExemplaire, LIVRE.refLivre, LIVRE.titreLivre, LIVRE.descriptif, LIVRE.dateSortie, LIVRE.nbExemplaires, EDITEUR.nomEditeur, AUTEUR.nomAuteur
FROM AUTEUR INNER JOIN (((LIVRE INNER JOIN EXEMPLAIRE ON LIVRE.refLivre=EXEMPLAIRE.refLivre) INNER JOIN ECRIRE ON LIVRE.refLivre=ECRIRE.refLivre) INNER JOIN (EDITEUR INNER JOIN EDITER ON EDITEUR.numEditeur=EDITER.numEditeur) ON LIVRE.refLivre=EDITER.refLivre) ON AUTEUR.numAuteur=ECRIRE.numAuteur;

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
18
19
20
21
22
23
Private Sub supprimerLivreBT_Click()
 
Dim numEx As Integer
Dim rep As String
Dim ref As Integer
 
numEx = CInt(listeLivresEx.Column(0, listeLivresEx.ListIndex))
ref = CInt(listeLivresEx.Column(1, listeLivresEx.ListIndex))  'ici que ca bloque 
 
Texte131 = numEx
Texte129 = ref
 
rep = MsgBox("Voulez vraiment supprimer cet exemplaire?", vbQuestion + vbYesNo)
 
If rep = vbYes Then
 
   Call supprimerExemplaireLivre(numEx, ref)
   MsgBox ("Exemplaire supprimé")
   listeLivresEx.Requery
   listeLivresEx = ""
End If
 
End Sub

[Tofalu]

Bonjour,

Il n'y a pas possibilité d'utiliser directement le recordset de la zone de liste et ses objets Fields ?

[Tofalu]

Ceci dit, je ne vois pas pourquoi ça bloque. Quelque soit le nombre de lignes, le code suivant ne pose pas de problème chez moi :

Code :

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

1
2
3
4
5
Private Sub Commande2_Click()
With lstListe
    MsgBox .Column(1, .ListIndex)
End With
End Sub

N'y a t'il pas d'autres évènements lancé avant susceptible de changer l'ordre des données ?