Erreurs incompréhensibles

Option Compare Database

Option Explicit


Private Sub Form_Load()

quantite.Value = 1
total = 0

End Sub

Private Sub liste_commune_Click()

moteur.Value = liste_commune.Value

moteur.SetFocus
If liste_commune.Visible = True Then liste_commune.Visible = False

DoCmd.Requery

End Sub

Private Sub moteur_Change()


If liste_commune.Visible = False Then liste_commune.Visible = True
liste_commune.RowSource = "SELECT DISTINCT libelle FROM liste_commune WHERE libelle LIKE '" & moteur.Text & "*'"



End Sub


Function masquerlist()

If liste_commune.Visible = True Then liste_commune.Visible = False

End Function

Private Sub categorie_Change()

Dim ligne As Recordset
Dim base As DAO.Database

Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("SELECT*FROM liste_commune WHERE libelle='" & moteur.Value & "'", dbOpenDynaset)


ligne.MoveFirst

categorie.Value = ligne.Fields("categorie").Value
item.Value = ligne.Fields("item").Value
prix.Value = ligne.Fields("prix").Value


ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing


End Sub


Private Sub ajouter_Click()

Dim ligne As Recordset
Dim base As DAO.Database
Dim requete As String
Dim totalcom As Currency



Set base = Application.CurrentDb
requete = "INSERT INTO detail_temp (item,categorie,libelle,quantite,prix,soustotal) VALUES ('" & item.Value & "','" & categorie.Value & ", " & moteur.Value & ",'" & quantite.Value & "','" & prix.Value & "','" & sstotal.Value & "')"

base.Execute requete

Set ligne = base.OpenRecordset("SELECT sstotal FROM detail_temp", dbOpenDynaset)

ligne.MoveFirst

Do
totalcom = totalcom + ligne.Fields("sstotal").Value
ligne.MoveNext
Loop Until ligne.EOF
total.Text = totalcom

ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing

DoCmd.Requery



End Sub