Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur le
forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur
le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2net
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur
le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur
le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
Pourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur
le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Pourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2net
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur
le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Pourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date ouvre
sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur un
formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours pas
trouvé comment renvoyer la date sélectionnée du calendrier, dans le champs
correspondant. En plus le mot calendrier ou calendar dans la recherche sur
le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Code du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2netPourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Code du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2net
Pourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2net
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Code du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2netPourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Compris... Cela vient du fait que tes contrôles sont dans un sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" & Me.Date_Retour_prevu_ES.Name
End Sub
Dis-nous !Code du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2netPourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Compris... Cela vient du fait que tes contrôles sont dans un sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" & Me.Date_Retour_prevu_ES.Name
End Sub
Dis-nous !
Code du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2net
Pourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2net
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Compris... Cela vient du fait que tes contrôles sont dans un sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" & Me.Date_Retour_prevu_ES.Name
End Sub
Dis-nous !Code du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2netPourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave, maintenant
que j'ai plus d'infos, je cherche encore et je profite de l'adresse des
archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Pas de chance, ça ne marche pas, mais ça semble déjà plus logique.
J'ai mis des flag dans mon code comme ci-dessous
flag = Me.Parent.Name
- me renvoi bien le nom du [FormulairePrincipal]
flag2 = Forms("calendrier").Caption
- me renvoi la formule suivante:
[FormulairePrincipal]![SousFormulaire]![ContrôleDevantRecevoirLaDate]
flag3 = Me.Date_Retour_prevu_ES.Name
- me renvoi le nom du [ContrôleDevantRecevoirLaDate]
flag4 = Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name
- me renvoi Vrai
si je met: flag3 = Me.Date_Retour_prevu_ES.Value
la valeur est Null
Je n'ai toujours pas vu de date dans le coin!!
zOrg2netCompris... Cela vient du fait que tes contrôles sont dans un
sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" &
Me.Date_Retour_prevu_ES.Name End Sub
Dis-nous !
Dans ton message duCode du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo
Err_Args Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2netPourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave,
maintenant que j'ai plus d'infos, je cherche encore et je profite de
l'adresse des archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Pas de chance, ça ne marche pas, mais ça semble déjà plus logique.
J'ai mis des flag dans mon code comme ci-dessous
flag = Me.Parent.Name
- me renvoi bien le nom du [FormulairePrincipal]
flag2 = Forms("calendrier").Caption
- me renvoi la formule suivante:
[FormulairePrincipal]![SousFormulaire]![ContrôleDevantRecevoirLaDate]
flag3 = Me.Date_Retour_prevu_ES.Name
- me renvoi le nom du [ContrôleDevantRecevoirLaDate]
flag4 = Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name
- me renvoi Vrai
si je met: flag3 = Me.Date_Retour_prevu_ES.Value
la valeur est Null
Je n'ai toujours pas vu de date dans le coin!!
zOrg2net
Compris... Cela vient du fait que tes contrôles sont dans un
sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" &
Me.Date_Retour_prevu_ES.Name End Sub
Dis-nous !
Dans ton message <6FCE9144-6465-448A-AB29-E675B300D5C0@microsoft.com> du
Code du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo
Err_Args Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2net
Pourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave,
maintenant que j'ai plus d'infos, je cherche encore et je profite de
l'adresse des archives du forum pour chercher encore plus.
zOrg2net
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Pas de chance, ça ne marche pas, mais ça semble déjà plus logique.
J'ai mis des flag dans mon code comme ci-dessous
flag = Me.Parent.Name
- me renvoi bien le nom du [FormulairePrincipal]
flag2 = Forms("calendrier").Caption
- me renvoi la formule suivante:
[FormulairePrincipal]![SousFormulaire]![ContrôleDevantRecevoirLaDate]
flag3 = Me.Date_Retour_prevu_ES.Name
- me renvoi le nom du [ContrôleDevantRecevoirLaDate]
flag4 = Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name
- me renvoi Vrai
si je met: flag3 = Me.Date_Retour_prevu_ES.Value
la valeur est Null
Je n'ai toujours pas vu de date dans le coin!!
zOrg2netCompris... Cela vient du fait que tes contrôles sont dans un
sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" &
Me.Date_Retour_prevu_ES.Name End Sub
Dis-nous !
Dans ton message duCode du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo
Err_Args Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2netPourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave,
maintenant que j'ai plus d'infos, je cherche encore et je profite de
l'adresse des archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" & Me.Date_Retour_prevu_ES.Name
End SubPas de chance, ça ne marche pas, mais ça semble déjà plus logique.
J'ai mis des flag dans mon code comme ci-dessous
flag = Me.Parent.Name
- me renvoi bien le nom du [FormulairePrincipal]
flag2 = Forms("calendrier").Caption
- me renvoi la formule suivante:
[FormulairePrincipal]![SousFormulaire]![ContrôleDevantRecevoirLaDate]
flag3 = Me.Date_Retour_prevu_ES.Name
- me renvoi le nom du [ContrôleDevantRecevoirLaDate]
flag4 = Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name
- me renvoi Vrai
si je met: flag3 = Me.Date_Retour_prevu_ES.Value
la valeur est Null
Je n'ai toujours pas vu de date dans le coin!!
zOrg2netCompris... Cela vient du fait que tes contrôles sont dans un
sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" &
Me.Date_Retour_prevu_ES.Name End Sub
Dis-nous !
Dans ton message duCode du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo
Err_Args Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2netPourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave,
maintenant que j'ai plus d'infos, je cherche encore et je profite de
l'adresse des archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" & Me.Date_Retour_prevu_ES.Name
End Sub
Pas de chance, ça ne marche pas, mais ça semble déjà plus logique.
J'ai mis des flag dans mon code comme ci-dessous
flag = Me.Parent.Name
- me renvoi bien le nom du [FormulairePrincipal]
flag2 = Forms("calendrier").Caption
- me renvoi la formule suivante:
[FormulairePrincipal]![SousFormulaire]![ContrôleDevantRecevoirLaDate]
flag3 = Me.Date_Retour_prevu_ES.Name
- me renvoi le nom du [ContrôleDevantRecevoirLaDate]
flag4 = Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name
- me renvoi Vrai
si je met: flag3 = Me.Date_Retour_prevu_ES.Value
la valeur est Null
Je n'ai toujours pas vu de date dans le coin!!
zOrg2net
Compris... Cela vient du fait que tes contrôles sont dans un
sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" &
Me.Date_Retour_prevu_ES.Name End Sub
Dis-nous !
Dans ton message <6FCE9144-6465-448A-AB29-E675B300D5C0@microsoft.com> du
Code du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo
Err_Args Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2net
Pourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave,
maintenant que j'ai plus d'infos, je cherche encore et je profite de
l'adresse des archives du forum pour chercher encore plus.
zOrg2net
Bonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" & Me.Date_Retour_prevu_ES.Name
End SubPas de chance, ça ne marche pas, mais ça semble déjà plus logique.
J'ai mis des flag dans mon code comme ci-dessous
flag = Me.Parent.Name
- me renvoi bien le nom du [FormulairePrincipal]
flag2 = Forms("calendrier").Caption
- me renvoi la formule suivante:
[FormulairePrincipal]![SousFormulaire]![ContrôleDevantRecevoirLaDate]
flag3 = Me.Date_Retour_prevu_ES.Name
- me renvoi le nom du [ContrôleDevantRecevoirLaDate]
flag4 = Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name
- me renvoi Vrai
si je met: flag3 = Me.Date_Retour_prevu_ES.Value
la valeur est Null
Je n'ai toujours pas vu de date dans le coin!!
zOrg2netCompris... Cela vient du fait que tes contrôles sont dans un
sous-formulaire...
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo Err_Args
Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Parent.Name & "!" & Me.Name & ".Form!" &
Me.Date_Retour_prevu_ES.Name End Sub
Dis-nous !
Dans ton message duCode du calendrier:
Option Compare Database
Private Sub Calendar0_Click()
Dim frm As String
Dim ctl As String
On Error GoTo Err_Args
frm = Mid(Me.Caption, 1, InStrRev(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStrRev(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo
Err_Args Forms(frm)(ctl) = Me.Calendar0
Err_Args:
End Sub
Code du contrôle qui reçoit la date:
Private Sub Date_Retour_prevu_ES_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" &
Me.Date_Retour_prevu_ES.Name End Sub
Voilà, l'ouverture du calendrier se fait bien, mais le renvoi de la date
dans le contrôle, non.
zOrg2netPourtant, déjà utilisé plusieurs fois, ça fonctionnait...
Comment se présente ton code ?
En ce jour mémorable du jeudi 22/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour et merci à vous deux,
Malheureusement, pour l'instant ça ne marche toujours pas. Le calendrier
s'ouvre bien, mais la date n'est pas renvoyée. C'est pas grave,
maintenant que j'ai plus d'infos, je cherche encore et je profite de
l'adresse des archives du forum pour chercher encore plus.
zOrg2netBonjour tout le monde,
Dans un formulaire, j'ai un sous-formulaire, dans lequel 3 champs date
ouvre sur clic le même contrôle ActiveX calendrier, que j'ai inséré sur
un formulaire. J'ai eu beau parcourir l'aide d'Access, je n'ai toujours
pas trouvé comment renvoyer la date sélectionnée du calendrier, dans le
champs correspondant. En plus le mot calendrier ou calendar dans la
recherche sur le forum Access ne renvoi rien du tout.
Quelqu'un aurait-il une petite idée.
Merci d'avance.
zOrg2net
7OuNet
Le dicton du jour: La peine prévue pour la polygamie, c'est d'avoir
plusieurs belles mères.
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info