Discussion :

[nonopower]

Bonsoir à tous,
je souhaite créer un userform avec une combobox (liste préremplie qui correspond au nom de mes tables).
L'utilisateur choisit donc le nom de la table et je souhaite intégrer ce dernier dans une requete sql : le from va prendre la variable choisie du combobox.
A terme, le but est de faire modifier les données qui arrivent dans un sous formulaire (pour montrer les données).

Je ne souhaite pas passer avec plusieurs formulaires (j'ai une dizaine de table) et le vba sera assez compliqué pour prendre en compte tous les cas.

Je vous remercie de votre aide.

Bonne soirée et merci pour votre aide.

[helas]

Bonjour, cela pourra se traduire par

Code :

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

1
2
3
4
5
 
sql="SELECT [" & Me!liste & "].Nomchamp1, [" & Me!liste & "].NomChamp2, ..... FROM [" & Me!liste & "];"
 
Me!SousFormulaire.SourceObject = sql
Me!SousFormulaire.Requery

Les crochets sont utiles si le nom de la table comprend des espaces.
On modifie donc la source de données du sous-formulaire, un rafraichissement est necessaire pour afficher les nouvelles données

[nonopower]

Bonjour,
merci pour te réponse,
si je me trompe pas la solution que tu me propose est du VBA

En fait, je cherche à faire cette requete dans les propriétés (données; contenu) du formulaire et non dans vba.
Pour une raison assez simple: c'est que le vba ne peut changer les données sources du sous formulaire (enfin je suppose).
Dans l'idée, cela fonctionnerait comme une requete group by dans un formulaire.

Merci.
Bonne journée.

[LE VIEUX]

bonjour,

c'est que le vba ne peut changer les données sources du sous formulaire (enfin je suppose)

et non tu supposes mal on peut "presque" tout faire en VBA et notre ami
helas t'a donné même le code

Code :

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

1
2
Me!SousFormulaire.SourceObject = sql
Me!SousFormulaire.Requery

[nonopower]

Ok,
cependant il n'accepte pas la requete comme source object : il y a une erreur 2124 (Nom formulaire non conforme aux règles d'affectation des noms objets microsoft office access).
En essayant une string pas de probleme en particulier.
J'ai modifié la requête de cette manière :

Code :

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

1
2
3
4
 
rte = "SELECT [" & Me!liste & "].[""Numéro""] FROM [" & Me!liste & "];"
Me!affichage.SourceObject = rte
Me!affichage.Requery

J'espere qu'en temps, la mise à jour sera rapide (200 000 lignes par table à peut près).

et non tu supposes mal on peut "presque" tout faire en VBA

Si VBA savait gérer les subset sum cela m'arrangerait bien aussi (mais c'est pour la partie excel).

Merci en tout cas pour votre aide.
Bonne journée

[nonopower]

Ok j'ai trouvé la solution:
sourceobjet n'admet de requête sql il faut don contourner le probleme :
Me!liste
et pour faire venir une table:

Code :

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

1
2
Me!SousFormulaire.SourceObject = "Table." & Me!liste
Me!SousFormulaire.Requery

Merci pour votre aide.