Bonjour à tous,
Je suis en train de créer un système de gestion des tâches pour mon équipe de travail au bureau. Le but de ce système est de pouvoir assurer un suivi de chacune de nos tâches. Pour ce faire, je désire créer un petit programme en access pour stocker l'ensemble de nos tâches.
Au départ, lors du lancement du fichier .mdb, j'ai un formulaire qui s'ouvre automatiquement:
J'ai donc 3 choix qui s'offrent à l'utilisateur: "Ajouter une tâche", "ouvrir un état" et "indiquer si une tâche est complétée". Pour chacun de ces choix, un formulaire distinct s'ouvre selon le désir de l'utilisateur.
Le formulaire "Ajouter un tâche" permet à l'utilisateur d'entrer sa tâche: Type de tâche, date de saisie, nom du client, date d'échéance, commentaires, etc... Toutes ces informations sont stockées dans une table nommée TBL_Activite.
Les formulaires "Ajouter une tâche" et "Ouvrir un état" fonctionnent assez bien, malgré quelques bugs et petits détails qui me restent à régler. Mon problème réside avec le 3ème choix, soit "indiquer si une tâche est complétée". Voici le formulaire qui s'affiche en appuyant sur le 3ème bouton:
Par ce formulaire, je voudrais que l'utilisateur puisse choisir un nom dans la liste déroulante (dans ce cas-ci, le choix est David) et générer la liste des tâches qui est liée à cette personne. La liste des noms est dans une table nommée TBL_Personnel.
La "liste des tâches" affiche la requête que j'ai nommée REQ_Taches. La requete est basée sur la table TBL_Activite (voir plus haut. Cette requête fonctionne bien mais je ne suis pas en mesure d'afficher le résultat dans ma zone de liste en fonction de la personne que je sélectionne. Je dois saisir un numéro de 1 à 6 (J'ai 6 employés à gérer, donc la clé primaire varie de 1 à 6) dans une fenêtre qui apparait pour saisir le paramètre voulu. Pour vous le montrer, j'ai créé le bouton "Exécuter requête" qui n'apparaitra pas dans l'application finale. Voici la fenêtre en question:
Finalement, je vous montre le code qui s'exécute après avoir appuyé sur le bouton "générer la liste des tâches":
Comment faire pour donner un paramètre "Prénom" à ma requête automatiquement et comment faire afficher le résultat de ma requête dans la liste déroulante?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 Private Sub Commande_GenererListeTaches_Click() 'Dim stDocName As String 'Définition des variables Dim Prenom As String 'Nom d'employé en texte selon la table TBL_PersonnelDS Dim BDD As DAO.Database Dim rec As DAO.Recordset Dim rst As DAO.Recordset Dim Requete As QueryDef Dim IDPrenom As String 'Numéro d'employé selon la table TBL_PersonnelDS Dim Modification_ListeTaches As ListBox Dim EmployeDS As String Set BDD = CurrentDb() 'Définition de la base de données courante Set rec = BDD.OpenRecordset("TBL_PersonnelDS", dbOpenTable) 'Définition de la table à ouvrir Set Requete = BDD.QueryDefs("REQ_Taches") 'Définition de la requête à lancer 'Me.Requery Set MenuDeroulTaches = Forms!ModifierComplete.Modification_ListeTaches Prenom = Me!Modification_ListeNoms.Value 'On va chercher le nom sélectionné dans le menu déroulant IDPrenom = DLookup("[Numero]", "TBL_PersonnelDS", "[EmployeDS]=" & "'" & Prenom & "'") MsgBox (IDPrenom) Requete.Parameters("IDPrenom") = IDPrenom Set LancerRequete = Requete.OpenRecordset() End Sub
Merci pour votre précieuse aide et bonne journée!
David
Partager