Discussion :

[sopcc]

Bonjour,

Je voudrais bien lié deux champs dans un sous-formulaire:je vais essayé d'être le plus explicite possible

j'ai un formulaire nommé "Saisie adhérents" avec un sous formulaire nommé "Sous-Formulaire adhésion 2006-2007" lié par le code adhérent,

dans mon sous-formulaire j'ai les information de ma table
[Tbl adhésion 2006-2007]
avec les champs [Adhésion] et [Tarifs adhésion]en liste de choix issus de [Tbl type adhésion],

j'ai renseigné au préalable les différents types d'adhésion avec leurs tarifs,

je souhaiterais lorsque je saisis le type d'adhésion dans ma liste déroulante du sous-formulaire, le tarif s'affiche automatiquement dans le champ tarif

quel code dois-je mettre et ou?

Merci d'avance pour votre aide!

[@rkane]

pour faire simple : crees une lise de choix modifiable et selectionnes le choix 3 du menu assistant creation , ensuite tu selectionnes le champ typeAdhesion pour remplir ta liste.
tu places le champ TarifAdhesion sur ton form et quand tu choisis un typeAdhesion dans ta liste tu affiches son tarif.
tu dois trouver ce code derriere ta liste modifiable :

Code :

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

1
2
3
4
5
6
7
8
Private Sub MaListeModifiable_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N°] = " & Str(Nz(Me![MaListeModifiable], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

bon courage

[sopcc]

Salut Ptkppr,

Ta solution ne marche pas pour mon sous formulaire,en effet dans ma liste de choix apparait toutes les adhésions souscrites par les adhérents et non pas seulement les 5 types d'adhésions et lorsque que je sélectionne un champ dans ma liste modifiable, elle me renvoi à un code d'adhérent différent de celui que je saisissais, par contre pour un simple formulaire comportant seulement les champs [adhésions] et [tarifs], ta solution est bonne

[Chrysostome]

Salut,
il faut mettre en VBA que le champ "Tarif" du formulaire principal doit être égal à
"Tarifs adhésion", ça doit donner quelques choses comme ça:

Private Sub type d'adhésion_AfterUpdate()

Me.parent![Tarif]= [Tarifs adhésion]

End Sub

Mais la solution la plus simple est de faire une zone de liste (déroulante ou pas) basée sur ta table avec tes 2 champs [Adhésion] et [Tarifs adhésion] puis

Private Sub Liste_type d'adhésion_AfterUpdate()

Me.parent![Tarif]= Liste_type d'adhésion.Column (1)

End Sub

Voilà.