Intégrer un planning dans votre application Access

Vous pouvez utiliser la propriété ObjectType pour indiquer le type d'objet du planning (Header ou Planning). Texte en lecture/écriture.

Exemple

Le code suivant indique que l'objet obPlanner est de type planning.

obPlanner.ObjectType="Planning"

Vous pouvez utiliser la propriété ParametersSource pour indiquer la table contenant les paramètres du planning. Texte en lecture/écriture.

Exemple

Le code suivant spécifie la table T_Parametres comme table de paramètres du planning.

obPlanner.ParametersSource="T_Parametres"

Vous pouvez utiliser la propriété DataSource pour indiquer la table contenant les données du planning. Texte en lecture/écriture.

Exemple

Le code suivant spécifie la table T_PlanningTache comme table de données du planning.

obPlanner.DataSource="T_PlanningTache"

Si la propriété DataSource contient une chaîne vide, alors le planning n'est relié à aucune source de données.

Vous pouvez utiliser la propriété Row pour définir ou connaître la ligne sélectionnée sur le planning. Entier en lecture/écriture.

Exemple

Le code suivant définit la ligne 3 comme ligne sélectionnée sur le planning.

obPlanner.Row=3

Vous pouvez utiliser la propriété Col pour définir ou connaître la colonne sélectionnée sur le planning. Entier en lecture/écriture.

Exemple

Le code suivant définit la colonne 3 comme colonne sélectionnée sur le planning.

obPlanner.Col=3

Vous pouvez utiliser la propriété Rows pour définir ou connaître le nombre de lignes du planning. Entier en lecture/écriture.

Exemple

Le code suivant définit 30 lignes pour le planning.

obPlanner.Rows=30

Vous pouvez utiliser la propriété Cols pour définir ou connaître le nombre de colonnes du planning. Entier en lecture/écriture.

Exemple

Le code suivant définit 7 colonnes pour le planning.

obPlanner.Cols=7

Vous pouvez utiliser la propriété RowsHeight pour ajuster la hauteur des lignes du planning à des dimensions spécifiques. Réel simple en lecture/écriture.

Exemple

Le code suivant ajuste la hauteur des lignes du planning à 25 pixels.

obPlanner.RowsHeight=25

Vous pouvez utiliser la propriété ColsWidth pour ajuster la largeur des colonnes du planning à des dimensions spécifiques. Réel simple en lecture/écriture.

Exemple

Le code suivant ajuste la largeur des colonnes du planning à 125 pixels.

obPlanner.ColsWidth=125

Utiliser la propriété BackColor pour spécifier la couleur de fond du planning. Long en lecture/écriture.

Exemple

Le code suivant colorie en blanc le fond du planning.

obPlanner.BackColor=vbWhite

Vous pouvez utiliser la propriété GridColor pour spécifier la couleur du quadrillage du planning. Long en lecture/écriture.

Exemple

Le code suivant colorie en noir la grille (les lignes) du planning.

obPlanner.GridColor=vbBlack

Vous pouvez utiliser la propriété FieldsCols pour définir le nombre de colonnes pour les en-têtes de lignes situés à gauche du planning. Entier en lecture/écriture.

Exemple

Le code suivant définit deux colonnes à gauche du planning pour les en-têtes de lignes.

obPlanner.FieldsCols=2

Utiliser la propriété FieldsColsWidth pour ajuster la largeur des colonnes pour les en-têtes de lignes. Réel simple en lecture/écriture.

Exemple

Le code suivant ajuste la largeur des colonnes de gauche du planning (en-têtes de lignes) à 100 pixels.

obPlanner.FieldsColsWidth=100

Vous pouvez utiliser la propriété FieldsBackColor pour spécifier la couleur de fond pour les en-têtes de lignes situés à gauche du planning. Long en lecture/écriture.

Exemple

Le code suivant colorie en gris les colonnes de gauche (en-têtes de lignes) du planning.

obPlanner.FieldsBackColor=vbGrey

Initialise et définit l'image pour qu'elle soit conforme aux dimensions du contrôle image.

Exemple

Le code suivant initialise et définit l'image du planning pour qu'elle soit conforme aux dimensions du contrôle image imgPlanning.

obPlanner.InitImage

Cette méthode redessine le planning d'origine (quadrillage vide).

Extrait de son code

obPlanner.Clear

Cette méthode met à jour le contrôle image en fonction des dernières modifications qui ont été apportées à l'objet associé.

