Discussion :

[rns2008]

Bonjour,
cela fait pas mal de temps que je n'ai plus joué avec access et je me galère un peu pour insérer dans une table une valeur issue d'une autre table.
Je m'explique : J'ai des adhérents qui prennent des cotisations. Le prix de ces cotisations sont dans une table de référence. et c'est cette valeur de référence que je voudrais insérer dans ma table lorsque je saisis le code cotisation pour mon adhérent.

D'un point de vue modélisation, j'ai 2 tables
1 table de référence cotisation "ref_cotis" avec un code cotis (ma clé) et un montant associé.
et une table adhésion, ma clé adhérent, un code cotisation (lié à la table de référence) et un montant.
Dans ma table adhésion, je peux avoir plusieurs codes cotisation.

Dans mon formulaire adhérent, je voudrais que lorsque je saisis le code cotis de ma table adhérent, ça me remplisse automatiquement le montant qui est défini dans ma table de référence.

Avez vous une idée svp ?

Merci par avance pour votre aide !

Perrine

[Bevan]

Bonsoir,
Dans ton formulaire adhérent tu mets un controle texte qui pointe sur le champ cotisation, protégé en saisie.
Sur le onchange du champ catégorie tu charges ce champ avec un dlookup sur la table de référence.

qqchose comme

Code :

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

1
2
3
Private Sub CodeCotis_AfterUpdate()
Me.Cotisation.Value = DLookup("Montant", "Ref_Cotis", "Id = '" & Me.CodeCotis & "'")
End Sub

Tu peux aussi charger le montant dans la listbox de CodeCotis en colonne 2 (ou 3 si tu as déjà le libellé) et le récupérer dedans par

Code :

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

1
2
3
Private Sub CodeCotis_AfterUpdate()
Me.Cotisation.Value = Me.CodeCotis.Column(, 1) ' la première colonne est la 0
End Sub

[rns2008]

bonjour, et merci pour ta réponse.
j'ai du mieux ... mais pas tout à fait. En fait, j'ai le 1er enregistrement de ma table qui s'affiche tout le temps, quel que soit le code cotis que je choisis.
Voici ce que j'ai mis :

Code :

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

Me.MONTANT_DU.Value = DLookup("MONTANT","REF_COTIS",Me.CODE_COTIS)

à quoi doit correspondre le id auquel tu fais référence ?

Perrine

[Invité]

Bonjour

Regardes le code que t'as mit Bevan, il faut dans ton instruction DLookup, que tu dises sur quel champ est ton critère.

Pour des informations sur la syntaxe des fonctions de domaine n'hésites pas à consulter l'aide, ou un article (regardes mes articles dans ma signature sur mon hébergement).

Starec

[rns2008]

Encore moi, et je ne m'en sors toujours pas ..
j'ai mis ceci :

Code :

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

Me.MONTANT_DU.Value = DLookup("MONTANT","REF_COTIS","CODE_COTIS = '" & Me.CODE_COTIS & "'")

Les champs de ma table REF_COTIS sont
CODE COTIS (pour la clé (avec l'espace))
MONTANT (pour le montant !)
et le lien dans la table que je veux mettre à jour s'appelle CODE COTIS aussi.

J'ai toujours le 1er enregistrement qui s'affiche. un probleme avec mon champ qui contient un espace peut etre ?

Merci !

[Bevan]

Bonsoir

Access remplace gentiment (ou sauvagement suivant l'diée qu'on s'en fait) l'espace par un underscore pour le champ de formulaire, mais pas dans la base !
Tu dois donc garder ton nom original et comme il est -justement- trop original le mettre entre [].
Donc :

Code :

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

Me.MONTANT_DU.Value = DLookup("MONTANT","REF_COTIS","[CODE COTIS] = '" & Me.CODE_COTIS & "'")

Et B..... de M...., promets moi d'arréter d'utiliser des noms de champs ou de contrôle à la C.. !

[rns2008]

YIHA !!!
ça marche
merci merci merci et encore merci.
heu .. c'est pas moi qui ait construit la base à l'origine. Mais je me le note en gras police 28 pour la suite !!

Perrine