Calendrier activeX avec champ date dans sous-formulaire

Le
lolo4014
Bonjour à tous,

j'ai regardé à plusieurs reprises les différentes discussions du forums, sans trouver de réponse à mon problème :
je dispose d'un formulaire contenant un calendrier activeX (appelé calendrier2)
je dispose ensuite d'un formulaire (appelé ajout_essai_BPE) contenant un sous formulaire (appelé Actions_diverses sous-formulaire_BPEajout) contenant un champ date (act_date).
avec un double-clic sur ce champ, j'ouvre mon calendrier2, je choisis la date, et je clique sur mon bouton ok2 placé ds le formulaire calendrier2.
Malheureusement, la date sélectionnée ne s'affiche pas dans mon champ date, mais je n'ai aucun message d'erreur qui s'affiche non plus.

voila ma procédure sur mon bouton ok2:

Private Sub ok2_Click()
'pour afficher la date sélectionnée dans la zone de texte correspondante

Dim frm As String, frmPere As String
Dim ctrl As String
Dim sep1 As Integer, sep2 As Integer
On Error GoTo Err_Args
sep1 = InStr(1, Me.Caption, "!") ' 1er !
sep2 = InStrRev(Me.Caption, "!") ' 2eme !
frmPere = Mid(Me.Caption, 1, sep1 - 1) ' nom formulaire principal

frm = Mid(Me.Caption, sep1 + 1, sep2 - sep1 - 1) ' nom du sous-formulaire

ctrl = Mid(Me.Caption, sep2 + 1) ' nom du controle

If IsNull(frm) Or frm = "" Or IsNull(ctrl) Or ctrl = "" Then GoTo Err_Args
Forms(frmPere)(frm).Controls(ctrl) = CtlActiveX0.Value ' affectation de la valeur
Err_Args:

DoCmd.Close
End Sub


et voici ma procédure sur doubleclik dans act_date :


Private Sub act_date_DblClick(Cancel As Integer)
'ouverture du calendrier en "retenant" le formulaire actif

DoCmd.OpenForm "CALENDRIER2"
Forms("CALENDRIER2").Caption = Me.Parent.Name & "!" & Me.Name & "!" & Me.act_date.Name

End Sub


Est-ce que quelqu'un aurait une petite idée pour savoir pourquoi ma date ne s'affiche pas svp?? je ne vois vraiment pas.

Merci à ceux qui prendront la peine de me lire et de m'aider
Bonne après-midi
Laure
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
lolo4014
Le #19259571
lolo4014 a écrit le 29/04/2009 à 13h51 :
Bonjour à tous,

j'ai regardé à plusieurs reprises les différentes
discussions du forums, sans trouver de réponse à mon
problème :
je dispose d'un formulaire contenant un calendrier activeX (appelé
calendrier2)
je dispose ensuite d'un formulaire (appelé ajout_essai_BPE) contenant un
sous formulaire (appelé Actions_diverses sous-formulaire_BPEajout)
contenant un champ date (act_date).
avec un double-clic sur ce champ, j'ouvre mon calendrier2, je choisis la date,
et je clique sur mon bouton ok2 placé ds le formulaire calendrier2.
Malheureusement, la date sélectionnée ne s'affiche pas dans mon
champ date, mais je n'ai aucun message d'erreur qui s'affiche non plus.

voila ma procédure sur mon bouton ok2:

Private Sub ok2_Click()
'pour afficher la date sélectionnée dans la zone de texte
correspondante

Dim frm As String, frmPere As String
Dim ctrl As String
Dim sep1 As Integer, sep2 As Integer
On Error GoTo Err_Args
sep1 = InStr(1, Me.Caption, "!") ' 1er !
sep2 = InStrRev(Me.Caption, "!") ' 2eme !
frmPere = Mid(Me.Caption, 1, sep1 - 1) ' nom formulaire principal

