Discussion :

[adri78]

Bonjour, je réalise une BBD sur les formations du personnel, voici ma modélisation:

J'aimerais donc a partir de ce formulaire (fo_employe): ,creer un bouton de commande qui, quand je clik dessus, m'envois vers un formulaire (ca je sais le faire avec VBA c'est pas un probleme) qui mettra tous les DIF (Droit Individuelles a la Formation) effectués par l'employé selectionné avant dans le formulaire fo_employe. Il faudrait donc que ce nouveau formulaire se mette a jour. (c'est la ou ca peche).
Le DIF est caractérisé par une case à cocher dans la table de jonction entre la table session et la table employé...

En gros, j'arrive dans Fo_employe, je clique sur un employe, je peux consulter ses formations effectué mais PAS EN DIF, et ensuite en cliquant sur un bouton, j'accède au formulaire_DIF ou je peux voir ses DIF.

(Je ne vais pas expliquer ce qu'est le DIF mais une formation peut etre effectué en DIF ou pas, c'est ca qui est important à) savoir).

Si vous avez compris ou je voulais en venir , je serais enchanté que vous m'aidiez

merci

[mcdotta]

Hello,


Je crois que j'ai compris : tu veux faire varier la source de ton sous-formulaire de manière à ce qu'il affiche les DIF ou non sur pression du bouton. C'est ça ?

Si c'est ça, c'est simple.

Tu prépares deux requêtes qui peuvent servir de source à ton sous-formulaire. Dans l'une tu mets le critère pour afficher les DIF, dans l'autre Non.
Disons que la première s'appelle qry_Show_DIF et la seconde qry_Show_All.

Dans la source de ton sous-formulaire tu mets qry_Show_All

Au niveau du bouton tu mets quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub cmdBouton_Click()
 
If Me.frmMonSousFormulaire.RecordSource = "qry_Show_All" then
   Me.frmMonSousFormulaire.RecordSource = "qry_Show_Diff"
else
   Me.frmMonSousFormulaire.RecordSource ="qry_Show_All"
endif
 
Me.frmMonSousFormulaire.requery
 
End Sub

Attention, je n'ai pas testé le code. C'est brut de fonderie, sans gestion d'erreur n'y rien.... (Messieurs les modérateurs, soyez gentils....)

Bon courage

[adri78]

C'etait pas ca mon idée mais la tienne me semble bonne lol...

Par contre je comprend pas le "frmmonsousformulaire"...c'est le nom du sous formulaire??