Ecriture Table en VBA - Bug non compris

Question

Bonjour tout le monde. Je suis un fan de ce forum et habituellement sur la partie VBA pour Excel. Aujourd'hui je travaille sous Access et j'ai un probleme concernant:


L'ecriture dans une base access en VBA.

J'ai en effet:
> une base de donnée Access appelée Base1
> une table appelée Index1
> Dans cette table, j'ai Trois champs: ID, Serie1 et Serie2

Je voudrai simplement à partir d'une macro VBA et en SQL rajouter une ligne a dans cette table.

Le code que j'utilise et qui bug apparemment est :

Private Sub Test_SMA()
Dim colonne1, colonne2 As String
colonne1 = "Serie1"
colonne2 = "Serie2"
CurrentDb.Execute "INSERT into Index1 (colonne1,colonne2) VALUES ('38','4')"
End Sub


Code apparemment tres siple (pour vous :-(  ) mais qui ne fonctionne pas.

Quelqu'un pourrait il m'eclairer?


Merci beaucoup et bonne journée a tous

PCPT · Answer

salut,

en effet tu as mal construit ta chaine sql
tu essayes d'écrire dans "colonne1" et non son contenu (variable)

CurrentDb.Execute "INSERT into Index1 (" & colonne1 & ", " & colonne2 & ") VALUES ('38','4')" 

ps : attention à ta déclaration également
Dim colonne1, colonne2 As String 
Dim colonne1 as string, colonne2 As String 
(sinon colonne1 est un variant)

++

Ecriture Table en VBA - Bug non compris

1 réponse

Votre réponse

Discussions similaires