frm = Mid(Me.Caption, sep1 + 1, sep2 - sep1 - 1) ' nom du sous-formulaire

ctrl = Mid(Me.Caption, sep2 + 1) ' nom du controle

If IsNull(frm) Or frm = "" Or IsNull(ctrl) Or ctrl = ""
Then GoTo Err_Args
Forms(frmPere)(frm).Controls(ctrl) = CtlActiveX0.Value ' affectation de la
valeur
Err_Args:

DoCmd.Close
End Sub


et voici ma procédure sur doubleclik dans act_date :


Private Sub act_date_DblClick(Cancel As Integer)
'ouverture du calendrier en "retenant" le formulaire actif

DoCmd.OpenForm "CALENDRIER2"
Forms("CALENDRIER2").Caption = Me.Parent.Name & "!"
& Me.Name & "!" & Me.act_date.Name

End Sub


Est-ce que quelqu'un aurait une petite idée pour savoir pourquoi ma date
ne s'affiche pas svp?? je ne vois vraiment pas.

Merci à ceux qui prendront la peine de me lire et de m'aider
Bonne après-midi
Laure


Il n'y a personne qui pourrait me donner un petit coup de pouce svp??
je suis vraiment bloquée!!

merci d'avance
lolo4014
Le #19268331
lolo4014 a écrit le 29/04/2009 à 13h51 :
Bonjour à tous,

j'ai regardé à plusieurs reprises les différentes
discussions du forums, sans trouver de réponse à mon
problème :
je dispose d'un formulaire contenant un calendrier activeX (appelé
calendrier2)
je dispose ensuite d'un formulaire (appelé ajout_essai_BPE) contenant un
sous formulaire (appelé Actions_diverses sous-formulaire_BPEajout)
contenant un champ date (act_date).
avec un double-clic sur ce champ, j'ouvre mon calendrier2, je choisis la date,
et je clique sur mon bouton ok2 placé ds le formulaire calendrier2.
Malheureusement, la date sélectionnée ne s'affiche pas dans mon
champ date, mais je n'ai aucun message d'erreur qui s'affiche non plus.

voila ma procédure sur mon bouton ok2:

Private Sub ok2_Click()
'pour afficher la date sélectionnée dans la zone de texte
correspondante

Dim frm As String, frmPere As String
Dim ctrl As String
Dim sep1 As Integer, sep2 As Integer
On Error GoTo Err_Args
sep1 = InStr(1, Me.Caption, "!") ' 1er !
sep2 = InStrRev(Me.Caption, "!") ' 2eme !
frmPere = Mid(Me.Caption, 1, sep1 - 1) ' nom formulaire principal

frm = Mid(Me.Caption, sep1 + 1, sep2 - sep1 - 1) ' nom du sous-formulaire

ctrl = Mid(Me.Caption, sep2 + 1) ' nom du controle

If IsNull(frm) Or frm = "" Or IsNull(ctrl) Or ctrl = ""
Then GoTo Err_Args
Forms(frmPere)(frm).Controls(ctrl) = CtlActiveX0.Value ' affectation de la
valeur
Err_Args:

DoCmd.Close
End Sub


et voici ma procédure sur doubleclik dans act_date :


Private Sub act_date_DblClick(Cancel As Integer)
'ouverture du calendrier en "retenant" le formulaire actif

DoCmd.OpenForm "CALENDRIER2"
Forms("CALENDRIER2").Caption = Me.Parent.Name & "!"
& Me.Name & "!" & Me.act_date.Name

End Sub


Est-ce que quelqu'un aurait une petite idée pour savoir pourquoi ma date
ne s'affiche pas svp?? je ne vois vraiment pas.

Merci à ceux qui prendront la peine de me lire et de m'aider
Bonne après-midi
Laure


s'il vous plaît ????
un petit coup de main!!
je ne sais plus quoi faire!!
Publicité
Poster une réponse
Anonyme