calendrier et ss-formulaire (suite)

**Alexandre Sahli** · 15/06/2006, 08h59

donc je reprend la suite de la discussion ( je n'arrive plus à ouvrir l'autre)

j'ai un formulaire qui se présente de la façon suivante pour insérer la date.

dans ce formulaire j'ai les codes suivants pour les différents contrôles:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Compare Database
Option Explicit
 
Public Property Let CalDate(datDate As Date)
    Me!ocxCal = datDate
End Property
 
Public Property Get CalDate() As Date
    CalDate = Me!ocxCal
End Property
 
Private Sub cmdCancel_Click()
    DoCmd.Close acForm, Me.Name
End Sub
 
Private Sub cmdNextMonth_Click()
    Me!ocxCal.NextMonth
    Me.Repaint
End Sub
 
Private Sub cmdNextYear_Click()
    Me!ocxCal.NextYear
    Me.Repaint
End Sub
 
Private Sub cmdOK_Click()
    Me.Visible = False
End Sub
 
Private Sub cmdPrevMonth_Click()
    Me!ocxCal.PreviousMonth
    Me.Repaint
End Sub
 
Private Sub cmdPrevYear_Click()
    Me!ocxCal.PreviousYear
    Me.Repaint
End Sub
 
Private Sub cmdToday_Click()
    Me!ocxCal.Today
End Sub
 
Private Sub Form_Load()
    If Not IsNull(Me.OpenArgs) Then
        Me.CalDate = Me.OpenArgs
    End If
End Sub
 
Private Sub ocxCal_DblClick()
    Call cmdOK_Click
End Sub

Le contrôle calendrier est un contrôle active x qui est normalement dans access.

**guenfood** · 15/06/2006, 09h12

Je rebondis sur ton l'ancien post, où tu parles d'ocx.

Personellement j'ai utiliser la solution avec ocx.

que j'appelle

Code :

Dim ctlDate As TextBox
Dim rs As Object
Dim varReturn As Variant

Set ctlDate = Me![DateTravail]

' appel de la fonction qui ouvre le formulaire pop concenant le contrôle calendrier
varReturn = acbGetDate(ctlDate.Value)

Où mets tu ce code ?

Et celui-ci ? (module, sur évènement particulier???)

Fonction pour ouvrir le formulaire pop avec le calendrier

Code :

Private Function IsOpen(strForm As String)
IsOpen = (SysCmd(acSysCmdGetObjectState, acForm, strForm) > 0)
End Function

Public Function acbGetDate(varDate As Variant) As Variant

Const acbcCalForm = "Frm_PopupCal"

' Ouvre le formulaire calendrier en mode boite de dialogue
' en lui passant la date courante à l'aide d'OpenArgs
DoCmd.OpenForm acbcCalForm, WindowMode:=acDialog, _
OpenArgs:=Nz(varDate)

' Vérifie si le formulaire est ouvert; si c'est le cas, retourne
' la date sélectionnée dans le contrôle calendrier et ferme le
' formulaire calendrier automatique et repasse la nouvelle date
' au contrôle. Autrement, renvoie simplement la valeur null.
If IsOpen(acbcCalForm) Then
acbGetDate = Forms(acbcCalForm).CalDate
DoCmd.Close acForm, acbcCalForm
Else
acbGetDate = Null
End If
End Function

Merci par avance.

**Alexandre Sahli** · 15/06/2006, 09h45

le premier code je le mets dans le formulaire qui doit recevoir la date

le 2ème code je le mets dans un module ( en fait il y a 2 fonctions )

**guenfood** · 15/06/2006, 10h34

Ok pour le deuxième code dans un module.

Mais pour le premier, tu le mets sur un évènement d'une Textbox ou dans un évènement du formulaire ?

**Alexandre Sahli** · 15/06/2006, 11h24

pour le 1er je mets un bouton qui permet d'appeler ce formulaire.

Mais je pense que tu pourrais très bien le mettre sur l'événement entrée de la date à saisir pour autant que veuille toujour passer par le formulaire de saisie de la date.

**guenfood** · 15/06/2006, 11h40

Bon tout fonctionne nickel, sauf que.... le formulaire calendrier reste ouvert et que la date n'est pas reportée dans la textbox

**Alexandre Sahli** · 15/06/2006, 15h10

est-ce que tu as paramètré ton formulaire Pop up comme le mien?

En fait il ne referme pas le formulaire pop up mais le rend invisible pour aller rechercher la valeur de la date dans ce formulaire et la transmettre à la fonction.
Tu verras le code dans la longue liste sur le bouton cmdOk

**guenfood** · 15/06/2006, 15h37

J'ai rentré le code de ton bouton cmdOk sur l'évènement click de mon bouton Ok, mais lorsque je l'exécute, j'ai le message d'erreur "Erreur '2465'". avec le code :

Code :

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

