[Access] Sauvegarder les résultats d'une requete dans une table

Sauvegarder les résultats d'une requete dans une table [Access] - VB/VBA/VBS - Programmation

Marsh Posté le 14-07-2004 à 12:08:57    

Voilà en fait j'aimerais qu'on sache sauvegarder les résultats d'une requête dans un table dont on définirait le nom à chaque fois...
Dans le genre de l'option save as ou save in je sais pas trop.
Il faudrait que ca crée la table avec les données de la requete en fait.. Est ce possible ?
Merci d'avance

Reply

Marsh Posté le 14-07-2004 à 12:08:57   

Reply

Marsh Posté le 14-07-2004 à 18:11:23    

create table toto as select ...


Message édité par Arjuna le 14-07-2004 à 18:11:56
Reply

Marsh Posté le 16-07-2004 à 15:17:44    

Arjuna a écrit :

create table toto as select ...


 
Merci!
J'ai réussis en utilisant ce code :

Code :
  1. '*** 1°/ Demander si l'on veut sauvegarder les résultats et demander,si oui,le nom de la table pour mettre***
  2. '***     les données du résultat de la requete***
  3. s = InputBox(Prompt:="Table Name??", Title:=("Do you want to save the query results?" ))
  5. '*** 2°/ Créer la table avec le nom rentré dans l'inputbox + les champs***
  6. DoCmd.RunSQL "create Table " & s & " (FLangage Text,FGender Text,...)"
  7. DoCmd.SetWarnings False
  10. '*** 3°/ Insérer les valeurs de la requete dans la table nommée par l'utitlisateur***
  11. DoCmd.RunSQL "insert into " & s & " (FLangage,FGender,...) select TblCustomer.FLangage,TblCustomer.FGender,...FROM TblCustomer WHERE TblCustomer.FLangage = '" + (Combo1.Value) + "'"
  12. DoCmd.SetWarnings False
  13. End Sub


 
Ca mets dans une table,dont le nom est donné par l'utilisateur, les infos de la requete :) :bounce:

Reply

Marsh Posté le 16-07-2004 à 15:49:49    

Le create as select évite de faire le create manuellement avant :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed