Discussion :

[futurist]

Bonjour
j'ai besoin d'aide, quelqu'un peut me dire pourquoi je recois le message suivant dans le code ci dessous:
Runtime error 3346
le nombre de valeur de la requête doit coincider avec le nom de champs distination

Code :

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

1
2
3
4
5
 
     txt = " Insert into tmpfact (codefacture,codearticle,qte,punitaire,tva,remise,mtttc) Values ( "
     txt = txt & PreSQLCh(NumFact.text) & "," & PreSQLCh(CodeArt.text) & "," & PreSQL(Qte.text) & ","
     txt = txt & PreSQL(Pu.text) & "," & (Tva.text) & "," & PreSQL(Tremise.text) & "," & PreSQL(Mtttc.text) & ")"
   dbs.Execute txt

je recoi la meme erreur quad je fait ca:

Code :

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

txt = " Insert into tmpfact (CodeFacture,CodeArticle,Qte,Punitaire,Tva,Remise,mtttc) Values ( " & NumFact.text & "," & CodeArt.text & "," & Qte.text & "," & Pu.text & "," & Tva.text & "," & Tremise.text & "," & Mtttc.text & ")"

et merci infiniment

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
     TXT = " Insert into tmpfact (codefacture,codearticle,qte,punitaire,tva,remise,mtttc) Values ( " _
            & PreSQLCh(NumFact.Text) & "," _
            & PreSQLCh(CodeArt.Text) & "," _
            & PreSQL(Qte.Text) & "," _
            & PreSQL(Pu.Text) & "," _
            & (Tva.Text) & "," _
            & PreSQL(Tremise.Text) & "," _
            & PreSQL(Mtttc.Text) & ")"

plus lisible, le problème ici je pense & (Tva.Text) & "," _

[futurist]

Code :

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

1
2
3
4
5
6
7
8
     TXT = " Insert into tmpfact (codefacture,codearticle,qte,punitaire,tva,remise,mtttc) Values ( " _
            & PreSQLCh(NumFact.Text) & "," _
            & PreSQLCh(CodeArt.Text) & "," _
            & PreSQL(Qte.Text) & "," _
            & PreSQL(Pu.Text) & "," _
            & (Tva.Text) & "," _
            & PreSQL(Tremise.Text) & "," _
            & PreSQL(Mtttc.Text) & ")"

plus lisible, le problème ici je pense & (Tva.Text) & "," _

meme erreur avec votre réponse vraiment je ne sais pas ce qui se passe !!

[ProgElecT]

Code :

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

1
2
3
            '............. 
            & PreSQL(Tva.Text) & "," _
            '.............

?
A quoi correspond PreSQL

[futurist]

Code :

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

1
2
3
            '............. 
            & PreSQL(Tva.Text) & "," _
            '.............

?
A quoi correspond PreSQL

Le PreSQL ca n'a pas d'importance puisque meme avec ce code la je recois meme reponse :

Code :

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

txt = " Insert into tmpfact (CodeFacture,CodeArticle,Qte,Punitaire,Tva,Remise,mtttc) Values ( " & NumFact.text & "," & CodeArt.text & "," & Qte.text & "," & Pu.text & "," & Tva.text & "," & Tremise.text & "," & Mtttc.text & ")"

foction

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function PreSQLCh(txt As String) As String
 
    Dim n As Integer
    n = InStr(1, txt, "'")
    If n > 0 Then
        PreSQLCh = Left(txt, n) & "'" & PreSQL(Right(txt, Len(txt) - n))
    Else
        PreSQLCh = "'" & txt & "'"
    End If
End Function

fonction2

Code :

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

1
2
3
4
5
6
7
8
9
Public Function PreSQL(txt As String) As String
    Dim n As Integer
    n = InStr(1, txt, "'")
    If n > 0 Then
        PreSQL = Left(txt, n) & "'" & PreSQL(Right(txt, Len(txt) - n))
    Else
        PreSQL = txt
    End If
End Function

[ProgElecT]

Code :

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

TXT = " Insert into tmpfact(codefacture,codearticle,qte,punitaire,tva,remise,mtttc);Values ( " _

vue dans un vieux livre
,mtttc) ; Values
après je ne pourrai pas plus t'aider, pas les compétences suffisantes

Motif de l'edit:
Faut, ne pas tenir compte de cette dernière proposition