Discussion :

[darkspoilt]

Bonjour,
je voudrais savoir si quelqu'un peut m'aider je voudrais savoir quel méthode on utilise en VBA pour créer un table liés dans Access. et aussi créer une requete ajout en VBA.

[Demco]

Bonjour,

Les deux réponses que tu cherches semblent être dans la FAQ, pense à y jeter un coup d'oeil

Par exemple pour les tables liées :
http://access.developpez.com/faq/?pa...kTablePassword

[darkspoilt]

Merci pour le liens des tables liés mais j'arrive pas a trouver dans la FAQ la réponse a mon deuxieme probleme.Enfait il me faut le code de la requete ajout de access ke l'on utilise sauf ke je veux mettre une variable au lieu de selectionner une table fixe.
Voila
Merci beaucoup pour le premier probleme

[Demco]

Merci pour le liens des tables liés mais j'arrive pas a trouver dans la FAQ la réponse a mon deuxieme probleme.Enfait il me faut le code de la requete ajout de access ke l'on utilise sauf ke je veux mettre une variable au lieu de selectionner une table fixe.

Tu as une fonction rechercher dans la FAQ, et si tu y tapes tout simplement "créer requête" je pense que tu obtiens la réponse :
http://access.developpez.com/faq/?re...E9er+requ%EAte

En espérant t'aider.

[darkspoilt]

En fait la création de la requete je l'ai trouvé ce qui me manque c les méthode a utiliser pour faire en sorte que ca soit une requete ajout et le tout en VBA et ca je le trouve pas.

[Demco]

ce qui me manque c les méthode a utiliser pour faire en sorte que ca soit une requete ajout et le tout en VBA et ca je le trouve pas

Tu écris la requête en VBA donc tu la construis comme une simple chaîne de caractères.
Une requête d'ajout est de type <b>INSERT INTO</b>. Tu trouveras également dans la FAQ comment exécuter en VBA une requête d'insertion/d'exécution.

[darkspoilt]

Pour controuner le probleme je passe par une commande SQL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub MacroEssai()
 
Dim Var As String
Var = "Table2"
 
DoCmd.TransferSpreadsheet acImport, , "Table2", "D:\Test\Essai.xls", 0
 
Sql = "INSERT INTO Test ( année, OPPO, MPE, MPF, MRE, MRF, M_ )SELECT , [année], [OPPO], [MPE], [MPF], [MRE], [MRF], [M_] FROM = & Var;)"
 
DoCmd.RunSQL Sql
 
End Sub

et il me met une erreur a DoCmd.RunSQL sql et je vois pas pourquoi si quelqu'un peut m'aider je le remercie d'avance

[Demco]

Lorsque tu construis une requête par le code, vérifie toujours si la chaîne de caractères générée est bien le résultat souhaite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sql = "INSERT INTO Test ( année, OPPO, MPE, MPF, MRE, MRF, M_ )SELECT , [année], [OPPO], [MPE], [MPF], [MRE], [MRF], [M_] FROM = & Var;)"
 
Debug.Print Sql 'affiche le contenu de sql dans la fenêtre d'exécution.
 
'DoCmd.RunSQL Sql

Mais à première vue tu sembles avoir des problèmes de parenthèses, virgule et de variable (on insère pas la valeur d'une variable de cette manière là dans une chaîne de caractères, tu oublies les guillemets).

[darkspoilt]

Ma commende SQL a l'air bonne après je ne connais pas très bien le SQL donc je peux me tromper

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
INSERT INTO Test ( année, OPPO, MPE, MPF, MRE, MRF, M_ )SELECT , [année], [OPPO], [MPE], [MPF], [MRE], [MRF], [M_] FROM = Table2;)

[Demco]

Il te suffit de créer une requête vide dans Access, y coller ce code SQL et l'exécuter. Access te dira alors plus précisément où se trouvent les problèmes.

[darkspoilt]

Merci c'est bon j'avais une parenthese en trop
Mais maintenant j'ai un problmee avec mes tables il me redemande des valeur aux champs alors que je veux récupéré celle de ma table a ajouter