Bonjours à tous,
je programme en ce moment un logiciel de gestion de cave à vin.
Mais je bloque là. Voici le code qui me pose probleme.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
'On selectionne dans la base de donnée par rapport a ce que j'ai entré!
Set req_ent = db.OpenRecordset("SELECT * FROM TAB_DEVIS Where Categorie and Appellation and Cru and Titre and Millesime and Contenant and Fournisseur and Prix LIKE '" & BCategorie.List(BCategorie.ListIndex) & "' and '" & BAppellation.List(BAppellation.ListIndex) & "' and '" & BCru.List(BCru.ListIndex) & "' and '" & BTitre.List(BTitre.ListIndex) & "' and '" & BFournisseur.List(BFournisseur.ListIndex) & "' and '" & Bcontenant.List(Bcontenant.ListIndex) & "' and '" & BMillesime.List(BMillesime.ListIndex) & "' and '" & leprix.Text & "'")
 
'Si ca existe deja
If req_ent.BOF Then
 
'On ajoute juste le nouveau solde a l'ancien
db.Execute ("UPDATE TAB_DEVIS  Set Solde = Solde + ('" & laquantite & "') WHERE Categorie and Appellation and Cru and Titre and Millesime and Contenant and Fournisseur and Prix LIKE '" & BCategorie.List(BCategorie.ListIndex) & "' and '" & BAppellation.List(BAppellation.ListIndex) & "' and '" & BCru.List(BCru.ListIndex) & "' and '" & BTitre.List(BTitre.ListIndex) & "' and '" & BFournisseur.List(BFournisseur.ListIndex) & "' and '" & Bcontenant.List(Bcontenant.ListIndex) & "' and '" & BMillesime.List(BMillesime.ListIndex) & "' and '" & leprix.Text & "'")
 
'Sinon (si ca n'existe pas)
Else
 
'On ajoute dans la base de donné
db.Execute ("INSERT into TAB_DEVIS(Categorie,Appellation,Cru,Titre,Fournisseur,Contenant,Millesime,Prix,Solde,Rangement,Commentaires) values ('" & BCategorie.List(BCategorie.ListIndex) & "', '" & BAppellation.List(BAppellation.ListIndex) & "', '" & BCru.List(BCru.ListIndex) & "', '" & BTitre.List(BTitre.ListIndex) & "', '" & BFournisseur.List(BFournisseur.ListIndex) & "', '" & Bcontenant.List(Bcontenant.ListIndex) & "', '" & BMillesime.List(BMillesime.ListIndex) & "', '" & leprix.Text & "', '" & laquantite & "', '" & Lerangement & "','" & comm.Text & "')")
 
End If
En fait je souhaiterais que si les données que j'ai saisie existe, seul la quantité change.
Mais soit la quantité en question s'additionne à tous les bouteilles, soit rien ne change.

Voyez vous ou se trouve le probleme?

Merci d'avance.