S.o.s sauver Moi svp

Salut
Tu pourrais peut-être commencer par dire dans quel langage tu veux le faire ?

Dans ce code il ya ce que tu veux donc tu enleve le surplus et c'est OK

If btnenregistrer.Caption = "&CALCULER" Then
btnenregistrer.Caption = "&ENREGISTRER"
btnquitter.Caption = "&ANNULER"
btn3.enabled=false
If Txtdatev.Text = "" Then
MsgBox "DONNER LA DATE", vbExclamation
Txtdatev.SetFocus
Exit Sub
ElseIf CmbMoiv.Text = "" Then
MsgBox "SELECTIONNER D'ABORD LE MOIS", vbExclamation
CmbMoiv.SetFocus
Exit Sub
ElseIf Cmbsemainev.Text = "" Then
MsgBox "PRECISER LA SEMAINE", vbExclamation
Cmbsemainev.SetFocus
Exit Sub
ElseIf Cmbagentv.Text = "" Then
MsgBox "PRECISER LE NOM DE L'AGENT", vbExclamation
Cmbagentv.SetFocus
Exit Sub
ElseIf Cmbdesiv.Text = "" Then
MsgBox "DONNER LA DESIGNATION DU PRODUIT", vbExclamation
Cmbdesiv.SetFocus
Exit Sub
ElseIf IsNumeric(Txtqtev.Text) = False Then
MsgBox "SAISIE INCORRECTE", vbExclamation
Txtqtev.SetFocus
Exit Sub
Else: 'ON SE CONNECTE A LA BD ET ON RECUEILLE LA QTE EN STOCK DANS UNE VARIABLE (QTESTOCK)
If val(txtqtev.text) > qtestock then
msgbox "LA QUANTITE SAISIE EST SUPERIEURE A LA QUANTITE EN STOCK",vbexclamation
Txtqtev.SetFocus
Exit Sub
else
qtev=txtqtev.text
endif

if txtprix.text="" then
'CONNEXION A LA BD ET AFFECTATION DU PRIX A LA VARIALE PRIXV
Adoprod.RecordSource = "select PV from produit where DESIGNATION = '" & Cmbdesiv.Text & "' "
Adoprod.Refresh
Prixv = Adoprod.Recordset!PV

ELSE
PRIXV=val(txtprix.text)
endif
'--------- CALCUL DU MONTANT --------------
montantV=qtev*prixv
'--------- AFFECTATION DANS LES LISTOX ---------
List1.AddItem Txtdatev.Text
List2.AddItem Cmbagentv.Text
List3.AddItem Cmbdesiv.Text
List6.AddItem QTEV
List7.AddItem Prixv
List8.AddItem montantV
'---------- AFFECTATION DES MONTANTS TOTAUX ----------
LabTotalv.Caption = Val(LabTotalv.Caption) + montantV
ENDIF
ELSEIF BTNenregistrer.caption="&ENREGISTRER" then
'------ CONNEXION A LA BD ET MAJ DE LA QUANTITE EN STOCK ----------
Adoprod.CommandType = adCmdText
Adoprod.RecordSource = "select * from produit where DESIGNATION = '" & Cmbdesiv.Text & "' "
Adoprod.Refresh
Adoprod.Recordset.Edit
Adoprod.Recordset!qtestock = Adoprod.Recordset!qtestock - QTEV
Adoprod.Recordset.Update

'------------ ENREGISTREMENT DE LA LIGNE DE FACTURE ------------
With AdoVENTE.Recordset
.AddNew
!datev = Txtdatev.Text
!quantitev = QTEV
!nomagent = Cmbagentv.Text
!designation = Cmbdesiv.Text
!moisde = CmbMoiv.Text
!semainedu = Cmbsemainev.Text
!montant = MONTANTV
.Update
End With
'------------ VIDAGE DES CHAMPS ----------------
Cmbdesiv.Text = ""
Txtqtev.Text = ""
Txtprixv.Text = ""

'--------- REMISE A NIVEAU DES BOUTONS ---------------
btnenregistrerv.Caption = "&CALCULER"
btnquitterv.Caption = "&QUITTER"
btnrechercherv.enaled=true
endif

ERREUR:
'If Err = 3021 Then
'With adovente.Recordset
'.AddNew
'!datev = Txtdatev.Text
'!quantitev = QTEV
'!nomagent = cmbagentv.Text
'!designation = cmbdesiv.Text
'!moisde = cmbmoiv.Text
'!semainedu = cmbsemainev.Text
'!montant = montantv
'.Update
'End With