Agenda avec drag and drop

**fclus** · 13/08/2015, 14h31

Bonjour,

Dans un cas bien précis, à l'activation de mon sous-formulaire (SF_Planning) dépendant du formulaire F_Planning, je reçois le message suivant : Variable objet ou variable de bloc With non définie. Je ne reçois ce message que lorsque j'ouvre le formulaire F_Planning à partir du formulaire F_Plan
Pourtant, j'utilise toujours la même technique, on ne peut plus simple ! Je ferme le formulaire parent F_Planning et j'ouvre F_Plan. Ensuite, je ferme F_Plan pour ouvrir F_Planning
Si quelqu'un a une idée, je suis preneur

Merci

**User** · 13/08/2015, 15h38

bonjour,

si ma mémoire est bonne, les 2 sous-formulaires utilisent la m^me variable pour créer l'instance du planning à partir de la classe planning, ce qui provoque le message d'erreur.

Il faudrait fermer le formulaire f_plan, juste avant d'ouvrir f_planning et m^me principe dans le sens f_planning vers f_plan, de façon a n'instancier qu'un objet à la fois.

Cdlt,

**fclus** · 13/08/2015, 16h59

C'est bien ce qui se fait !
La seule modification que j'ai apportée, c'est que l'ouverture de F_Plan se déclenche sur double clic de l'entête de colonne souhaitée de F_Planning
Mais je ne vois aucun rapport avec ce message

**User** · 13/08/2015, 17h10

Il ne faut qu'à aucun moment les 2 formulaire ne soient ouverts en même temps.

Puis-je voir le code utilisé pour l'ouverture ?

Cdlt,

**fclus** · 14/08/2015, 07h24

Voici le code pour ouvrir F_Plan depuis F_Planning :

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
Private Sub Header_DblClick(Cancel As Integer)
 
On Error GoTo Err_Header_DblClick
   If (goHeader.Row = 2) And (goHeader.Col > 0) Then
      OuvrirFormPostIt goHeader.Col
   End If
If (goHeader.Row = 1) And (goHeader.Col > 0) Then
      OuvrirFormJour goHeader.Col
   End If
Exit_Header_DblClick:
    Exit Sub
 
Err_Header_DblClick:
    MsgBox Err.description
    Resume Exit_Header_DblClick
 
End Sub

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
Public Sub OuvrirFormJour(ByVal j As Integer)
 
On Error GoTo Err_OuvrirFormJour
 
Dim DateJ As Date
 
DatePlan = DateDebut + j - 1
 
' ouvre le formulaire " F_Plan"
DoCmd.OpenForm "F_Plan"
Forms!F_Plan!DateD.Value = DatePlan
 
Exit_OuvrirFormJour:
    Exit Sub
 
Err_OuvrirFormJour:
    Set goHeader = Nothing
    Set goPlanning = Nothing
    MsgBox Err.description
    Resume Exit_OuvrirFormJour
 
End Sub

Et le code pour ouvrir F_Planning depuis F_Plan :

Code :

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

1
2
3
4
5
Private Sub CmdPlanningSemaine_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "F_Planning"
 
End Sub

**User** · 14/08/2015, 16h53

Bonjour,

Dans le sens F_Planning vers F_Plan, je ne vois nulle part dans le code où vous fermez le formulaire F_Planning :

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
Public Sub OuvrirFormJour(ByVal j As Integer)
 
On Error GoTo Err_OuvrirFormJour
 
Dim DateJ As Date
 
DatePlan = DateDebut + j - 1
 
' ouvre le formulaire " F_Plan"
DoCmd.OpenForm "F_Plan"
Forms!F_Plan!DateD.Value = DatePlan
 
Exit_OuvrirFormJour:
    Exit Sub
 
Err_OuvrirFormJour:
    Set goHeader = Nothing
    Set goPlanning = Nothing
    MsgBox Err.description
    Resume Exit_OuvrirFormJour
 
End Sub

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
 
Private Sub Header_DblClick(Cancel As Integer)
 
On Error GoTo Err_Header_DblClick
   If (goHeader.Row = 2) And (goHeader.Col > 0) Then
      OuvrirFormPostIt goHeader.Col
   End If
If (goHeader.Row = 1) And (goHeader.Col > 0) Then
      OuvrirFormJour goHeader.Col
   End If
