Discussion :

[Tofalu]

Ce topic n'a pas vocation à recevoir des questions technique mais les avis et les remarques sur le document initial.

Merci de poser votre question dans un nouveau message

[allsite]

Bonjour je suis tres interréssé, j ai lu votre article, mais je n'arrive pas à ouvrir l'application.
Merci de m'indiquer comment faire

[User]

Bonjour,

Si vous n'arrivez pas à ouvrir l'une des bases mises à disposition il est probable que votre version d'Access d'accepte pas le format du fichier.

Exemple :

Vous essayez d'ouvrir un fichier au format 2007 avec une version 2003.

Cdt,
Denis

[mej07]

Bonjour Denis,
je trouve ce tuto très captivant et super éducatif.
Tout y est expliqué de la plus simple des manières.
Cependant j'ai un léger problème avec le formulaire F-Calendrier.
j'arrive pas à avoir la même architecture. quand je le crée il me sort un formulaire normal.
si tu peux détailler ce serait très cool. merci d'avance.

[User]

Bonjour,

Ce topic n'étant pas destiné à rentrer dans le détail de l'application jointe, je vous invite à créer une discussion à cet effet où vous exposez plus précisément votre demande avec pourquoi pas un exemple.

Cdlt,
Denis

[McIntosh34]

Bonjour,

Je suis très intéressé par cette gestion, seulement, je n'y connais rien sur access. J'ai réalisé les tables et les requêtes, mais par contre pour le formulaire, je comprend pas comment il faut faire.

Pouvez vous m'expliquer ?

Merci de votre compréhension

[julielu974]

Bonjour,

Tout d'abord, merci au concepteur de ce tuto! Il est génial!
Je travaille sur une base de données qui permet de gérer des cours de musique. Les cours pour chaque élève sont donc répétitifs chaque semaine.
Pouvez-vous m'indiquer comment insérer une option permettant de choisir une période donnée pendant laquelle les rendez vous des cours seront répétés chaque semaine.
Merci!!!
Julie

[Malick]

Bonjour,
Pouvez-vous m'indiquer comment insérer une option permettant de choisir une période donnée pendant laquelle les rendez vous des cours seront répétés chaque semaine.
Julie

Par rapport à votre question, je pense qu'il vous faudra créer une nouvelle discussion avec le détail de votre problème, cela comme User l'a précisé dans son précédant post :

Bonjour,

Ce topic n'étant pas destiné à rentrer dans le détail de l'application jointe, je vous invite à créer une discussion à cet effet où vous exposez plus précisément votre demande avec pourquoi pas un exemple.

Cdlt,
Denis

Cordialement,
Malick

[harpyopsis]

Bonsoir Mr Hulo !

Tout comme Allsite ci-dessus, je n'arrive pas à ouvrir le fichier accdb, avec Access 2007, même en en simplifiant le nom ('Calendrier.accdb au lieu de 'gestion-calendrier V1.1.accdb').

Format non reconnu...

Une idée ???

J'aimerais voir s'il est possible de restituer 7 colonnes au lieu de 6 pour ne pas fusionner les samedi et dimanche !

Merci !

phil

[User]

Bonjour,

Cela peut se produire sur des versions 2007. J'ai ajouté un fichier mdb dans le fichier zip.

Je ne peux pas faire plus.

Cdlt,

[harpyopsis]

OK merci Monsieur Hulo !

Le fichier mdb s'ouvre parfaitement !

[Braba]

Bonjour,

Merci beaucoup pour ce planning et cette base.
Elle est vraiment très sympa, fonctionnelle et très bien faite!

J'ai une petite question concernant le filtre du calendrier.

Pour l'instant, il est filtré sur base de la table "T_filtreCalendrier".
Je souhaiterais ne pas filtrer le calendrier à l'ouverture du formulaire (que toutes les tâches apparaissent) et, si besoin, de le filtrer.

Est-ce que c'est possible/faisable à votre avis?

Merci d'avance

[harpyopsis]

Bonjour les Nerviens !

Bien-sûr que c'est possible ! Moi j'ai du filtrer sur (1) les praticiens de garde (2) les clients (3) l'objet des rendez-vous.

Il suffit de mettre tes filtres dans des combos au dessus du calendrier, et en SQL dans le module de MAJ du calendrier... Et tu peux même mettre tes derniers filtres en mémoire, de manière à toujours rouvrir sur la dernière sélection.

Bon courage !

[Braba]

Bonjour,

Merci pour votre réponse.
Mon problème n'est pas d'ajouter des filtres.
Je souhaite modifier la condition "Where" du module de manière à spécifier que si je ne choisis rien dans ma liste déroulante, il doit m'afficher toutes les personnes.
Ou bien mettre dans cette liste déroulante une fonction "tous" qui me permet de ne pas filtrer le calendrier.

Voici la fonction initiale

Code sql :

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

1
2
3
"WHERE (T_Calendrier.IdFiltre like '" & IIf(Forms!F_Calendrier!cmbFiltreCalendrier = 0, "*", Forms!F_Calendrier!cmbFiltreCalendrier) & "') 
 
and Month(T_Calendrier.DateCalendrier) = " & nbMois & " and Year(T_Calendrier.DateCalendrier) = " & nbAnnee & _

Je voudrais avoir quelque chose du style:

Code sql :

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

