Update avec access

**xdiethank** · 10/05/2006, 17h25

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.

**random** · 10/05/2006, 17h36

moi je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**xdiethank** · 10/05/2006, 18h19

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**pc75** · 11/05/2006, 08h09

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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