OVH Cloud OVH Cloud

Ajouter un item Liste déroulante

4 réponses
Avatar
azza
Salut,
Avec ce bout de code:
Private Sub Form_Load()
Dim objRq As AccessObject, cdata As Object
Set cdata = Application.CurrentData
For Each objRq In cdata.AllQueries
Me!lstDltRqt.AddItem objRq.Name
Next objRq
End Sub
J'essai de charger les noms de toutes les requêttes de la base dans la
liste, mais le message suivant apparai au chargement du form "La propriété
RowSourceType doit être définie sur la valeur Liste valeurs pour utiliser
cette méthode"
ca veux dir quoi? et pourtant c'est un control indépendant.
Merci.

4 réponses

Avatar
3stone
Salut,

"azza"
[...]
J'essai de charger les noms de toutes les requêttes de la base dans la
liste, mais le message suivant apparai au chargement du form "La propriété
RowSourceType doit être définie sur la valeur Liste valeurs pour utiliser
cette méthode"



Avec une requête ;-)

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND
(MSysObjects.Type)=5 ORDER BY MSysObjects.Name


Tu peux également regarder ceci:
http://access.seneque.free.fr/liste_des_objets.htm



--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome

Avatar
azza
Bonjour,
les requêtes :( mais je vais essayer, pour commencer c'est quoi:
- (Left$([Name],1)<>"~") pourquoi ~ et Left$
- (MSysObjects.Type)=5 pouquoi pas 1 ou 2
Et merci.

"3stone" a écrit dans le message de news:
eJB#
Salut,

"azza"
[...]
J'essai de charger les noms de toutes les requêttes de la base dans la
liste, mais le message suivant apparai au chargement du form "La
propriété


RowSourceType doit être définie sur la valeur Liste valeurs pour
utiliser


cette méthode"



Avec une requête ;-)

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND
(MSysObjects.Type)=5 ORDER BY MSysObjects.Name


Tu peux également regarder ceci:
http://access.seneque.free.fr/liste_des_objets.htm



--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome






Avatar
3stone
re,

"azza"
les requêtes :( mais je vais essayer, pour commencer c'est quoi:
- (Left$([Name],1)<>"~") pourquoi ~ et Left$
- (MSysObjects.Type)=5 pouquoi pas 1 ou 2



Noms et type des champs des tables système...


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome

Avatar
azza
Salut,
je comprend maintenant, donc ya des choses dans les table systeme hhhabon!!,
merci.
"3stone" a écrit dans le message de news:

re,

"azza"
les requêtes :( mais je vais essayer, pour commencer c'est quoi:
- (Left$([Name],1)<>"~") pourquoi ~ et Left$
- (MSysObjects.Type)=5 pouquoi pas 1 ou 2



Noms et type des champs des tables système...


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome