Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Problème Listview ?

Problème Listview ?

10 réponses
Avatar
Frederic
Bonjour à tous,

Voila mon soucis je me suis inspiré de l'exemple donné ici =>
http://access.seneque.free.fr/listview.htm pour faire ma Listview. Hors les
entêtes de colonne sont bien la, par contre le contenu des ligne n'apparait
pas.
La base de données en exemple dans le site fonctionne correctement.

Merci de votre aide
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

ce qui veut dire que tes lignes ne sont pas chargées parceque tes données ne
se pas bonnes.
si tout est identique, le problème se passe là:
LaLigne.Text = Rs!CustomerID

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
Bonjour à tous,

Voila mon soucis je me suis inspiré de l'exemple donné ici =>
http://access.seneque.free.fr/listview.htm pour faire ma Listview. Hors
les
entêtes de colonne sont bien la, par contre le contenu des ligne
n'apparait
pas.
La base de données en exemple dans le site fonctionne correctement.

Merci de votre aide


Avatar
Frederic
Merci de ta réponse

Par contre je ne vois pas ce que tu veux dire. Si c'est parce que
l'identifiant de ligne est purement numérique, j'ai fait un Cstr dessus (sur
toutes les lignes d'ailleurs) mais cela ne change rien.
Par contre ce qui est bizarre c'est que cette ligne :
Set vliItem = vlvList.ListItems.add n'apparait pas sous la forme
Set vliItem = vlvList.ListItems.Add()

J'ai l'impression qu'il ne connait pas la méthode add.


Bonjour.

ce qui veut dire que tes lignes ne sont pas chargées parceque tes données ne
se pas bonnes.
si tout est identique, le problème se passe là:
LaLigne.Text = Rs!CustomerID

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
Bonjour à tous,

Voila mon soucis je me suis inspiré de l'exemple donné ici =>
http://access.seneque.free.fr/listview.htm pour faire ma Listview. Hors
les
entêtes de colonne sont bien la, par contre le contenu des ligne
n'apparait
pas.
La base de données en exemple dans le site fonctionne correctement.

Merci de votre aide







Avatar
Raymond [mvp]
Les clés ne doivent pas être numériques , rajoute un caractère devant:
exemple :
LaLigne.Text = "A" & Rs!CustomerID

ensuite faudra enlever le "A" pour travailler avec une ligne.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
Merci de ta réponse

Par contre je ne vois pas ce que tu veux dire. Si c'est parce que
l'identifiant de ligne est purement numérique, j'ai fait un Cstr dessus
(sur
toutes les lignes d'ailleurs) mais cela ne change rien.
Par contre ce qui est bizarre c'est que cette ligne :
Set vliItem = vlvList.ListItems.add n'apparait pas sous la forme
Set vliItem = vlvList.ListItems.Add()

J'ai l'impression qu'il ne connait pas la méthode add.


Avatar
Frederic
Non cela ne fonctionne pas.

J'ai l'impression qu'il créer les lignes car je peux selectionner 3 lignes
vides dans ma liste (ce qui correspond au résultat de la requête)


Les clés ne doivent pas être numériques , rajoute un caractère devant:
exemple :
LaLigne.Text = "A" & Rs!CustomerID

ensuite faudra enlever le "A" pour travailler avec une ligne.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
Merci de ta réponse

Par contre je ne vois pas ce que tu veux dire. Si c'est parce que
l'identifiant de ligne est purement numérique, j'ai fait un Cstr dessus
(sur
toutes les lignes d'ailleurs) mais cela ne change rien.
Par contre ce qui est bizarre c'est que cette ligne :
Set vliItem = vlvList.ListItems.add n'apparait pas sous la forme
Set vliItem = vlvList.ListItems.Add()

J'ai l'impression qu'il ne connait pas la méthode add.







Avatar
Raymond [mvp]
Si tu as exactement le code de l'exemple, je ne vois pas ce qui gêne. Il y a
finalement très peu de code exécuté pour charger la liste et l'afficher.
tu as essayé de debugger ligne à ligne au chargement et sur le click ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
Non cela ne fonctionne pas.

J'ai l'impression qu'il créer les lignes car je peux selectionner 3 lignes
vides dans ma liste (ce qui correspond au résultat de la requête)



Avatar
Frederic
La je ne vois pas. Voici le code :
Option Compare Database
Option Explicit

Dim LaLigne As listItem
Dim LaListe As Control

Private Sub Form_Open(Cancel As Integer)
Dim vsQuery As String
Dim Rs As DAO.Recordset

Set LaListe = Me!VueListe
Me!VueListe.View = lvwReport

With LaListe.ColumnHeaders
.add , , "N°", 580
.add , , "Rédacteur", 1181
.add , , "Intitule", 2289
.add , , "Date Création", 957
.add , , "Date Limite", 957
End With

LaListe.GridLines = True
LaListe.FullRowSelect = True

vsQuery = "SELECT ID,(SELECT FullName FROM tbl_Users WHERE
tbl_Users.ID=ID_Creator) AS CFN," & _
"Description,Date_Active,Date_limit " & _
"FROM tbl_Actions;"

Set Rs = CurrentDb.OpenRecordset(vsQuery)

Rs.MoveFirst
While Not Rs.EOF
Set LaLigne = LaListe.ListItems.add()
LaLigne.Text = "A" & Rs!ID
LaLigne.SubItems(1) = Nz(Rs!CFN, " ")
LaLigne.SubItems(2) = Nz(Rs!description, " ")
LaLigne.SubItems(3) = Nz(Rs!Date_Active, " ")
LaLigne.SubItems(4) = Nz(Rs!Date_Limit, " ")
Rs.MoveNext
Wend
Rs.close
LaListe.SortKey = 0
LaListe.SortOrder = lvwAscending
LaListe.Sorted = True
LaListe.SelectedItem.EnsureVisible

End Sub

Ca doit être bête mais la je ne vois pas


Si tu as exactement le code de l'exemple, je ne vois pas ce qui gêne. Il y a
finalement très peu de code exécuté pour charger la liste et l'afficher.
tu as essayé de debugger ligne à ligne au chargement et sur le click ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
Non cela ne fonctionne pas.

J'ai l'impression qu'il créer les lignes car je peux selectionner 3 lignes
vides dans ma liste (ce qui correspond au résultat de la requête)








Avatar
Raymond [mvp]
Tu peux m'envoyer ta base en enlevant le XYZ. dans l'adresse ? je regarderai
ce soir.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
La je ne vois pas. Voici le code :


Avatar
Frederic
J'ai trouver et c'est super bizarre (enfin pour moi) !!!
il faut rajouter DoCmd.Maximize au debut et ça fonctionne.


Tu peux m'envoyer ta base en enlevant le XYZ. dans l'adresse ? je regarderai
ce soir.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
La je ne vois pas. Voici le code :








Avatar
Raymond [mvp]
Je viens d'essayer sur mon modèle, tout fonctionne même en sizetofitform.
si ça peut aller comme ça.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
J'ai trouver et c'est super bizarre (enfin pour moi) !!!
il faut rajouter DoCmd.Maximize au debut et ça fonctionne.


Avatar
Frederic
Merci de ton aide


Je viens d'essayer sur mon modèle, tout fonctionne même en sizetofitform.
si ça peut aller comme ça.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Frederic" a écrit dans le message de
news:
J'ai trouver et c'est super bizarre (enfin pour moi) !!!
il faut rajouter DoCmd.Maximize au debut et ça fonctionne.