Discussion :

[com689]

Bonjour à tous,

Je suis en train de refaire une petite application de GMAO, dans laquelle la saisie d'un code d'intervention dans les champs "code" du formulaire "Interventions" remplit automatiquement les champs "intervention","Sous_Inst" pour la sous installation (localisation),"Type_Equip" pour le type d'équipement,"Equip"pour l'équipement concerné par l'intervention,"Lib_Mat" pour libellé du matériel utilisé,"Note" pour note et "PU" pour prix unitaire.
Le code s'appuie sur la fonction DLookup, comme vous pouvez le voir:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Code_Interv_AfterUpdate()
 
    Me.Intervention = DLookup("Interventions", "T_Type_Interventions", "ID_Type_Interv=" & Me.Code_Interv & "")
    Me.ID_Sous_Inst = DLookup("Sous_Installation", "T_Type_Interventions", "ID_Type_Interv=" & Me.Code_Interv & "")
    Me.ID_Typ_Equip = DLookup("Typ_Equip", "T_Type_Interventions", "ID_Type_Interv=" & Me.Code_Interv & "")
    Me.ID_Equip = DLookup("Equipement", "T_Type_Interventions", "ID_Type_Interv=" & Me.Code_Interv & "")
    Me.Lib_Mat = DLookup("Description", "T_Type_Interventions", "ID_Type_Interv=" & Me.Code_Interv & "")
    Me.Note = DLookup("Note", "T_Type_Interventions", "ID_Type_Interv=" & Me.Code_Interv & "")
    Me.PU = DLookup("Unit cost", "T_Type_Interventions", "ID_Type_Interv=" & Me.Code_Interv & "")
 
End Sub

L'ensemble fonctionne, excepté pour la dernière ligne Me.PU

A l'origine je souhaitai récupéré les informations de prix directement dans la table "T_Wincheck", en fonction de la description du matériel, mais en vain.

Je joins une version très allégée de la BDD.

Merci d'avance pour votre aide, car je sèche.

[loufab]

Bonjour,

Un truc m'interpelle dans ton code.

Tout ces dlookup qui traite la même table et le même enregistrement.
Dans un cas comme celui-là il vaut mieux utiliser un recordset DAO avec un Findfirst.

mais bon, ça marche alors pourquoi se casser la tête.

Pour ton problème :
Les caractères spéciaux dans les noms doivent être traités par un séparateur. Dans le doute mets les partout ou évite-les (perso je les évite)
Espace =>> undescore

Code :

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

1
2
3
 
 
Me.PU = DLookup("[Unit cost]", "[T_Type_Interventions@", "[ID_Type_Interv]=" & Me.Code_Interv)

Cordialement,

[com689]

Merci Beaucoup LOUFAB,

En effet, cela fonctionne même si je ne comprends pas pourquoi puisque les lignes de code précédentes fonctionnent sans accolades et avec la même typographie...

[loufab]

Voici pourquoi :

Lorsque tu utilises dlookup() cette fonction fait un appel à la base de données en reproduisant une requête suivant les paramètres que tu lui as passé (voir mon tuto sur l'optimisations et plus particulièrement l'optimisation Rushmore : http://loufab.developpez.com/tutorie...tion/#LIII-D-1

Donc ton appel à la fonction est celle-ci :

Code :

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

DLookup("Unit cost", "T_Type_Interventions@", "ID_Type_Interv=" & Me.Code_Interv)

Cela est traduit comme cela en SQL via RUSHMORE :

Code :

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

SELECT Unit cost  FROM T_Type_Interventions@ WHERE ID_Type_Interv=lecodetransmit

Au niveau du SELECT tu vois bien l'erreur ?

Maintenant la même chose avec ma correction :

Code :

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

SELECT [Unit cost]  FROM [T_Type_Interventions@] WHERE  [ID_Type_Interv]=lecodetransmit

Le problème est réglé en utilisant les règles SQL.

As-tu compris ?

Cordialement,

[com689]

Merci encore Loufab,

Je pense avoir compris.
Mais si je peux abuser, comment opèrerais-tu pour que ces informations de "Description" et de "PU", soient alimentées directement de la table [T_Wincheck] ?
Je m'explique: je pense que pour éviter la redondance de ces informations, il faudrait les stocker dans une seule table, la table [T_Wincheck] puisque celle-ci est alimentée automatiquement par un rapport informatique généré par notre logiciel de gestion des stocks.
Aussi, je pensais ne renseigner dans la table [T_Type_Interventions] uniquement le champs [Product code] qui sert de clef primaire dans la table et donc ne changera jamais contrairement à la description ou au prix.
Seulement j'ai essayé vainement de remplir automatiquement les champs [Description] et [PU] de la table [T_Interventions] lors de la saisie du code intervention.
Ma solution de repli, aussi délirante soit-elle a été de renseigner pour chaque type d'intervention les champs [Description] et [Unit cost].

Comme j'essaie de faire les choses de manière "professionnelle, si tu avais une solution je suis preneur...

Quoi qu'il en soit, merci encore.

[loufab]

Bonjour,

Si T_wincheck contient les vrais valeurs pourquoi s'embarrasser d'un transfert dans une autre table ?

Utilises une clef unique pour faire la relation entre les 2 tables. Puis construis une requête retournant un tuple des 2 tables avec les bonnes infos pour alimenter ton application.

Cordialement,