Exit_Header_DblClick:
    Exit Sub
 
Err_Header_DblClick:
    MsgBox Err.description
    Resume Exit_Header_DblClick
 
End Sub

Cdlt,

**fclus** · 15/08/2015, 08h24

Mea Culpa
J'ai copié/collé une procédure qui ne fermait pas F_Planning
Merci encore

**User** · 15/08/2015, 22h12

Bonsoir,

Oui je comprends, on aurait aussi pu prévoir 2 variables séparées pour créer ces objets, mais c'était un peu plus complexe à réaliser.

Cdlt,

**fclus** · 19/08/2015, 15h53

Au cas où ça intéressait quelqu'un, j'ai ajouté des fonctionnalités qui permettent de :
- copier les RV d'une semaine vers une autre
- supprimer des RV pour une période donnée
- switcher les RV entre eux via drag & drop
- plus d'autres petites choses

**User** · 19/08/2015, 20h19

Bonjour,

Envoyé par fclus

Au cas où ça intéressait quelqu'un, j'ai ajouté des fonctionnalités qui permettent de :
- copier les RV d'une semaine vers une autre
- supprimer des RV pour une période donnée
- switcher les RV entre eux via drag & drop
- plus d'autres petites choses

Oui tu peux poster ici si tu le souhaites, le titre est assez explicite.

Cdlt,

**fclus** · 20/08/2015, 13h17

Nouvelle version de My Notebook

**User** · 21/08/2015, 21h04

Envoyé par fclus

Nouvelle version de My Notebook

En effet, beau travail et beau design !

Félicitations

**fclus** · 11/10/2016, 09h52

Je réactualise ce post parce que j'ai identifié un bug sur l'affichage de l'entête de formulaire après un drag and drop ou une modification d'un rv
Si j'affiche la semaine suivante, les dates de l'entête ne changent pas
DateC contient pourtant bien la bonne date à afficher

Dans InitPlanning :

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
For i = 1 To 7
DateC = DateAdd("d", (i - 1), DateDebut)
 
  'If Not (EstWeek(DateC)) Or EstFerie(DateC) Then
      'goHeader.DrawRect 1, i, 1, i, 16772351, vbMagenta, 1
      'goHeader.DrawRect 2, i, 2, i, 16772351, vbMagenta, 1
      'goPlanning.ColorCol i, 16772351
      goHeader.DrawRect 1, i, 1, i, vbWhite, vbMagenta, 1
      goHeader.DrawRect 2, i, 2, i, vbWhite, vbMagenta, 1
      goPlanning.ColorCol i, vbWhite
 
  'ElseIf EstConge(DateC) Then
       'goHeader.DrawRect 1, i, 1, i, 12706047, vbMagenta, 1
       'goHeader.DrawRect 2, i, 2, i, 12706047, vbMagenta, 1
       'goPlanning.ColorCol i, 12706047
 
  'Else ' Sinon colorie les week-end en rouge sur les en-têtes de colonnes.
      'goHeader.DrawRect 1, i, 1, i, -2147483633, vbMagenta, 1
      'goHeader.DrawRect 2, i, 2, i, vbWhite, vbMagenta, 1
  'End If
'==> ICI
goHeader.DrawText 1, i, 1, i, Format(DateC, "ddd dd mmm yyyy"), 12, 1, 1, vbBlack, True
 
 
Next i
 
goHeader.Refresh

Merci d'avance pour votre aide

**User** · 11/10/2016, 12h24

Bonjour,

Il faudrait voir la valeur prise par la variable DateDebut, au début du code de InitPlanning.

En utilisant par exemple un :

Code :

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

debug.print datedebut

Cdlt,

**fclus** · 11/10/2016, 12h50

DateDebut contient bien la bonne date mais l'entête ne change pas pour autant

**User** · 11/10/2016, 14h36

Peux-tu poster ta base que je ragarde ?

A+

**fclus** · 11/10/2016, 14h46

Elle est toujours dispo. Voir post du 20/08/15

**User** · 11/10/2016, 15h48

Envoyé par fclus

Elle est toujours dispo. Voir post du 20/08/15

Je n'arrive pas à reproduire l'erreur sur cette version :

Si je modifie un rdv ou que je le déplace sur le planning, puis que j'appuie sur la semaine suivante, les jours suivants s'affichent bien dans les en-têtes