Discussion :

[dj_techno]

Bonjour
je veux transférer des valeurs depuis des champs vers une table stock par la commande INSERT, pour créer un nouveau enregistrement:

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
 
Dim sql As String
 
Dim nomarticle As String
Dim numarticle As Integer
Dim rubriquePK As Integer
Dim nomrubrique As String
nomarticle = ArticleNom.Value
numarticle = tArticlePK.Value
rubriquePK = Modifiable33.Column(0)
nomrubrique = Modifiable33.Column(1)
 
sql = "INSERT INTO stock (tRubriquePK,RubriqueNom,tArticlePK,ArticleNom)VALUES (" & rubriquePK & "," & nomrubrique & "," & numarticle & "," & nomarticle & ")"
 
CurrentDb.Execute sql (et j'ai bien essayer 'DoCmd.OpenQuery sql')

à l'exécution j'ai le message VBA:

Erreur d'exécution: 3061
Trop peu de paramètres . 2 attendu

malgré que l'enregistrement est bien créer dans la table "stock" et que tous les champs sont bien inserés dans l'ordre.
S.V.P je ne trouve pas la solution pour cette erreur.
merci

[tee_grandbois]

bonsoir,
pour les 2 variables de type String, il ne faut pas oublier les apostrophes:

Code :

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

",'" & nomrubrique & "',"

[dj_techno]

bonsoir,
pour les 2 variables de type String, il ne faut pas oublier les apostrophes:

Code :

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

",'" & nomrubrique & "',"

Merci, tout est réglé