Cette procédure doit être appelée après chaque modification de l'objet obPlanner, instance de la classe clPlanner, afin d'actualiser le contrôle associé.

Exemple

Le code suivant actualise le contrôle image imgPlanning du sous-formulaire SF_Planning et redessine donc le planning sur ce contrôle.

obPlanner.refresh

Dessine un rectangle délimité par les coordonnées de début (Row1,Col1), correspondant à la région en haut à gauche, et les coordonnées de fin (Row2,Col2), correspondant à la région en bas à droite.

Paramètres :

Exemple

Le code suivant dessine un rectangle avec un fond bleu et une bordure noire sur la 1re ligne, de la 1re colonne à la 3e colonne du planning.

obPlanner.DrawRect 1, 1, 1, 3, vbBlue, vbBlack, 1

Cette méthode permet d'écrire du texte dans le rectangle délimité par les coordonnées de début (Row1,Col1), correspondant à la région en haut à gauche, et les coordonnées de fin (Row2,Col2), correspondant à la région en bas à droite.

Exemple

Le code suivant écrit le texte « Dupont » dans le rectangle de coordonnées (1,1,1,3).

obPlanner.DrawText 1, 1, 1, 3, "DUPONT", 12, 0,0 vbBlue

Cette méthode permet d'écrire du texte dans la zone de coordonnées (Row,Col) et situé à gauche sur le planning (en-têtes de lignes).

Exemple

Le code suivant écrit le texte « DWC » dans la zone située à gauche du planning et de coordonnées (1: 1re ligne, 2: 2e colonne).

obPlanner.DrawFieldText 1, 2, "DWC", 12, 0, 0, vbBlue

Identifie le rectangle situé sur un point de coordonnées (X,Y).

Paramètres :

Exemple

Le code suivant renvoie en paramètres les coordonnées du rectangle situé sur le point de coordonnées (X,Y).

Private Sub ImgPlanning_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' on sélectionne la région correspondant à la position cliquée de coordonnées X et Y
    obPlanner.SelectRect CLng(X), CLng(Y)
End Sub

Cette méthode sauvegarde en mémoire l'image du planning.

Elle doit être appelée après avoir dessiné le planning et avant d'exécuter ResetImage.

Exemple

Le code suivant copie en mémoire l'image du planning.

obPlanner.KeepImage

Cette méthode restitue l'image du planning sauvegardée en mémoire.

Elle permet de restituer l'image du planning juste avant de dessiner le contour du rectangle sélectionné.

Exemple

Le code suivant rétablit l'image du planning de la mémoire.

obPlanner.ResetImage

Crée les instances de classes pour les en-têtes de colonnes (obPlannerHeader) et pour le planning (obPlanner), puis paramètre le planning et les en-têtes de colonnes avant de dessiner le planning sur les contrôles images du formulaire.

Private Sub Form_Open(Cancel As Integer)
    'On Error GoTo Err_Form_Open
    
    ' Création des instances de classe
    Set obPlannerHeader = New clPlanner
    Set obPlanner = New clPlanner
        
    ' Paramètres pour l'en-tête du planning
    With obPlannerHeader
        .ObjectType = "Header" ' type d'objet : Header pour en-tête du planning
        .ParametersSource = "T_Parametres" ' on indique la table contenant les paramètres du planning
        .PlannerPersonIdent = Forms!F_Planning!IDPersonne ' on indique l'identifiant de la personne gérant le planning
        .InitImage Me.ImgHeader ' on indique le contrôle image sur lequel on va dessiner l'en-tête du planning
    End With
    
    ' Paramètres pour le planning
    With obPlanner
        .ObjectType = "Planning" ' type d'objet : Planning dans le détail du formulaire
        .HeaderObject = obPlannerHeader ' référence à l'en-tête du planning pour synchroniser les deux objets
        .ParametersSource = "T_Parametres" ' on indique la table contenant les paramètres du planning
        .TitleControl = Forms!F_Planning!Titre ' on indique le contrôle affichant le titre du planning
        .StartDateControl = Forms!F_Planning!txtDateDebut ' on indique le contrôle affichant la date du 1er jour du planning
        .PlannerPersonIdent = Forms!F_Planning!IDPersonne ' on indique l'identifiant de la personne gérant le planning
        .InitImage Me.ImgPlanning ' on indique le contrôle image sur lequel on va dessiner le planning
    End With
    
    obPlanner.Refresh ' on rafraîchit le planning

