Discussion :

[gravia]

bonjour,
ne maitrisant pas du tout la programmation VBA, je vous soumet mon problème :
je travaille sous access 2003 et j'ai créé une base de données comportant 3 tables liées entre elles (salariés, expositions, risques). j'ai créé un formulaire "salariés" contenant un sous formulaire "expositions". dans ce dernier, je désire, aprés validation d'un champ sur la nature de l'exposition, mettre à jour un champ numérique de mon formulaire "salariés" avec une donnée de la table "risques" correspondant à la nature de l'exposition (sous-formulaire "expositions"). cette mise à jour doit être conditionnée au fait que la valeur numérique est inférieure à celle déjà présente dans ce champ.

un coup de main ne serait pas de trop, en espérant que mon explication est compréhensible.
merci d'avance pour votre aide précieuse.

[francishop]

Bonjour et Bienvenue,

en espérant que mon explication est compréhensible.

On va voir si j'ai un degré de compréhension développé...

Récapitulatif:
Formulaire au sommet(Le principal) : frm_Salaries
qui posséde un champ de la table "risque"-->Numérique (Qu'on baptise :txt_risque)

Sous formulaire : Sub_frm_Exposition avec un champ :NatureExposition
Ce dernier se devrait d'être une liste déroulante-->cbo_NatureExposition
avec une colonne correspondant à la valeur numérique recherchée genre :

Code :

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

1
2
3
4
SELECT tbl_Expositions.Id_Exposition,
          tbl_Expositions.Risque,
          tbl_Expositions.Degré
FROM tbl_Expositions;

Ce qui permet :

Code :

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

1
2
3
4
5
Private Sub cbo_NatureExposition_AfterUpdate()
    If Me.Parent!txt_risque < Me.cbo_NatureExposition.Column(2) Then
       Me.Parent!txt_risque = Me.cbo_NatureExposition.Column(2)
    End If
End Sub

Cordialement.

[gravia]

je te remercie pour ta réponse. pourtant j'ai des rectifications à faire sur la façon dont mon formulaire est réalisé.
le formulaire principal est bien "salariés" basé sur une table qui comporte un champ "délai" qui dépend du "risque" (les champs "risque" et "délai" sont présents également dans une table nommée "risques").
le formulaire principal contient un sous formulaire "expositions" basé sur une table "expositions" contenant un champ "n° risque". le sous formulaire possède une liste déroulante qui permet de saisir les "n° risque"
voici ce que je désirerai obtenir :
lorsque pour un salarié donné, je saisis un "n° risque", une recherche soit réalisée dans la table "risques" pour inscrire la valeur du "délai" de la table "risques" correspondant au "n° risque" dans le champ "délai" du formulaire "salariés".
je sais c'est tarabiscoté, mais bon.

n'hésite pas s'il reste des doutes.

[francishop]

Bonsoir,

Puisqu'une union existe entre "n° risque" et valeur du "délai" de la table "risques", pourquoi ne pas l'inscrire directement dans la liste déroulante :

Code :

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

1
2
3
4
5
SELECT tbl_Expositions.Id_Exposition, 
       tbl_Expositions.Risque, 
       tbl_risques.Délai
FROM tbl_risques INNER JOIN tbl_Expositions
 ON tbl_risques.Id_Risque = tbl_Expositions.Degré;

Il faut éviter, si possible, d'aller chercher les informations aux 4 coins de la base. La conception est en partie dévolue à cet effet.

Cordialement.

[gravia]

encore merci de ton aide.

la liste déroulante de mon sous formulaire "expositions" est bien basée sur une requête, celle-ci :

Code :

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

SELECT [Risques].[N° risque], [Risques].[Intitulé du risque] FROM [Risques];

la colonne affichée est "intitulé du risque" et la colonne liée est "n° risque".
lorsque j'ai saisi le "n° risque", je voudrai que le délai (champ de la table "risques") correspondant à celui-ci, soit placé dans une zone de texte "délai" de mon formulaire principal.
concernant les relations entre mes tables, elles sont définies entre "salariés" et "expositions" (champ "n° salarié"), et entre "expositions" et "risques" (champ "n° risque").

cordialement.

[gravia]

merci pour la tentative avortée.

bel effort, mais j'ai trouvé plus simple.