Bonjour, J'aurais aimer obtenir de l'aide à propos d'un code sur VBA Access en DAO, en effet une fois le code saisie j'ai un message d'erreur et je ne vois plus où se situe l'erreur, même ma prof d'info ne s'y retrouve plus, Voici le code:


Private Sub Ok_Click()

Dim db As DAO.Database
Dim rs0 As DAO.Recordset
Dim rs5 As DAO.Recordset
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset
Dim rs4 As DAO.Recordset
Dim rs6 As DAO.Recordset
Dim req0 As String
Dim req As String
Dim req2 As String
Dim req3 As String
Dim lastrs
Dim Discipline_acc As String
Dim Produit_acc As String
Dim Discipline
Dim Produit
Dim Quantite As Double
Dim datenow As Date
Dim res

datenow = Date
'Attribution des valeurs données dans le formulaire
Discipline_acc = forms!AjoutCommProf1.Discipline
Produit_acc = forms!AjoutCommProf1.Produit
Quantite = forms!AjoutCommProf1.Quantité

'Ouverture de la base
Set db = CurrentDb()

'Ouverture de la table Discipline
Set rs0 = db.OpenRecordset("DISCIPLINE")

'Ouverture de la table Produit
Set rs5 = db.OpenRecordset("PRODUIT")

'Selection des ID Prod et ID Disc en fonction des valeurs données dans le formulaire
req0 = "SELECT ID_Disc FROM DISCIPLINE WHERE Nom_Disc = '" & Discipline_acc & "';"
req3 = "SELECT ID_Prod FROM PRODUIT WHERE Libel_Prod = '" & Produit_acc & "';"

'Execution des requètes
Set rs3 = db.OpenRecordset(req0)
Set rs6 = db.OpenRecordset(req3)

'Attribution des résultats des requètes dans des variables
Discipline = rs3!ID_Disc
Produit = rs6!Id_Prod

'Ouverture des tables COMMANDE_DISCIPLINE et DETAIL_COMMANDE
Set rs = db.OpenRecordset("COMMANDE_DISCIPLINE")
Set rs2 = db.OpenRecordset("DETAIL_COMMANDE")

'Insertion des données du formulaire dans les tables
req = "Insert into COMMANDE_DISCIPLINE values (''," & Discipline & ", " & datenow & ")"
db.Execute req
rs.MoveLast

'Récupération du dernier ID_Cmde_Disc pour insertion
laststrs = rs!ID_Cmde_Disc

'Insertion des données du formulaire dans la tables
req2 = "Insert into DETAIL_COMMANDE values ( " & lastrs & "," & Produit & "," & Quantite & ")"
db.Execute (req2)

'Fermeture des tables et des enregistrements
rs0.Close
rs.Close
rs2.Close
rs3.Close
rs4.Close
rs5.Close
rs6.Close
db.Close
End Sub

Erreur: Erreur d'execution 3061, Trop peu de paramètres. 1 attendu

Merci de me repondre

Configuration: Windows XP
Internet Explorer 6.0