Exececuté une requête sous AccessRésolu

Question

Je ne sais pas tr&#232;s bien programmer sous access et j'ai donc un question que je pense facile &#224; r&#233;pondre, sa n'emp&#234;che que je n'y arrive pas seul...
Sous access j'aimerai savoir comment on execute une requ&#234;te &#224; partir du mode de codage.
En fait je veux mettre une valeur contenue dans une table dans une variable, ce qui doit donner un truc du genre :

Dim var as Integer
var = DoCmd.truc("SELECT Taches.NumTables FROM Taches WHERE Taches.Key=1;")
Ou peut &#234;tre
var = DoCmd.truc("Nom_de_requete") 
o&#249; Nom_de_requete serai une requete cr&#233;&#233;e avec le mode de cr&#233;ation de access.

mer&#231;i d'avance
SupraDolph.

Neo.balastik · Accepted Answer

Salut ;O)

Access int&#232;gre depuis longtemps une fonction de domaine tr&#232;s pratique et rapide :
DLookup

Exemple : je veux conna&#238;tre l'adresse (qui se situe dans le champ adresse) d'un client ayant comme code client 'LECODE' (situe dans le champ Code client) dans la table Clients :

Dim MaVariable As Variant


'Je recherche dans la table Client le champ [Code client] ayant comme valeur LECODE, et retourne moi la valeur du champ Adresse pour l'enregistrement trouv&#233; dans la variable MaVariable
MaVariable = DLookup("Adresse", "Clients", "[Code client]='LECODE'")

MsgBox "L'adresse du client est : " & MaVariable

J'esp&#232;re que cela r&#233;pondra &#224; ton attente.

Guy

phantom_2005 · Answer

DoCmd.RunSQL ("TaRequete")


--------------------------------------------------------------------------------
Phantom_2005

SupraDolph · Answer

Merci de me r&#233;pondre si vite, mais &#231;a ne fonctionne apparament pas pour SELECT car j'ai d&#233;j&#224; essayer cette solution :


msg : Une action Ex&#233;cuterSQL n&#233;cessite un argument consistant en une instruction SQL.

En revanche pour CREATE TABLE, UPDATE... elle fonctionne.

SupraDolph.

phantom_2005 · Answer

En effet ca marche pour des requetes Action (CREATE, UPDATE et DELETE) mais ne fonctionne pas pour les requetes S&#233;lection (SELECT).

Ca d&#233;pend ce que tu souhaite faire de cette requete?

--------------------------------------------------------------------------------
Phantom_2005

SupraDolph · Answer

en fait je veux cr&#233;&#233; des tables nomm&#233;e Tables1, Tables2, ... , TablesN
Je concerve N dans une table, et lors de la cr&#233;ation d'un nouvelle table je veux le ressortir pour connaitre le num&#233;ro puis l'incr&#233;ment&#233; de 1.
DoCmd.RunSQL (" CREATE TABLE Taches" & N & " (Personnes VARCHAR(50), Liste VARCHAR(50), Description LONGTEXT, Temps VARCHAR(50), Statut VARCHAR(50), DepartDRP TIMESTAMP);")

SupraDolph.

SupraDolph · Answer

Merci Guy (alias Neo.balastik) 
C'est exactement ce que je recherchai !
Tu viens de me d&#233;bloqu&#233; et sa fait un moment que je me prennais la t&#234;te la dessus.

SupraDolph.

SupraDolph.

phantom_2005 · Answer

Tu peux peut etre passer par une liste avec ton champs TablesNum comme source de la liste.
Ensuite tu r&#233;cupere la valeur de ton Champs dans la liste.

Liste1.RowSource = "Taches"
Liste1.SetFocus
Liste1.ListIndex = 0
N = Liste1.ItemData(0)

J'esp&#232;re que ca marchera (je ne connais pas d'autres astuces)
bonne prog

--------------------------------------------------------------------------------
Phantom_2005

phantom_2005 · Answer

>>Neo.balastik

Merci je ne connaissais pas non plus cette fonction
@+

--------------------------------------------------------------------------------
Phantom_2005

Neo.balastik · Answer

Re; O)

Voir aussi les autres fonctions de regroupement Domaine  :

DAvg
DCount
DFirst 
DLast
DMin
DMax
DStDev
DStDevP
DSum
DVar
DVarP

Voyez l'aide Access

Guy

Exececuté une requête sous Access

9 réponses

Discussions similaires