Discussion :

[Max_Agaki]

Bonjour,

Voici mon problème: Je souhaites effectuer une requête insertInto précédé d'une condition.

Code :

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

1
2
3
4
5
6
7
8
Private Sub btnEnregistrer_Click()
Dim txtReq As String
If Me.numSupp.Value <> " " And Me.libelMarch <> " " And Me.typDim.Value <> " " And Me.txtEut.Value <> " " And Me.motif.Value <> " " Then
txtReq = "INSERT INTO ResteAQResteAL(codeClient, dateC, enseigne, ville, service, numeroSupport, LibelMarchandise,typeDim, eut, motif)VALUES('" & codecli.Value & "','" & dateC.Value & "','" & ensgn.Value & "','" & ville.Value & "','" & txtService.Value & "','" & numSup.Value & "','" & libelMarch.Value & "','" & typDim.Value & "','" & txtEut.Value & "','" & motif.Value & "');"
DoCmd.RunSQL txtReq
End If
 
End Sub

Seulement voila, j'ai un message d'erreur qui a déjà fait l'objet de plusieurs demandes d'aides sur votre forum : Erreur d'exécution '424' : objet requis.

Merci par avance de votre aide !

[marot_r]

Bonjour

À quel endroit précis dans ton code ?

A+

[Max_Agaki]

Le débogueur m'indique l'erreur sur la ligne de la requête

Code :

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

txtReq = "INSERT INTO ResteAQResteAL(codeClient, dateC, enseigne, ville, service, numeroSupport, LibelMarchandise,typeDim, eut, motif)VALUES('" & codecli.Value & "','" & dateC.Value & "','" & ensgn.Value & "','" & ville.Value & "','" & txtService.Value & "','" & numSup.Value & "','" & libelMarch.Value & "','" & typDim.Value & "','" & txtEut.Value & "','" & motif.Value & "');"

ps : j'ai aussi essayé en l'écrivant comme cela mais même erreur :

Code :

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

DoCmd.RunSQL ("INSERT INTO ResteAQResteAL(codeClient, dateC, enseigne, ville, service, numeroSupport, LibelMarchandise,typeDim, eut, motif) VALUES ('" & codecli.Value & "','" & dateC.Value & "','" & ensgn.Value & "','" & ville.Value & "','" & txtService.Value & "','" & numSup.Value & "','" & libelMarch.Value & "','" & typDim.Value & "','" & txtEut.Value & "','" & motif.Value & "');")

[Max_Agaki]

J'ai trouvé ma solution j'avais oublié les "[]"

Code :

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

("INSERT INTO [ResteAQResteAL]

et j'avais fais une erreur dans l'écriture de mes champs ! Merci quand même