acbGetDate = Forms(acbcCalForm).CalDate

qui est surligné.

**Alexandre Sahli** · 15/06/2006, 15h57

Il faut que tu m'expliques vraiment dans le détail de ce que tu fais. Car le code

acbGetDate = Forms(acbcCalForm).CalDate

ne dois pas être sur le bouton ok

Tu dois avoir un formulaire calendrier comme tu l'as dis mais il faut que tu m'explique comment il est et ce que tu fais avec

**guenfood** · 15/06/2006, 16h07

Alors dans le détail, j'ai un formulaire FCalendrier sur lequel j'ai le controle ActiveX qui a pour nom Calendar3 qui a pour classe objet MSCAL.Calendar.7.

Ensuite j'ai mon formulaire, qui s'ouvre dans mon sous-formulaire indépendant, dans lequel j'ai une textbox, sur laquelle, lorsque je clique j'ai donc le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Date_Demande_Click()
Dim ctlDate As TextBox
Dim rs As Object
Dim varReturn As Variant
 
Set ctlDate = Me![Date_Demande]
 
 
' appel de la fonction qui ouvre le formulaire pop concenant le contrôle calendrier
varReturn = acbGetDate(ctlDate.Value)
 
 
End Sub

J'ai donc mon formulaire FCalendrier qui s'affiche.
Maintenant, lorsque je choisis ma date, comment faire pour que lorsqu'elle est choisit, elle s'incrémente dans le contrôle qui est actif (ici, Date_Demande) ?

Sachant que j'ai créé un module avec pour code :

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
 
Option Compare Database
 
Private Function IsOpen(strForm As String)
IsOpen = (SysCmd(acSysCmdGetObjectState, acForm, strForm) > 0)
End Function
 
Public Function acbGetDate(varDate As Variant) As Variant
 
Const acbcCalForm = "FCalendrier"
 
' Ouvre le formulaire calendrier en mode boite de dialogue
' en lui passant la date courante à l'aide d'OpenArgs
DoCmd.OpenForm acbcCalForm, WindowMode:=acDialog, _
OpenArgs:=Nz(varDate)
 
' Vérifie si le formulaire est ouvert; si c'est le cas, retourne
' la date sélectionnée dans le contrôle calendrier et ferme le
' formulaire calendrier automatique et repasse la nouvelle date
' au contrôle. Autrement, renvoie simplement la valeur null.
If IsOpen(acbcCalForm) Then
acbGetDate = Forms(acbcCalForm).CalDate
DoCmd.Close acForm, acbcCalForm
Else
acbGetDate = Null
End If
End Function

**Alexandre Sahli** · 15/06/2006, 17h21

ok

Donc sur ton formulaire
FCalendrier tu dois avoir un bouton "OK" ou "Annule"

sur le bouton Ok tu dois avoir le code suivant:
rend ton formulaire invisible et continue dans la fonction
Il me semble indispensable que ton formulaire soit une fenêtre "modale"

Code :

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

1
2
 
    Me.Visible = False

et sur le bouton annule

Code :

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

1
2
 
DoCmd.Close acForm, Me.Name

dans le code du formulaire tu dois aussi avoir le code suivant:

Code :

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

1
2
3
4
5
6
7
8
 
Public Property Let CalDate(datDate As Date)
    Me!ocxCal = datDate
End Property
 
Public Property Get CalDate() As Date
    CalDate = Me!ocxCal
End Property

ou Me!ocxCal est le nom du contrôle ocx (active x) que tu as

sur mon formulaire j'ai "MSCAL.Calendar.9" le CalDate tu dois l'avoir lorsque tu tape dans le Vba "me.c" c'est les nom de la classe calendrier
Sur l'ouverture du formulaire si tu désires avoir la date que tu as il te faut mettre le code:

Code :

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

1
2
3
4
 
    If Not IsNull(Me.OpenArgs) Then
        Me.CalDate = Me.OpenArgs
    End If

voilà j'espère bien que çà va t'aider un bout voir le tout
A+

**guenfood** · 15/06/2006, 21h31

Merci pour ta réponse.
Je teste ca demain au boulot, car à la maison j'ai Access 2007, et avec tous les codes saisis, lorsque je clique sur ma textbox, j'ai le formulaire calendrier qui s'affiche.
Quand je choisis la date, et que je clique sur OK, le formulaire se ferme, et la date n'est pas reprise dans la textbox, mais .... j'ai une image représentant un calendrier qui s'affiche à côté de ma textbox.
Quand je clique sur cette image, j'ai un autre calendrier qui s'affiche, et là, la date choisie s'affiche bien dans ma textbox.

Je revois ca demain car il doit y avoir incompatibilité entre des références d'access 2002 et de 2007.

Je te tiens au courant. En tout cas, merci.

**guenfood** · 16/06/2006, 09h08

Bon, on avance.

