Discussion :

[azur123]

Bonjour
j'aimerais savoir comment faire pour afficher un sous formulaire en fonction de la valeur d'un champ , pour etre plus concret , je vais vous donner un exemple , j'ai 3 sous formulaire , entreprise, labo et independant et j'aimerais que lorsque dans le champ statut utilisateur j'insere entreprise par exemple il m'affiche le sous formulaire vierge concernant entreprise,

[marot_r]

Une astuce consite à utiliser un objet Onglet qui comporte 3 pages avec chacune un sous formualire et rendre la page visible en fontion du choix. Personnellement c'est ma solution préférée car elle permet de tester le formulaire à la main indépendement du code.

L'autre solution consiste à changer le source de l'objet Sous-Formulaire.

un truc du genre, sur l'événement Après MAJ de ton champ de sélection.

Avec les onglets :

Code :

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

1
2
3
4
5
6
7
select case me.TonChampSelection
  case "Entreprise":me.PageEntreprise.Visible
  case "Labo":me.PageLabo.Visible
  case "Aute":me.PageAutre.Visible
  case else
     error 5 'Cas impossible
end select

Avec la source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim source as string
 
select case me.TonChampSelection
  case "Entreprise":source="NomTonSousFormEntreprise"
  case "Labo":source="NomTonSousFormLabo"  case "Aute":source="NomTonSousFormAutre"
  case else
     error 5 'Cas impossible
end select
 
me.TonObjetSousForm.SourceObject = Source
 
me.refresh 'À vérifier si nécessaire

A+