Bonjour,
je suis nouveau dans la Forum et surtout dans VBA/ACCESS/EXCEL.
En fait je cherche à enregistrer des Infos dans un Tableau Access à l'aide d'un formulaire Excel.

Voici mon code, quand je le compile il Affiche nombre d'arguments insuffisants et l'erreur est marquée sur l'avant derniere ligne...J'ai deja tout verifié et changé maintes fois...sans succes...merci de me montrer quoi faire. f1-f5 sont les noms des textboxes dans lesquelles les données seront inscrites


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Private Sub savebutton_click()
 
Dim strSql As String
 
Dim db As Database
Dim databasepath As String
 
databasepath = ActiveWorkbook.Path & "\TEST_Rating.accdb"
 
Set db = DBEngine.Workspaces(0).OpenDatabase(databasepath)
 
strSql = "INSERT INTO Kunden ('requester', 'Kuerzel_360T', 'KundenID', 'Alpha_CODE_FX_PRO', ' RatingID')" _
& "VALUES (f1, f2, f3, f4, f5);"
 
db.Execute strSql, dbFailOnError
 
Unload UserForm2
 
 
End Sub
Merci