OVH Cloud OVH Cloud

Tranfomer requete select en VBA

3 réponses
Avatar
yannick
Bonjour,
jai une requete qui s'appuie sur plusieurs tables, un formulaire avec des
champs qui s'appuie aussi sur cette requete.exemple:
j'ai R_client_secteur qui s'appuie sur differente tables.
R_client_secteur= "SELECT Client.N°client, Client.nom......."
sous VBA j'ai
LbClient.RowSource = "SELECT * FROM [R_client_secteur] WHERE.......
cela fonctionne mais j'aimerais avoir tout en VBA j'ai essayer mais cela ne
fonctionne pas
Dim str As String
str = "SELECT Client.N°client, Client.nom......."
LbClient.RowSource = "SELECT * FROM str WHERE.......
str remplace la requete.

J'espere que vous m'avez compris, cela dois etre tout simple.

Merci à tous

@+

Yannick

3 réponses

Avatar
Rv
Salut,

Je crois qu'il faudrait l'écrire comme cela:
LbClient.RowSource = "SELECT * FROM (" & str & ") WHERE......."

A+

Rv


"yannick" a écrit dans le message news:

Bonjour,
jai une requete qui s'appuie sur plusieurs tables, un formulaire avec des
champs qui s'appuie aussi sur cette requete.exemple:
j'ai R_client_secteur qui s'appuie sur differente tables.
R_client_secteur= "SELECT Client.N°client, Client.nom......."
sous VBA j'ai
LbClient.RowSource = "SELECT * FROM [R_client_secteur] WHERE.......
cela fonctionne mais j'aimerais avoir tout en VBA j'ai essayer mais cela
ne

fonctionne pas
Dim str As String
str = "SELECT Client.N°client, Client.nom......."
LbClient.RowSource = "SELECT * FROM str WHERE.......
str remplace la requete.

J'espere que vous m'avez compris, cela dois etre tout simple.

Merci à tous

@+

Yannick



Avatar
yannick
Merci Rv,
lorque je met
LbClient.RowSource = "SELECT * FROM (" & str & ") cela fonctionne mais si je
mes:
LbClient.RowSource = "SELECT * FROM (" & str & ")WHERE (" & str &
").N°client like '" & TBrechercheN°.Text & "*' "
alors qu'avant j'avais :
LbClient.RowSource = "SELECT * FROM [R_client_secteur] WHERE
R_client_secteur].N°client like '" & TBrechercheN°.Text & "*' "
et cela fonctionnait.
Vois tu une solution ?

@+

Yannick



Salut,

Je crois qu'il faudrait l'écrire comme cela:
LbClient.RowSource = "SELECT * FROM (" & str & ") WHERE......."

A+

Rv


"yannick" a écrit dans le message news:

Bonjour,
jai une requete qui s'appuie sur plusieurs tables, un formulaire avec des
champs qui s'appuie aussi sur cette requete.exemple:
j'ai R_client_secteur qui s'appuie sur differente tables.
R_client_secteur= "SELECT Client.N°client, Client.nom......."
sous VBA j'ai
LbClient.RowSource = "SELECT * FROM [R_client_secteur] WHERE.......
cela fonctionne mais j'aimerais avoir tout en VBA j'ai essayer mais cela
ne

fonctionne pas
Dim str As String
str = "SELECT Client.N°client, Client.nom......."
LbClient.RowSource = "SELECT * FROM str WHERE.......
str remplace la requete.

J'espere que vous m'avez compris, cela dois etre tout simple.

Merci à tous

@+

Yannick








Avatar
yannick
Merci cela fonctionne

@+

Yannick



Salut,

Je crois qu'il faudrait l'écrire comme cela:
LbClient.RowSource = "SELECT * FROM (" & str & ") WHERE......."

A+

Rv


"yannick" a écrit dans le message news:

Bonjour,
jai une requete qui s'appuie sur plusieurs tables, un formulaire avec des
champs qui s'appuie aussi sur cette requete.exemple:
j'ai R_client_secteur qui s'appuie sur differente tables.
R_client_secteur= "SELECT Client.N°client, Client.nom......."
sous VBA j'ai
LbClient.RowSource = "SELECT * FROM [R_client_secteur] WHERE.......
cela fonctionne mais j'aimerais avoir tout en VBA j'ai essayer mais cela
ne

fonctionne pas
Dim str As String
str = "SELECT Client.N°client, Client.nom......."
LbClient.RowSource = "SELECT * FROM str WHERE.......
str remplace la requete.

J'espere que vous m'avez compris, cela dois etre tout simple.

Merci à tous

@+

Yannick