prob insert into vba

Version imprimable

Bonjour,
voila étant novice en VBA j'ai copier un code inster into afin qu'il soit actif dés que je clic sur un bouton...mais j'ai une erreur... alors je m'explique
erreur dite:
erreur d'execution 3061
trop peu de paramètre, 3 attendus.

voici ma requete:
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub DAOajoutMAJ_prod_sorti_click() Dim db As DAO.Database Set db = DBEngine.OpenDatabase(".\gros_proget2.mdb") ' Exécution de la requête db.Execute "INSERT INTO tab_sortie ( ref_prod_nomm, ref_cat_prod, ref_prod_base ) values ( txt_ref_prod_nomm, txt_ref_cat_prod, txt_prod_base);" Debug.Print "Records Affected = " & db.RecordsAffected db.Close End Sub
J'ai meme essayer avec des guillemets mais ça ne change rien...

les champs a enregistrer sont numérique.
les controles (valeur) txt_.... sont des zones de liste à 2 colonnes donc le contenu et une requete de sélection et la première colonne et un numauto...

En gros je nage dans ce que j'essaye.... mais je doit surement faire une erreur de syntaxe... mais laquel????

Merci d'avance pour votre aide!!

23/06/2008, 16h01
Jean-Philippe André

salut,
le code actuel attend en effet que tes txt soient des valeurs...
en partant du principe que ces valeurs sont celle de ton formulaire en cours :

Code:

db.Execute "INSERT INTO tab_sortie ( ref_prod_nomm, ref_cat_prod, ref_prod_base ) values ( " & Me.txt_ref_prod_nomm.value &"," & Me.txt_ref_cat_prod.value & "," & Me.txt_prod_base &");"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub DAOajoutMAJ_prod_sorti_click()
 
    Dim db As DAO.Database
    dim iStr_SQL as string
    Set db = DBEngine.OpenDatabase(".\gros_proget2.mdb")
    ' Exécution de la requête
    istr_sql = "INSERT INTO tab_sortie ( ref_prod_nomm, ref_cat_prod, ref_prod_base ) values ( txt_ref_prod_nomm, txt_ref_cat_prod, txt_prod_base);"
    debug.print istr_sql
    db.Execute iStr_SQL, dbfailonerror
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
End Sub

Tu te rendras compte que ton SQL, ben, il est tout pourri.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub DAOajoutMAJ_prod_sorti_click()
 
    Dim db As DAO.Database
    dim iStr_SQL as string
    Set db = DBEngine.OpenDatabase(".\gros_proget2.mdb")
    ' Exécution de la requête
    istr_sql = "INSERT INTO tab_sortie ( ref_prod_nomm, ref_cat_prod, ref_prod_base ) values (" &  txt_ref_prod_nomm.value & ", " & txt_ref_cat_prod.value & ", " & txt_prod_base.value & ");"
    debug.print istr_sql
    db.Execute iStr_SQL, dbfailonerror
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
End Sub

Après, selon le type de tes champs, il va sans doute falloir jouer de la quote.

23/06/2008, 17h00
croke

merci de vos réponses....

Effectivement les erreurs sont logique et j'ai compris le systemes de récupération des variables...
ceci dis j'ai mis le dernier code de kloum plus complet que ce que j'avais avant...
mais j'ai une erreur de syntaxe et j'ai cette ligne qui ce met en jaune

Code:

db.Execute iStr_SQL, dbFailOnError

mais je ne comprend pas l'erreur, car je ne sais pas ce que veulent dire ces commande....
est ce que l'on pourai me l'expliquer s'il vous plait...

Merci encore...
23/06/2008, 17h17
Kloun

Et c'est quoi l'erreur ?

il me met:

Citation:

erreur d'execution 3134
erreur de syntaxe dans l'instruction de INSERT INTO

puis il me surligne en jaune

Code:

db.Execute iStr_SQL, dbFailOnError

QU'est ce que ça veu dire???

Voici le code que j'ai mis
Code:

1 2 3 4 5 6 7 8 9 Dim db As DAO.Database Dim iStr_SQL As String Set db = DBEngine.OpenDatabase(".\gros_proget2.mdb") ' Exécution de la requête iStr_SQL = "INSERT INTO tab_sortie ( ref_prod_nomm, ref_cat_prod, ref_prod_base ) values ( " & Me.txt_ref_prod_nomm.Value & "," & Me.txt_ref_cat_prod.Value & "," & Me.txt_prod_base & ");" Debug.Print iStr_SQL db.Execute iStr_SQL, dbFailOnError Debug.Print "Records Affected = " & db.RecordsAffected db.Close
avec les variable de valeur "me.txt_ref_prod_nomm" ou "txt_ref_prod_nomm" ça me donne la meme erreur....

je ne sais pas ce que je dois faire!!!:(

19/02/2012, 16h54
vdecaudi

Je pense qu'il faut mettre un ' avant et après "txt_ref_prod_nomm"

Code:

iStr_SQL = "INSERT INTO tab_sortie ( ref_prod_nomm, ref_cat_prod, ref_prod_base ) values (' " & Me.txt_ref_prod_nomm.Value & "','" & Me.txt_ref_cat_prod.Value & "','" & Me.txt_prod_base & "');"