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 commandes additem et removeitem

commandes additem et removeitem

9 réponses
Avatar
Yannick
Bonsoir,

Les commandes additem et removeitem ne fonctionnent sur une de mes
applications sous access 2000.

Il me dit "membres de méthode ou de données introuvable"

Merci de votre aide car ça ressemble à un bug d'access.

Yannick
Signaler un problème avec ce contenu

9 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 n'est pas un bug, additem et ...., ne sont entrées qu'à partir de le
version 2002.
par exemple , pour une zone de liste il faut charger le rowsource
directement.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7eb2$nok$
Bonsoir,

Les commandes additem et removeitem ne fonctionnent sur une de mes
applications sous access 2000.

Il me dit "membres de méthode ou de données introuvable"

Merci de votre aide car ça ressemble à un bug d'access.

Yannick




Avatar
Yannick
Merci de ta réponse même si elle ne m'arange pas !!!

Comment puis-je faire alors pour insérer des données dans une zone de liste
à partir de vba ???

Merci d'avance

Yannick
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

ce n'est pas un bug, additem et ...., ne sont entrées qu'à partir de le
version 2002.
par exemple , pour une zone de liste il faut charger le rowsource
directement.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7eb2$nok$
Bonsoir,

Les commandes additem et removeitem ne fonctionnent sur une de mes
applications sous access 2000.

Il me dit "membres de méthode ou de données introuvable"

Merci de votre aide car ça ressemble à un bug d'access.

Yannick








Avatar
Raymond [mvp]
il faut boucler sur la source de la liste et concaténer chaque valeur.
ton cas précis est quoi ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7f7m$g9q$
Merci de ta réponse même si elle ne m'arange pas !!!

Comment puis-je faire alors pour insérer des données dans une zone de
liste

à partir de vba ???




Avatar
Yannick
je veux extraire certaines données d'une table et en fonction d'autres
critères, mettre certains enregistrements dans une zone de liste.

"Raymond [mvp]" a écrit dans le message de
news:
il faut boucler sur la source de la liste et concaténer chaque valeur.
ton cas précis est quoi ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7f7m$g9q$
Merci de ta réponse même si elle ne m'arange pas !!!

Comment puis-je faire alors pour insérer des données dans une zone de
liste

à partir de vba ???








Avatar
Raymond [mvp]
donne moi un peu plus d'éléments sur la requête (le nom au moins) et la
liste pour pouvoir faire quelque chose de lisible et incorporable dans ton
code.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7gam$kfq$
je veux extraire certaines données d'une table et en fonction d'autres
critères, mettre certains enregistrements dans une zone de liste.


Avatar
Yannick
Voilà ce qui fonctionne sous access 2002, je voudrais faire la mm chose sous
2000

Dim baseencours As Database
Dim clt As Recordset
Dim msg As Recordset
Dim n As Integer
For n = 0 To itl2.ListCount - 1
itl2.RemoveItem (0)
Next

Set baseencours = CurrentDb()
Set clt = baseencours.OpenRecordset("select * from clients")
While Not clt.EOF

Set msg = baseencours.OpenRecordset("select * from messages where
(([destinataire]=" & clt![code] & ") and ([typemess]=" & Chr(34) & "Mes" &
Chr(34) & ") and (retransmis=0));")
If msg.RecordCount > 0 Then
itl2.AddItem clt!nom & " " & clt!rs
End If
msg.Close
clt.MoveNext

Wend
clt.Close
"Raymond [mvp]" a écrit dans le message de
news:
donne moi un peu plus d'éléments sur la requête (le nom au moins) et la
liste pour pouvoir faire quelque chose de lisible et incorporable dans ton
code.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7gam$kfq$
je veux extraire certaines données d'une table et en fonction d'autres
critères, mettre certains enregistrements dans une zone de liste.






Avatar
Yannick
laisse, c'est bon, j'ai compris comment utiliser rowsource.

je vais me débrouiller.

merci beaucoup pour ton aide.

à bientôt

Yannick
"Raymond [mvp]" a écrit dans le message de
news:
donne moi un peu plus d'éléments sur la requête (le nom au moins) et la
liste pour pouvoir faire quelque chose de lisible et incorporable dans ton
code.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7gam$kfq$
je veux extraire certaines données d'une table et en fonction d'autres
critères, mettre certains enregistrements dans une zone de liste.






Avatar
Raymond [mvp]
modifie ceci:

For n = 0 To itl2.ListCount - 1
itl2.RemoveItem (0)
Next
remplacer par Me.itl2.RowSource = ""


itl2.AddItem clt!nom & " " & clt!rs
remplacer par:

Me.itl2.RowSource = Me.itl2.RowSource & clt!nom & " " & clt!rs & ";"

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7h7i$5al$
Voilà ce qui fonctionne sous access 2002, je voudrais faire la mm chose
sous

2000

Dim baseencours As Database
Dim clt As Recordset
Dim msg As Recordset
Dim n As Integer
For n = 0 To itl2.ListCount - 1
itl2.RemoveItem (0)
Next

Set baseencours = CurrentDb()
Set clt = baseencours.OpenRecordset("select * from clients")
While Not clt.EOF

Set msg = baseencours.OpenRecordset("select * from messages where
(([destinataire]=" & clt![code] & ") and ([typemess]=" & Chr(34) & "Mes" &
Chr(34) & ") and (retransmis=0));")
If msg.RecordCount > 0 Then
itl2.AddItem clt!nom & " " & clt!rs
End If
msg.Close
clt.MoveNext

Wend
clt.Close


Avatar
Yannick
C'est ce que j'ai fait et ça fonctionne.

Merci encore

Yannick
"Raymond [mvp]" a écrit dans le message de
news:%
modifie ceci:

For n = 0 To itl2.ListCount - 1
itl2.RemoveItem (0)
Next
remplacer par Me.itl2.RowSource = ""


itl2.AddItem clt!nom & " " & clt!rs
remplacer par:

Me.itl2.RowSource = Me.itl2.RowSource & clt!nom & " " & clt!rs & ";"

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Yannick" a écrit dans le message de
news:br7h7i$5al$
Voilà ce qui fonctionne sous access 2002, je voudrais faire la mm chose
sous

2000

Dim baseencours As Database
Dim clt As Recordset
Dim msg As Recordset
Dim n As Integer
For n = 0 To itl2.ListCount - 1
itl2.RemoveItem (0)
Next

Set baseencours = CurrentDb()
Set clt = baseencours.OpenRecordset("select * from clients")
While Not clt.EOF

Set msg = baseencours.OpenRecordset("select * from messages
where


(([destinataire]=" & clt![code] & ") and ([typemess]=" & Chr(34) & "Mes"
&


Chr(34) & ") and (retransmis=0));")
If msg.RecordCount > 0 Then
itl2.AddItem clt!nom & " " & clt!rs
End If
msg.Close
clt.MoveNext

Wend
clt.Close