Update avec access

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:

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.

moi je fais

Code:

1
2
3
4
5
6
where 
champ1=clause1
and champ2>=clause2
and champ3 between 17 and 56
and champ4 like("montrachet")
and champ5 etc..

mais moi c'est moi

Merci beaucoup cela fonctionne!
Mais c'est mon if qui doit bloquer maintenant car ca ne fonctionne que lorsque je ne teste pas si la valeur existe.
Est ce bien

Code:

If req_ent.BOF Then

pour verifiez si les valeurs selectionnées juste au dessus existe dans la base de donnée?
J'ai un gros doute la :S

Merci d'avance.

Bonjour,

Un truc que j'avais fait :
- Tu désactives le gestionaire d'erreurs
- Tu tentes un INSERT
- En cas d'erreur, tu fais un update
(Il te faut une clé primaire)
Code:

1 2 3 4 5 6 7 On error resume next db.Execute ("INSERT into TAB_DEVIS ..... If Err then On error Goto 0 db.Execute ("UPDATE TAB_DEVIS Set Solde = Solde ..... end if

avant le if ...bof
req_ent.movefirst

Merci a tous! La premiere solution proposer etait la bonne!
Pour la seconde, je me suis servit de

Code:

If req_ent.recordcount >0 then

Merci encore