1
2
3
"WHERE (T_Calendrier.IdFiltre like '" & IIf(Forms!F_calendrier!cmbFiltreCalendrier = "Tous"; Ne pas filtrer ; iif(Forms!F_Calendrier!cmbFiltreCalendrier = 0, , Forms!F_Calendrier!cmbFiltreCalendrier)) & "') 
 
and Month(T_Calendrier.DateCalendrier) = " & nbMois & " and Year(T_Calendrier.DateCalendrier) = " & nbAnnee & _

Ça ne doit pas être super compliqué à faire mais je galère...

Merci!

[harpyopsis]

Bonsoir la Belgique !

Je n'ai plus le code original de Mr Hulo (tout à fait remarquable), que j'ai du adapter à mes données. En particulier j'ai supprimé la table "T_Calendrier", car mes conditions viennent d'autres tables.

Dans un cas comme ça, je fais un petit bout de chaine qui s'insère dans la chaine SQL, et qui sera vide si la Combo est (vide, nulle ou =0) ou qui sera " And blablabla = whatever " si une valeur est sélectionnée dans la combo. On peut faire autant de petits bouts de chaine qu'il y a besoin. Attention aux espaces, ne pas les oublier sinon ça colle !

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
 
        pMonth = YrForm.CboMonth.Value
        pYear = YrForm.CboYear.Value
 
        'Chaines vides au départ
        Dim MyPersonCond As String, MyClientCond As String, MyObjectCond As String
            MyPersonCond = ""
            MyClientCond = ""
            MyObjectCond = ""
 
        'Chaines remplies si des valeurs sont sélectionnées dans l'une ou l'autre Combo - 
        'ici cas lorsqu'un praticien / Personalia est sélectionné. Attention aux valeurs nulles !
            If YrForm.CboPersonalia.Value <> 0 Then MyPersonCond = " And RDV.PersonaliaID = " & YrForm.CboPersonalia.Value
 
        'la chaine SQL au complet :
        stSQL = "SELECT RDVID, RDVTime, RDVTimeEnd, " & _
                    "IIf(Not IsNull(RDV.[PersonaliaID]),T_Personalia.PersonaliaNickName,'Other') As ExprPersonalia, " & _
                    "RDVDate, RDVWithText, RDVOK " & _
                "FROM RDV LEFT JOIN blablabla " & _
                "WHERE Month(RDV.RDVDate) = " & pMonth & " and Year(RDV.RDVDate) = " & pYear & " " & _
                    MyPersonCond & _
                    MyClientCond & _
                    MyObjectCond & _
                " ORDER BY RDVDate, RDV.RDVTime;"
        Set rsCal = db.OpenRecordset(stSQL, dbOpenSnapshot)
 
    For i = 1 To 42 
    'blablabla

C'est plus simple que la fonction iif...

Bon courage !

[User]

Bonsoir,

Réflexion faites pour ajouter [Tous] en haut de la liste il faut mettre ce code sql sur la propriété contenu de la liste déroulante et ne rien changer au code d'origine :

Code sql :

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

SELECT IdFiltre, [NomFiltre] FROM (SELECT B.NomFiltre, IdFiltre FROM T_FiltreCalendrier AS B Union  SELECT TOP 1 "[Tous]", 0 FROM T_FiltreCalendrier AS C)  AS A ORDER BY [IdFiltre], [NomFiltre];

Si votre table servant de filtre se nomme T_Personne, avec les champs IdPersonne et nomPersonne, alors mettre à la place :

Code sql :

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

SELECT IdPersonne, [NomPersonne] FROM (SELECT B.NomPersonne, IdPersonne FROM T_Personne AS B Union  SELECT TOP 1 "[Tous]", 0 FROM T_FiltreCalendrier AS C)  AS A ORDER BY [IdPersonne], [NomPersonne];

Je me suis basé sur la faq.

Cdlt,

[Braba]

Merci pour votre aide.
Voici le code qui fonctionne chez moi.

Code :

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

1
2
3
4
5
stSQL = "SELECT IdCalendrier, HeureDebut, HeureFin, " & _
                "IIf(Not IsNull(T_Calendrier.[IdPersonne]),T_FiltreCalendrier.NomFiltre & '- Lot ' & T_Calendrier.idPersonne,'Autre') As Rdv, DateCalendrier " & _
            "FROM T_Calendrier LEFT JOIN T_FiltreCalendrier ON T_Calendrier.IdFiltre = T_FiltreCalendrier.IdFiltre " & _
"WHERE (T_Calendrier.IdFiltre like '" & IIf(Forms!F_Calendrier!cmbFiltreCalendrier =10, "*" , Forms!F_Calendrier!cmbFiltreCalendrier) & "') and Month(T_Calendrier.DateCalendrier) = " & nbMois & " and Year(T_Calendrier.DateCalendrier) = " & nbAnnee & _
            " ORDER BY DateCalendrier, T_Calendrier.IDfiltre, T_Calendrier.IDPersonne;"

[User]

Entendu,

Si cela vous intéresse, j'ai mis à jour la pièce jointe de l'article avec une version 1.2 avec l'option [Tous] sur la liste.

Cdlt,

[harpyopsis]

Super ! UNION Query dans la combobox est très élégant aussi ! Attention lorsque l'utilisateur presse Delete, la combo devient "null". Tester comment se comportera le filtre !

[User]

Merci à vous