Avec le code de Raymond sur son site, j'appelle un formulaire calendrier qui
retourne la date sélectionné dans mon formulaire principal. Tout fonctionne
bien sauf pour un formulaire appellé sous acDialog. Je dois donc appeller mon
formulaire calendrier en acDialog aussi pour le mettre en premier plan et
plus rien ne fonctionne.
Private Sub calendar0_click()
Dim frm As String
Dim ctl As String
On Error GoTo err_args
frm = Mid(Me.Caption, 1, InStr(1, Me.Caption, "!") - 1)
ctl = Mid(Me.Caption, InStr(1, Me.Caption, "!") + 1)
If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo err_args
Forms(frm)(ctl) = Me.Calendar0
DoCmd.Close
err_args:
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
hé bien oui, ça ne peut pas fonctionner avec les acDialog car le formulaire appelant ne peut pas atteindre le formulaire appelé. désolé mais tu ne peux pas utiliser cette méthode. il va falloir définir un contrôle calendrier sur ton formulaire principal. dommage que tu ne sois pas en version 2007, chaque contrôle date a son contrôle calendrier associé.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/
Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!! http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" a écrit dans le message de news: | Bonjour, | | Avec le code de Raymond sur son site, j'appelle un formulaire calendrier qui | retourne la date sélectionné dans mon formulaire principal. Tout fonctionne | bien sauf pour un formulaire appellé sous acDialog. Je dois donc appeller mon | formulaire calendrier en acDialog aussi pour le mettre en premier plan et | plus rien ne fonctionne. | | Merci pour votre aide. | | | '*** procédure dans mon formulaire parent | DoCmd.OpenForm "calendrier", , , , , acDialog | Forms("calendrier").Caption = Me.Name & "!" & Me.date_facturé.Name | | ******* procédure dans formulaire calendrier | | Private Sub calendar0_click() | Dim frm As String | Dim ctl As String | On Error GoTo err_args | frm = Mid(Me.Caption, 1, InStr(1, Me.Caption, "!") - 1) | ctl = Mid(Me.Caption, InStr(1, Me.Caption, "!") + 1) | If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo err_args | Forms(frm)(ctl) = Me.Calendar0 | DoCmd.Close | err_args: | | End Sub | | -- | Merci, | Guy du Lac
Bonsoir.
hé bien oui, ça ne peut pas fonctionner avec les acDialog car le formulaire
appelant ne peut pas atteindre le formulaire appelé.
désolé mais tu ne peux pas utiliser cette méthode.
il va falloir définir un contrôle calendrier sur ton formulaire principal.
dommage que tu ne sois pas en version 2007, chaque contrôle date a son
contrôle calendrier associé.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!!
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" <GuyduLac@discussions.microsoft.com> a écrit dans le message de
news: DBEEC1FB-9557-4058-B743-06D157CB9F6C@microsoft.com...
| Bonjour,
|
| Avec le code de Raymond sur son site, j'appelle un formulaire calendrier
qui
| retourne la date sélectionné dans mon formulaire principal. Tout
fonctionne
| bien sauf pour un formulaire appellé sous acDialog. Je dois donc appeller
mon
| formulaire calendrier en acDialog aussi pour le mettre en premier plan et
| plus rien ne fonctionne.
|
| Merci pour votre aide.
|
|
| '*** procédure dans mon formulaire parent
| DoCmd.OpenForm "calendrier", , , , , acDialog
| Forms("calendrier").Caption = Me.Name & "!" & Me.date_facturé.Name
|
| ******* procédure dans formulaire calendrier
|
| Private Sub calendar0_click()
| Dim frm As String
| Dim ctl As String
| On Error GoTo err_args
| frm = Mid(Me.Caption, 1, InStr(1, Me.Caption, "!") - 1)
| ctl = Mid(Me.Caption, InStr(1, Me.Caption, "!") + 1)
| If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo err_args
| Forms(frm)(ctl) = Me.Calendar0
| DoCmd.Close
| err_args:
|
| End Sub
|
| --
| Merci,
| Guy du Lac
hé bien oui, ça ne peut pas fonctionner avec les acDialog car le formulaire appelant ne peut pas atteindre le formulaire appelé. désolé mais tu ne peux pas utiliser cette méthode. il va falloir définir un contrôle calendrier sur ton formulaire principal. dommage que tu ne sois pas en version 2007, chaque contrôle date a son contrôle calendrier associé.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/
Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!! http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" a écrit dans le message de news: | Bonjour, | | Avec le code de Raymond sur son site, j'appelle un formulaire calendrier qui | retourne la date sélectionné dans mon formulaire principal. Tout fonctionne | bien sauf pour un formulaire appellé sous acDialog. Je dois donc appeller mon | formulaire calendrier en acDialog aussi pour le mettre en premier plan et | plus rien ne fonctionne. | | Merci pour votre aide. | | | '*** procédure dans mon formulaire parent | DoCmd.OpenForm "calendrier", , , , , acDialog | Forms("calendrier").Caption = Me.Name & "!" & Me.date_facturé.Name | | ******* procédure dans formulaire calendrier | | Private Sub calendar0_click() | Dim frm As String | Dim ctl As String | On Error GoTo err_args | frm = Mid(Me.Caption, 1, InStr(1, Me.Caption, "!") - 1) | ctl = Mid(Me.Caption, InStr(1, Me.Caption, "!") + 1) | If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo err_args | Forms(frm)(ctl) = Me.Calendar0 | DoCmd.Close | err_args: | | End Sub | | -- | Merci, | Guy du Lac
Guy du Lac
Bonjour Raymond,
Mon formulaire calendrier arrive avec la date de création plutot que la date du jour. Je pensais qu'avec la ligne de code ci-dessous cela fonctionnerait mais non.....
Me.Calendar0.Value = DATE
Y-a-t-il une façon d'y remédier?
-- Merci, Guy du Lac
Bonsoir.
hé bien oui, ça ne peut pas fonctionner avec les acDialog car le formulaire appelant ne peut pas atteindre le formulaire appelé. désolé mais tu ne peux pas utiliser cette méthode. il va falloir définir un contrôle calendrier sur ton formulaire principal. dommage que tu ne sois pas en version 2007, chaque contrôle date a son contrôle calendrier associé.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/
Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!! http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" a écrit dans le message de news: | Bonjour, | | Avec le code de Raymond sur son site, j'appelle un formulaire calendrier qui | retourne la date sélectionné dans mon formulaire principal. Tout fonctionne | bien sauf pour un formulaire appellé sous acDialog. Je dois donc appeller mon | formulaire calendrier en acDialog aussi pour le mettre en premier plan et | plus rien ne fonctionne. | | Merci pour votre aide. | | | '*** procédure dans mon formulaire parent | DoCmd.OpenForm "calendrier", , , , , acDialog | Forms("calendrier").Caption = Me.Name & "!" & Me.date_facturé.Name | | ******* procédure dans formulaire calendrier | | Private Sub calendar0_click() | Dim frm As String | Dim ctl As String | On Error GoTo err_args | frm = Mid(Me.Caption, 1, InStr(1, Me.Caption, "!") - 1) | ctl = Mid(Me.Caption, InStr(1, Me.Caption, "!") + 1) | If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo err_args | Forms(frm)(ctl) = Me.Calendar0 | DoCmd.Close | err_args: | | End Sub | | -- | Merci, | Guy du Lac
Bonjour Raymond,
Mon formulaire calendrier arrive avec la date de création plutot que la date
du jour. Je pensais qu'avec la ligne de code ci-dessous cela fonctionnerait
mais non.....
Me.Calendar0.Value = DATE
Y-a-t-il une façon d'y remédier?
--
Merci,
Guy du Lac
Bonsoir.
hé bien oui, ça ne peut pas fonctionner avec les acDialog car le formulaire
appelant ne peut pas atteindre le formulaire appelé.
désolé mais tu ne peux pas utiliser cette méthode.
il va falloir définir un contrôle calendrier sur ton formulaire principal.
dommage que tu ne sois pas en version 2007, chaque contrôle date a son
contrôle calendrier associé.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!!
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" <GuyduLac@discussions.microsoft.com> a écrit dans le message de
news: DBEEC1FB-9557-4058-B743-06D157CB9F6C@microsoft.com...
| Bonjour,
|
| Avec le code de Raymond sur son site, j'appelle un formulaire calendrier
qui
| retourne la date sélectionné dans mon formulaire principal. Tout
fonctionne
| bien sauf pour un formulaire appellé sous acDialog. Je dois donc appeller
mon
| formulaire calendrier en acDialog aussi pour le mettre en premier plan et
| plus rien ne fonctionne.
|
| Merci pour votre aide.
|
|
| '*** procédure dans mon formulaire parent
| DoCmd.OpenForm "calendrier", , , , , acDialog
| Forms("calendrier").Caption = Me.Name & "!" & Me.date_facturé.Name
|
| ******* procédure dans formulaire calendrier
|
| Private Sub calendar0_click()
| Dim frm As String
| Dim ctl As String
| On Error GoTo err_args
| frm = Mid(Me.Caption, 1, InStr(1, Me.Caption, "!") - 1)
| ctl = Mid(Me.Caption, InStr(1, Me.Caption, "!") + 1)
| If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo err_args
| Forms(frm)(ctl) = Me.Calendar0
| DoCmd.Close
| err_args:
|
| End Sub
|
| --
| Merci,
| Guy du Lac
Mon formulaire calendrier arrive avec la date de création plutot que la date du jour. Je pensais qu'avec la ligne de code ci-dessous cela fonctionnerait mais non.....
Me.Calendar0.Value = DATE
Y-a-t-il une façon d'y remédier?
-- Merci, Guy du Lac
Bonsoir.
hé bien oui, ça ne peut pas fonctionner avec les acDialog car le formulaire appelant ne peut pas atteindre le formulaire appelé. désolé mais tu ne peux pas utiliser cette méthode. il va falloir définir un contrôle calendrier sur ton formulaire principal. dommage que tu ne sois pas en version 2007, chaque contrôle date a son contrôle calendrier associé.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/
Le multimédia vu par Windows Vista, Office 2007 et Windows Live !!! http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" a écrit dans le message de news: | Bonjour, | | Avec le code de Raymond sur son site, j'appelle un formulaire calendrier qui | retourne la date sélectionné dans mon formulaire principal. Tout fonctionne | bien sauf pour un formulaire appellé sous acDialog. Je dois donc appeller mon | formulaire calendrier en acDialog aussi pour le mettre en premier plan et | plus rien ne fonctionne. | | Merci pour votre aide. | | | '*** procédure dans mon formulaire parent | DoCmd.OpenForm "calendrier", , , , , acDialog | Forms("calendrier").Caption = Me.Name & "!" & Me.date_facturé.Name | | ******* procédure dans formulaire calendrier | | Private Sub calendar0_click() | Dim frm As String | Dim ctl As String | On Error GoTo err_args | frm = Mid(Me.Caption, 1, InStr(1, Me.Caption, "!") - 1) | ctl = Mid(Me.Caption, InStr(1, Me.Caption, "!") + 1) | If IsNull(frm) Or frm = "" Or IsNull(ctl) Or ctl = "" Then GoTo err_args | Forms(frm)(ctl) = Me.Calendar0 | DoCmd.Close | err_args: | | End Sub | | -- | Merci, | Guy du Lac
Fabien
Bonjour Raymond,
Mon formulaire calendrier arrive avec la date de création plutot que la date du jour. Je pensais qu'avec la ligne de code ci-dessous cela fonctionnerait mais non.....
Me.Calendar0.Value = DATE
Y-a-t-il une façon d'y remédier?
Bonjour,
Je ne sais pas si ça peut arranger tes bidons mais avec ça : http://cjoint.com/?gepBDCwGsG Tu obtien un ocx ou activx je sais plus trop qui te permet d'attacher un calendrier a une zone de saisie. Dans le formulaire en mode construction tu clic sur l'outils "autres controles" et tu cherche microsoft date and time picker. Le défaut du truc c'est que cela doit-être sur toutes les machines utilisant ta base. Voilà
Bonjour Raymond,
Mon formulaire calendrier arrive avec la date de création plutot que la date
du jour. Je pensais qu'avec la ligne de code ci-dessous cela fonctionnerait
mais non.....
Me.Calendar0.Value = DATE
Y-a-t-il une façon d'y remédier?
Bonjour,
Je ne sais pas si ça peut arranger tes bidons mais avec ça
: http://cjoint.com/?gepBDCwGsG
Tu obtien un ocx ou activx je sais plus trop qui te permet d'attacher un
calendrier a une zone de saisie.
Dans le formulaire en mode construction tu clic sur l'outils "autres
controles" et tu cherche microsoft date and time picker.
Le défaut du truc c'est que cela doit-être sur toutes les machines
utilisant ta base.
Voilà
Mon formulaire calendrier arrive avec la date de création plutot que la date du jour. Je pensais qu'avec la ligne de code ci-dessous cela fonctionnerait mais non.....
Me.Calendar0.Value = DATE
Y-a-t-il une façon d'y remédier?
Bonjour,
Je ne sais pas si ça peut arranger tes bidons mais avec ça : http://cjoint.com/?gepBDCwGsG Tu obtien un ocx ou activx je sais plus trop qui te permet d'attacher un calendrier a une zone de saisie. Dans le formulaire en mode construction tu clic sur l'outils "autres controles" et tu cherche microsoft date and time picker. Le défaut du truc c'est que cela doit-être sur toutes les machines utilisant ta base. Voilà
Raymond [mvp]
je viens de tester:
Private Sub Form_Load() Me.Calendar0 = Date + 2 End Sub
le formulaire s'affiche bien au 6 juin 2007. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/
Non Stop Mix '07 - Paris. La nouvelle scène web fête la créativité ! http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" a écrit dans le message de news: | Bonjour Raymond, | | Mon formulaire calendrier arrive avec la date de création plutot que la date | du jour. Je pensais qu'avec la ligne de code ci-dessous cela fonctionnerait | mais non..... | | Me.Calendar0.Value = DATE | | Y-a-t-il une façon d'y remédier? | | -- | Merci, | Guy du Lac
je viens de tester:
Private Sub Form_Load()
Me.Calendar0 = Date + 2
End Sub
le formulaire s'affiche bien au 6 juin 2007.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Non Stop Mix '07 - Paris. La nouvelle scène web fête la créativité !
http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" <GuyduLac@discussions.microsoft.com> a écrit dans le message de
news: 04C0D37B-C914-4721-8C48-29394E0B1DE8@microsoft.com...
| Bonjour Raymond,
|
| Mon formulaire calendrier arrive avec la date de création plutot que la
date
| du jour. Je pensais qu'avec la ligne de code ci-dessous cela
fonctionnerait
| mais non.....
|
| Me.Calendar0.Value = DATE
|
| Y-a-t-il une façon d'y remédier?
|
| --
| Merci,
| Guy du Lac
Private Sub Form_Load() Me.Calendar0 = Date + 2 End Sub
le formulaire s'affiche bien au 6 juin 2007. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/
Non Stop Mix '07 - Paris. La nouvelle scène web fête la créativité ! http://www.comscamp.com/Tracker/Redirect.ashx?linkid°64304e-439a-45c7-9d2f-c3326db58273
"Guy du Lac" a écrit dans le message de news: | Bonjour Raymond, | | Mon formulaire calendrier arrive avec la date de création plutot que la date | du jour. Je pensais qu'avec la ligne de code ci-dessous cela fonctionnerait | mais non..... | | Me.Calendar0.Value = DATE | | Y-a-t-il une façon d'y remédier? | | -- | Merci, | Guy du Lac
