VBA créer une requete ajout

Question

Bonjour 
j'aimerais créer une requete ajout en VBA c'est la meme que la graphique sous Access sauf qu'il me manque les objet et le méthodes a utilisé.J'utilise le VBA car les sources et les cibles seront variables.

Si quelqu'un peut m'aider je lui en serais très reconnaissant

jrivet · Answer

Salut,
Est ce que déjà tu arrives à te connecter à ta base depuis VBA?
Si non alors regardes du côté de ADO

@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

oui c'est car je l'importe depuis VBA Mais j'ai pas assez de connaissance en VBA. pour continuer je sais pas ce qu'est l'ADO. en SQL ca donnerais ca


INSERT INTO tblClients2 ( NumCli, NomCli, PreCli )
SELECT [Numéro Client], [Nom Client], [Prénom Client]
FROM tblClients;

Mais il me le faudrais en VBA car mes tables sont variables

Merci pour ton aide

cs_Nicko11 · Answer

Dans un premier temps, tu peux voir que pour executer une requete, tu as la méthode RunSQL de l'objet DoCmd il me semble

SQL = "INSERT INTO tblClients2 ( NumCli, NomCli, PreCli )SELECT [Numéro Client], [Nom Client], [Prénom Client]FROM tblClients;)"

cs_Nicko11 · Answer

Dans un premier temps, tu peux voir que pour executer une requete, tu as la méthode RunSQL de l'objet DoCmd il me semble

SQL = "INSERT INTO tblClients2 ( NumCli, NomCli, PreCli )SELECT [Numéro Client], [Nom Client], [Prénom Client]FROM tblClients;)"

DoCmd.RunSQL SQL

darkspoilt · Answer

Oki merci ca m'avance déja beaucoup.
Mais en fait tblClient2 est une variable ke je récupere d'un formulaire et ceci est rentré par l'utilisateur. Donc le souci c'est qu'il va prendre tblClient2 comme une table et non comme variable.

cs_Nicko11 · Answer

Oui dsl, je devais mangé, donc pour la variable
SQL "INSERT INTO  " & tblClients2 & " ( NumCli, NomCli, PreCli )SELECT [Numéro Client], [Nom Client], [Prénom Client]FROM = tblClients;)"

cs_Nicko11 · Answer

A encore désolé, tu auras peut etre une erreur car il n'y a pas d'espace apres la second " de ce que j'ai mis en rose :
SQL "INSERT INTO  " & tblClients2 & "  ( NumCli, NomCli, PreCli )SELECT [Numéro Client], [Nom Client], [Prénom Client]FROM = tblClients;)"

darkspoilt · Answer

C 'est pas grave

j'ai tapé le code suivant

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

jrivet · Answer

Salut,
Mais quelle est cette erreur. Il serait utile de nous la dire

@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

Il y a une Erreur de syntaxe dans mon INSERT TO

cs_Nicko11 · Answer

fais msgbox SQL pour post nous ce que cela affiche pour voir

darkspoilt · Answer

Excuse moi j'ai pas vu ton message le probleme de syntaxe est réglé j'avais la derniere parenthese ki était en trop

il m'affiche ca
INSERT INTO Test (année, OPPO, MPE, MPF, MRE, MRF, M__ ) SELECT année, OPPO, MPE, MPF, MRE, MRF, M__ FROM Table2;

mais il me redemande les valeurs des champs de ma table2 alors ke je veux récupérer celle déja présente

chaibat05 · Answer

Salut,
pourquoi tu te compliques la vie en mettant le nom de la table dans une variable ?
d' autant plus que ton expression doit se présenter ainsi:


Sql = "INSERT INTO Test ( année, OPPO, MPE, MPF, MRE, MRF, M_ )SELECT , Teble2![année], Teble2![OPPO], Teble2![MPE], Teble2![MPF], Teble2![MRE], Teble2![MRF], [M_] FROM Teble2"





<hr />

VBA créer une requete ajout

13 réponses

Votre réponse

Discussions similaires