Désormais, j'ai le message d'erreur, une fois que je clique sur le bouton OK de mon formulaire Calendrier "Erreur d'exécution '2101' Le paramètre entré n'est pas valide pour cette propriété".

Et j'ai le code suivant surligné en jaune.

Code :

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

acbGetDate = Forms(acbcCalForm).CalDate

acbcCalForm = "FCalendrier", mais acbGetDate = Vide lorsque je passe le curseur de la souris sur les valeurs.

**guenfood** · 16/06/2006, 11h40

Je ne comprends plus rien.

Le code est correctement inséré dans le module, idem pour les boutons du formulaire calendrier.

Le hic, c'est toujours au moment où la date du calendrier doit se reporter dans le contrôle de mon formulaire.

Ce maudit message d'erreur '2101'.

**Alexandre Sahli** · 16/06/2006, 15h47

pour cela je te propose de tester la valeur de "caldate"
c'est en fait la valeur de la propriété du formulaire.
il faudrait la tester lorsque tu cliques sur ok car tu devrais avoir une date.

As-tu bien mis dans ton formulaire calendrier les deux fonctions

Public property get CalDate() as date et l'autre plublic property let CalDate(...)

**guenfood** · 16/06/2006, 16h19

Je n'ai aucune valeur sur CalDate.

Pourtant j'ai bien

Code :

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

1
2
3
4
5
6
7
Public Property Let CalDate(datDate As Date)
    Me!ICalendrierX5 = datDate
    End Property
 
Public Property Get CalDate() As Date
    CalDate = Me!ICalendrierX5
End Property

sur mon formulaire FCalendrier ainsi que

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
        Me.CalDate = Me.OpenArgs
    End If
End Sub

sur l'évènement ouverture du même formulaire.

Ensuite j'ai mon module avec

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
Option Compare Database
 
Private Function IsOpen(strForm As String)
IsOpen = (SysCmd(acSysCmdGetObjectState, acForm, strForm) > 0)
End Function
 
Public Function acbGetDate(varDate As Variant) As Variant
 
Const acbcCalForm = "FCalendrier"
 
' Ouvre le formulaire calendrier en mode boite de dialogue
' en lui passant la date courante à l'aide d'OpenArgs
DoCmd.OpenForm acbcCalForm, WindowMode:=acDialog, _
OpenArgs:=Nz(varDate)
 
' Vérifie si le formulaire est ouvert; si c'est le cas, retourne
' la date sélectionnée dans le contrôle calendrier et ferme le
' formulaire calendrier automatique et repasse la nouvelle date
' au contrôle. Autrement, renvoie simplement la valeur null.
If IsOpen(acbcCalForm) Then
acbGetDate = Forms(acbcCalForm).CalDate
DoCmd.Close acForm, acbcCalForm
Else
acbGetDate = Null
End If
End Function

Enfin, j'ai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Date_Demande_Click()
Dim ctlDate As TextBox
Dim rs As Object
Dim varReturn As Variant
 
Set ctlDate = Me![Date_Demande]
 
 
' appel de la fonction qui ouvre le formulaire pop concenant le contrôle calendrier
varReturn = acbGetDate(ctlDate.Value)
 
 
End Sub

sur l'évènement sur clic de mon contrôle pour lequel la date doit être renseignée.

J'oubliais le code

Code :

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

1
2
3
Private Sub OK_Click()
Me.Visible = False
End Sub

sur le bouton Ok de mon formulaire calendrier.

**Alexandre Sahli** · 16/06/2006, 17h33

lors de l'ouverture de ton formulaire calendrier y a-t-il une date dans openargs?

**guenfood** · 16/06/2006, 17h55

Impossible de savoir.

J'ai que le module qui s'affiche.
Si j'ouvre le code du formulaire, il n'y a rien quand je passe la souris au dessus des valeurs comme OpenArgs.

**Alexandre Sahli** · 19/06/2006, 08h19

Donc s'il n'y a pas de date c'est que dans le champs que tu veux inscrire il n'y a pas de date dans ton formulaire.
Donc où tu veux rentrer ta date tu mets le code:

Code :

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

1
2
3
4
5
6
7
Dim varReturn As Variant
 
If isnull(Me![Date_Demande]) then
   Me![Date_Demande]= date()
end if
 
Set ctlDate = Me![Date_Demande]

**guenfood** · 19/06/2006, 10h07

Ok, là ou je dois rentrer le code que tu me donnes, c'est là où j'ai déjà
[coce]Private Sub Date_Demande_Click()
Dim ctlDate As TextBox
Dim rs As Object
Dim varReturn As Variant

Set ctlDate = Me![Date_Demande]

' appel de la fonction qui ouvre le formulaire pop concenant le contrôle calendrier
varReturn = acbGetDate(ctlDate.Value)

End Sub[/code]

Mais si il n'y a pas

Code :

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