Insertion des résultats d'une requète dans une table [Résolu]

Signaler
Messages postés
56
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
29 octobre 2010
-
Messages postés
56
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
29 octobre 2010
-
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

Messages postés
351
Date d'inscription
mercredi 21 juillet 2004
Statut
Membre
Dernière intervention
12 août 2009

bonsoir,

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

thierry la fronde
Messages postés
56
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
29 octobre 2010

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...><
Messages postés
56
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
29 octobre 2010

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...><