Erreur de syntaxe ..... VBA/SQL

Question

Bonjour ,

J ai un probleme dans ma fonction. Apparemment c'est la date dans la requete1 qui pose probleme, mais je vois pas pourquoi ?! Je pense qu il ne recupere pas la valeur du formulaire. Est ce qu il faut faire un recordset ??



Sub Livraison(NumBL As Long)
Dim requete1 As String
Dim requeteBL As String
Dim reponse As Integer

Set Formulaire = Application.Forms("Ajout bon livraison")

requete1 = " INSERT INTO stocker ( datestock, numEntrepot, numcomposant, qtélivrée )" & _
" SELECT [BonLivraison].[dateLivraison], [BonLivraison].[numentrepotL], [ligneLivraison].[numcompL], [ligneLivraison].[qtécompL]" & _
" FROM ligneLivraison, BonLivraison  WHERE [b] [BonLivraison].[dateLivraison]= " & CStr(dateLivraison) & "  " & _[b]
" And [ligneLivraison].[numbonLivraison]=[BonLivraison].[numbonlivraison] And [BonLivraison].[BLenregistre]=0; "

reponse = MsgBox("Etes-vous sûr de vouloir ajouter la livraison au stock ?" & vbLf & _
"La mise à jour du stock se fera automatiquement.", vbYesNoCancel + vbQuestion + vbDefaultButton2 + vbSystemModal, "Les composants ont été ajoutés")

If reponse = vbYes Then
    CurrentDb.Execute requete1, dbFailOnError
    MiseAJourStock
    requeteBL = " Update BonLivraison set BLEnregistre=1;"
    CurrentDb.Execute requeteBL, dbFailOnError
End If

End Sub



 :shy) Amaya ;)

cs_marcelin · Answer

sql utilise les date au format amméricain.....(normal c'est une p'tite feinte de billou)
alors avant de l'executer en sql il faut que tu la traff(tel un jeune  de 14 ans devant son scoot tout neuf..........on est tous passer par là!!!!! ;) )

utilise cette fonction, tu la met dans un module et tu l'appel dans ta requête(avec les parametre)

"
Function ManipDate(ByRef datedep) As String
'var
Dim jj As String
Dim mm As String
Dim aa As String

jj = Mid(datedep, 1, 2)
mm = Mid(datedep, 4, 2)
aa = Mid(datedep, 7, 2)
'MsgBox "trasformation de " & datedep & " à " & mm & "/" & jj & "/" & aa, vbOKOnly, "transformation"
ManipDate = mm & "/" & jj & "/" & aa
End Function
"

voila ca devrais marcher

a+

marcelin 8-)

Erreur de syntaxe ..... VBA/SQL

1 réponse

Discussions similaires