DJELiTe |
Merci!
J'ai réussis en utilisant ce code :
Code :
- '*** 1°/ Demander si l'on veut sauvegarder les résultats et demander,si oui,le nom de la table pour mettre***
- '*** les données du résultat de la requete***
- s = InputBox(Prompt:="Table Name??", Title:=("Do you want to save the query results?" ))
- '*** 2°/ Créer la table avec le nom rentré dans l'inputbox + les champs***
- DoCmd.RunSQL "create Table " & s & " (FLangage Text,FGender Text,...)"
- DoCmd.SetWarnings False
- '*** 3°/ Insérer les valeurs de la requete dans la table nommée par l'utitlisateur***
- DoCmd.RunSQL "insert into " & s & " (FLangage,FGender,...) select TblCustomer.FLangage,TblCustomer.FGender,...FROM TblCustomer WHERE TblCustomer.FLangage = '" + (Combo1.Value) + "'"
- DoCmd.SetWarnings False
- End Sub
|
Ca mets dans une table,dont le nom est donné par l'utilisateur, les infos de la requete |