Discussion :

[Alexandre Sahli]

oui bien sûr mais je m'excuse c'est en rajout donc tu auras

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
Private Sub Date_Demande_Click()
Dim ctlDate As TextBox
Dim rs As Object
Dim varReturn As Variant
' s'il n'y a pas de date la valeur sera la date du jour
If isnull(Me![Date_Demande]) then
   Me![Date_Demande]= date()
end if
 
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

[guenfood]

CA ne marche toujous pas.

J'ai une erreur 2101 avec le code

Code :

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

Me.CalDate = Me.OpenArgs

souligné en jaune. C'est la valeur CalDate qui pose problème.

Ce qui est bizarre, c'est que le formulaire calendrier ne s'ouvre pas.
La date du jour s'incrit directement dans le contrôle, et ensuite j'ai le message d'erreur.

[Alexandre Sahli]

je désespère moi aussi.

Va dans le formulaire FCalendrier
tu vas dans le code de l'ouverture du formulaire.

la tu tapes "me." il doit venir une liste de valeur possible est-ce que dans cette liste il y a caldate?

[Alexandre Sahli]

Une autre suggestion dans ton formulaire FCalendrier

le contrôle calendrier tu dois le nommer "ocxCal" c'est peut être là l'astuce

[guenfood]

Oui, j'ai bien Caldate.

Ce qui est bizarre en fait, c'est qu'avec ton dernier code, l'ouverture du calendrier popup est mise après la condition IF de vérification du champ date.

Le problème ne vient pas de là ?

J'ai essayé le code comme ceci :

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 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)
 
' s'il n'y a pas de date la valeur sera la date du jour
If IsNull(Me![Date_Demande]) Then
   Me![Date_Demande] = Date
End If
 
 
 
End Sub

J'ai bien le formulaire qui s'affiche, mais lorsque je clique sur OK, j'ai toujours le message 2101.

Et là, je constate que dans le Module qui contient

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
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

le Caldate n'est pas reconnu.

[guenfood]

Le problème est identique même avec le renommage en ocxCal.

[guenfood]

Bon,

Le problème est enfin résolu.
Et la solution se trouvait dans..... ces maudites références.

En consultant la base que tu m'as envoyée, il y avait Microsoft Visual Basic for Applications Extensibilty 5.3, Microsoft Word 10.0 Object Library et Microsoft Outlook 10.0 Object Library de cochés que je n'avais pas.

J'ai effectué la modif, et ca marche nickel....

Que de prises de têtes pour seulement 3 options à cocher (voire une seule, mais dans le doute...)

En tout cas merci beaucoup pour ton aide.

[Alexandre Sahli]

s'il y en avait 1 qui posait problème ce devait être

Microsoft Visual Basic for Applications Extensibilty 5.3

les autres étaient cochées car dans mon projet j'utilise des connections à Word et outlook

c'est vraiment super que çà fonctionne