Insertion des résultats d'une requète dans une table

Résolu
cs_baloc Messages postés 56 Date d'inscription lundi 8 septembre 2008 Statut Membre Dernière intervention 29 octobre 2010 - 6 oct. 2008 à 16:09
cs_baloc Messages postés 56 Date d'inscription lundi 8 septembre 2008 Statut Membre Dernière intervention 29 octobre 2010 - 7 oct. 2008 à 10:02
Bonjour à tous,

Mon problème est simple. J'ai une table dans une base access, suite à une macro que je réalise, je fais une requète.
de cette requète j'obtiens des résultats. Mais le hic ce pose maintenant. ses résultats j'aimerais les placer dans une autres tables que je dois me servir. C'est là que je bloque. Si quelqu'un aurait une solution où une piste, je suis preneur.

pour l'instant j'ai ceci:

sql = "SELECT distinct app_gr from logname_groupe"

    DoCmd.SetWarnings False
    DoCmd.RunSQL req
    DoCmd.SetWarnings True

qui m'aime me suive...quoi personne...><

3 réponses

cs_thierry la fronde Messages postés 351 Date d'inscription mercredi 21 juillet 2004 Statut Membre Dernière intervention 12 août 2009
6 oct. 2008 à 19:36
bonsoir,

ta réponse c'est l'instruction INSERT INTO en sql.. tu peux trouver plein de code sur le site

thierry la fronde
3
cs_baloc Messages postés 56 Date d'inscription lundi 8 septembre 2008 Statut Membre Dernière intervention 29 octobre 2010
7 oct. 2008 à 09:33
Merci beaucoup pour se complément d'information.
Mais un problème subsiste...

Sub groupe()


DoCmd.SetWarnings False
sql = "delete * from groupes"
DoCmd.RunSQL sql
DoCmd.SetWarnings True


Set mabd = CurrentDb()


sql = "Insert into groupes values (groupe, design) select distinct app_gr, none AS Expr1 from logname_groupe;"


    DoCmd.SetWarnings False
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True


End Sub

avec se code j'obtiens quelque chose d'assez bizarre.

erreur d'exécution '3137':
point virgule absent à la fin de l'instruction sql.


j'ai donc essayer avec et sans le point virgule.

qui m'aime me suive...quoi personne...><
0
cs_baloc Messages postés 56 Date d'inscription lundi 8 septembre 2008 Statut Membre Dernière intervention 29 octobre 2010
7 oct. 2008 à 10:02
Et bien j'ai trouvé mon erreur,
la solution est donc

Sub groupe()


sql = "delete * from groupes"
   
    DoCmd.SetWarnings False
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True


Set mabd = CurrentDb()


sql = "Insert into groupes (groupe) select distinct app_gr from logname_groupe "


    DoCmd.SetWarnings False
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True


End Sub

merci à toi thierry la fronde

qui m'aime me suive...quoi personne...><
0
Rejoignez-nous