Exit_Form_Open:
    Exit Sub

Err_Form_Open:
    Set obPlannerHeader = Nothing
    Set obPlanner = Nothing
    MsgBox Err.description
    Resume Exit_Form_Open
End Sub

Sur fermeture du sous-formulaire, on libère les variables publiques obPlannerHeader et obPlanner.

Private Sub Form_Close()
    ' On libère les variables objet
    Set obPlannerHeader = Nothing
    Set obPlanner = Nothing
End Sub

Contrôle sur lequel on va dessiner les en-têtes de colonnes.

Contrôle sur lequel on va dessiner le planning proprement dit.

IV-B-4-a. La procédure évènementielle sur souris appuyée▲

'----------------------------------------------------------------------------------------
' Identifie les coordonnées du rectangle pointé sur le Planning
' et dessine un cadre autour de ce rectangle.
'----------------------------------------------------------------------------------------
Private Sub ImgPlanning_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Err_ImgPlanning_MouseDown
    ' on sélectionne la région correspondant à la position cliquée de coordonnées X et Y
    obPlanner.SelectRect CLng(X), CLng(Y)
Exit_ImgPlanning_MouseDown:
    Exit Sub
Err_ImgPlanning_MouseDown:
    MsgBox Err.description
    Resume Exit_ImgPlanning_MouseDown
End Sub

IV-B-4-b. Procédure évènementielle sur double-clic▲

Private Sub ImgPlanning_DblClick(Cancel As Integer)
    On Error GoTo Err_ImgPlanning_DblClick
    If (obPlanner.Row > 0) And (obPlanner.Col > 0) Then
        ' Si une zone est sélectionnée sur le Planning,
        ' alors on exécute la procédure d'ouverture du formulaire de saisie.
        OuvrirFormSaisieTache obPlanner.Row, obPlanner.Col
    End If
Exit_ImgPlanning_DblClick:
    Exit Sub
Err_ImgPlanning_DblClick:
    MsgBox Err.description
    Resume Exit_ImgPlanning_DblClick
End Sub

Cette valeur est conditionnée par la hauteur maximum de l'image et donc du sous-formulaire SF_Planning, soit 22 inches ou 55,873 cm.

Comme les paramètres du planning sont donnés en pixels, nous allons donc utiliser cette mesure pour le calcul du nombre maximum de lignes.

Par exemple, pour un écran de 17 pouces (1280 × 1024) avec un DPI de 96, 1 inch = 96 pixels, et donc la hauteur maximum du sous-formulaire est de 22 inches = 22*96 pixels = 2112 pixels.

Par conséquent, pour une hauteur de ligne de 25 pixels, on pourra afficher au maximum 2112/25 = 84,48, soit 84 lignes pleines au maximum, et avec une hauteur de ligne de 20 pixels, on pourra afficher sur le planning 2112/20 = 105,6, soit 105 lignes au maximum.

En conclusion, on dispose d'une centaine de lignes au plus pour notre planning, cela nous laisse donc de la marge.

Ce bouton permet de passer au jour suivant et de mettre à jour le planning.

IV-C-1-a. La procédure évènementielle sur clic▲

Private Sub CmdJourSuivant_Click()
' Avance d'un jour sur le Planning.

On Error GoTo Err_CmdJourSuivant_Click
    obPlanner.NextDay ' exécute la méthode de passage au jour suivant
Exit_CmdJourSuivant_Click:
    Exit Sub
Err_CmdJourSuivant_Click:
    MsgBox Err.description
    Resume Exit_CmdJourSuivant_Click
End Sub

Ce bouton permet de passer au jour précédent et de mettre à jour le planning.

IV-C-2-a. La procédure évènementielle sur clic▲

Private Sub CmdJourPrecedent_Click()
' Recule d'un jour sur le Planning.

On Error GoTo Err_CmdJourPrecedent_Click

    obPlanner.PreviousDay ' exécute la méthode de passage au jour précédent
Exit_CmdJourPrecedent_Click:
    Exit Sub
Err_CmdJourPrecedent_Click:
    MsgBox Err.description
    Resume Exit_CmdJourPrecedent_Click
End Sub

Ce contrôle sous-formulaire a pour objet source le formulaire SF_Planning, qui contient le contrôle image imgHeader, pour afficher les en-têtes de colonnes, et le contrôle image imgPlanning, pour afficher le planning et les en-têtes de lignes.