Discussion :

[empirehell]

Bonjour a tous !

Je travaille actuellement sur une base de données de gestion de stock.
La table (tbl_cable_drums) est constituée d'une colonne Item_code, d'une colonne description et d'une colonne par chantier (au nombre de 5).
Ainsi sur chaque ligne on a le code de l'objet, sa description et la quantité présente sur chaque chantier.

Je souhaite créer un formulaire d'ajout de matériel (pour représenter les livraisons).
On choisi l'objet concerné dans la combo1 puis le site sur lequel la marchandise va être livrée dans la combo2 et on renseigne la quantité livrée dans la text1.
Apres validation sur un bouton, la quantité livrée est ajoutée a la quantité initialement présente sur le chantier.

Mon problème est que je souhaite créer un champ text2 qui affiche la quantité initialement présente sur le chantier (avant ajout) ce qui me permettrai de renseigner une text3 contenant la nouvelle quantité (text3 = text2 + text1). Ce champ text2 dépend donc des choix fait en combo1 et combo2.
Malheureusement je n'arrive pas a écrire le code me permettant de remplir text2 ...

Voici mon code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
 Private Sub Combo2_Change()
  If IsError(Evaluate("INDEX(fonction,MATCH(""" & Combo1.Value & Combo2.Value & """,tbl_CABLE_DRUMS,0))")) Then
      msg = "Unknown"
      Beep
   Else
      msg = Evaluate("INDEX(fonction,MATCH(""" & Combo1.Value & Combo2.Value & """,tbl_CABLE_DRUMS,0))")
   End If
  Text2.Value = msg
  End Sub

L'erreur renvoyée concerne EVALUATE : Compile error Sub or Fonction not defined

J'ai cherche la syntaxe access de la fonction evaluate mais sans succès ...

Merci d'avance pour votre aide !

[FreeAccess]

Bonjour,

Regarde plutôt du côté de EVAL...et non EVALUATE..

[empirehell]

Dieu que je suis bête

Merci beaucoup

J'ai corrigé comme suit (j'en ai également profite pour corriger "fonction" en 'function") :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Combo4_Change()
  If IsError(EVAL("INDEX(function,MATCH(""" & Combo1.Value & Combo2.Value & """,tbl_CABLE_DRUMS,0))")) Then
      msg = "Unknown"
      Beep
   Else
      msg = EVAL("INDEX(function,MATCH(""" & Combo1.Value & Combo2.Value & """,tbl_CABLE_DRUMS,0))")
   End If
  Text2.Value = msg
  End Sub

Mais ce n'est pas résolu pour autant ...
J'ai maintenant droit a un magnifique :

Run-Time error '2425'
The expression you enterred has a function name that microsoft office access can't find

Je penche pour le même genre d'erreur que précédemment.

[FreeAccess]

msg = EVALl("INDEX(function,MATCH(""" & Combo1.Value & Combo4.Value & """,tbl_CABLE_DRUMS,0))")

..tu pourrais nous "traduire" ce que ton expression est censés faire
C'est quoi MATCH.

Sinon...

...Apres validation....la quantité livrée est ajoutée a la quantité initialement présente sur le chantier.

Tu ne pense pense qu'une simple requête de mise à jour serait suffisante....

[EDIT] Ton idée première allée dans le bon sens (ton post)

[empirehell]

Alors le but de ce code est d'aller chercher dans la table tbl_cable_drums la cellule correspondant a la ligne de l'objet ayant le code contenu dans combo1 et la colonne portant le nom du chantier sélectionné en combo2.

Pour expliquer, voici la structure de la table :
item_code | Description | chantier1 | chantier2 | chantier3 | chantier4 ...
WE0056 | câble 20x5 | 90 | 67 | 134 | 126
UZ656 | copper bar | 12 | 13 | 1 | 8


Je souhaite donc si je sélectionne WE0056 dans ma combo1 et chantier2 dans ma combo2, que le champ text2 me retourne 67


Pour ce qui est de faire l'update avec une requête, je n'ai pas reussi malgré pas mal de recherches et d'essais en tout genre, j'ai donc abandonné ...
De toutes façons mon code fonctionne pour réaliser cette opération.

EDIT: J'ai mis en ligne la base de données sur laquelle je travaille si cela peux aider ...
http://www.cijoint.fr/cjlink.php?fil...cijgcBUMfm.zip

[FreeAccess]

Heu....oui.......on ne peut pas dire que la structure de ta base est la meilleur..

Maintenant, pourquoi faire si compliqué alors que tu ne souhaite que mettre à jour une quantité d'objets répartie sur différents chantiers...

- création d'un formulaire basé sur la table tbl_cable_drums.
- tu dispose tous les champs sur ce formulaire.
- dans la partie en-tête du formulaire, tu place une ZdL indépendante. L'assistant va alors ouvrir une fenêtre ou tu aura 3 choix.
- Tu sélectionne "Rechercher un enregistrement dans mon formulaire basé sur la valeur que j'ai sélectionnée......."

A partir de là, un choix effectué dans cette ZdL va t'afficher directement l'objet recherché....ainsi que la répartition sur les différents chantiers.

Il ne te reste plus qu'à changer les quantités.....