Discussion :

[croke]

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 :

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

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!!

[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 :

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

 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 &");"

[Kloun]

Code :

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

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 :

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

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.

[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 :

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

 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...

[Kloun]

Et c'est quoi l'erreur ?

[croke]

il me met:

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

puis il me surligne en jaune

Code :

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

db.Execute iStr_SQL, dbFailOnError

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

Voici le code que j'ai mis

Code :

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

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!!!

[vdecaudi]

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

Code :

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

   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 & "');"