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
Ghislain
Créer un formulaire et placer le contrôle calendrier en haut à gauche. Réduire les dimensions du formulaire au minimum en le cadrant sur le calendrier. Nommer le calendrier "calendar0" et le formulaire "calendrier". déclarer le formulaire en fenêtre indépendante. placer le code suivant dans le formulaire: 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 Err_Args: End Sub L'appel du calendrier: L'appel du calendrier se fera par un double-click sur un contrôle date d'un formulaire. Ce double-click déclenchera une procédure événementielle qui lancera le calendrier et lui indiquera le nom du formulaire et le nom du contrôle appelant. L'appel pourra se faire à partir de plusieurs formulaires alternativement. Supposons le contrôle date nommé "Madate" dans un formulaire, placer le code suivant dans le code du formulaire: Private Sub Madate_DblClick(Cancel As Integer) DoCmd.OpenForm "calendrier" Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name End Sub La première ligne ouvre le calendrier et la deuxième lui indique les noms du formulaire et du contrôle. Lors du click sur un jour la valeur sera immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
-- Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je clique sur une date qu'il aille sur un focus d'un autre controle?
Merci
Créer un formulaire et placer le contrôle calendrier en haut à gauche.
Réduire les dimensions du formulaire au minimum en le cadrant sur le
calendrier. Nommer le calendrier "calendar0" et le formulaire "calendrier".
déclarer le formulaire en fenêtre indépendante.
placer le code suivant dans le formulaire:
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
Err_Args:
End Sub
L'appel du calendrier:
L'appel du calendrier se fera par un double-click sur un contrôle date d'un
formulaire. Ce double-click déclenchera une procédure événementielle qui
lancera le calendrier et lui indiquera le nom du formulaire et le nom du
contrôle appelant. L'appel pourra se faire à partir de plusieurs formulaires
alternativement. Supposons le contrôle date nommé "Madate" dans un
formulaire, placer le code suivant dans le code du formulaire:
Private Sub Madate_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name
End Sub
La première ligne ouvre le calendrier et la deuxième lui indique les noms du
formulaire et du contrôle. Lors du click sur un jour la valeur sera
immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
--
Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je
clique sur une date qu'il aille sur un focus d'un autre controle?
Créer un formulaire et placer le contrôle calendrier en haut à gauche. Réduire les dimensions du formulaire au minimum en le cadrant sur le calendrier. Nommer le calendrier "calendar0" et le formulaire "calendrier". déclarer le formulaire en fenêtre indépendante. placer le code suivant dans le formulaire: 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 Err_Args: End Sub L'appel du calendrier: L'appel du calendrier se fera par un double-click sur un contrôle date d'un formulaire. Ce double-click déclenchera une procédure événementielle qui lancera le calendrier et lui indiquera le nom du formulaire et le nom du contrôle appelant. L'appel pourra se faire à partir de plusieurs formulaires alternativement. Supposons le contrôle date nommé "Madate" dans un formulaire, placer le code suivant dans le code du formulaire: Private Sub Madate_DblClick(Cancel As Integer) DoCmd.OpenForm "calendrier" Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name End Sub La première ligne ouvre le calendrier et la deuxième lui indique les noms du formulaire et du contrôle. Lors du click sur un jour la valeur sera immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
-- Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je clique sur une date qu'il aille sur un focus d'un autre controle?
Merci
Jean-Claude
Merci encore, je vais essayer.
Bonne soirée
"Ghislain" a écrit dans le message de news:
Créer un formulaire et placer le contrôle calendrier en haut à gauche. Réduire les dimensions du formulaire au minimum en le cadrant sur le calendrier. Nommer le calendrier "calendar0" et le formulaire "calendrier". déclarer le formulaire en fenêtre indépendante. placer le code suivant dans le formulaire: 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 Err_Args: End Sub L'appel du calendrier: L'appel du calendrier se fera par un double-click sur un contrôle date d'un formulaire. Ce double-click déclenchera une procédure événementielle qui lancera le calendrier et lui indiquera le nom du formulaire et le nom du contrôle appelant. L'appel pourra se faire à partir de plusieurs formulaires alternativement. Supposons le contrôle date nommé "Madate" dans un formulaire, placer le code suivant dans le code du formulaire: Private Sub Madate_DblClick(Cancel As Integer) DoCmd.OpenForm "calendrier" Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name End Sub La première ligne ouvre le calendrier et la deuxième lui indique les noms du formulaire et du contrôle. Lors du click sur un jour la valeur sera immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
-- Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je clique sur une date qu'il aille sur un focus d'un autre controle?
Merci
Merci encore, je vais essayer.
Bonne soirée
"Ghislain" <Ghislain@discussions.microsoft.com> a écrit dans le message de
news: 52C767E1-295C-4630-BFBD-D241FCC2DD31@microsoft.com...
Créer un formulaire et placer le contrôle calendrier en haut à gauche.
Réduire les dimensions du formulaire au minimum en le cadrant sur le
calendrier. Nommer le calendrier "calendar0" et le formulaire
"calendrier".
déclarer le formulaire en fenêtre indépendante.
placer le code suivant dans le formulaire:
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
Err_Args:
End Sub
L'appel du calendrier:
L'appel du calendrier se fera par un double-click sur un contrôle date
d'un
formulaire. Ce double-click déclenchera une procédure événementielle qui
lancera le calendrier et lui indiquera le nom du formulaire et le nom du
contrôle appelant. L'appel pourra se faire à partir de plusieurs
formulaires
alternativement. Supposons le contrôle date nommé "Madate" dans un
formulaire, placer le code suivant dans le code du formulaire:
Private Sub Madate_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name
End Sub
La première ligne ouvre le calendrier et la deuxième lui indique les noms
du
formulaire et du contrôle. Lors du click sur un jour la valeur sera
immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
--
Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je
clique sur une date qu'il aille sur un focus d'un autre controle?
Créer un formulaire et placer le contrôle calendrier en haut à gauche. Réduire les dimensions du formulaire au minimum en le cadrant sur le calendrier. Nommer le calendrier "calendar0" et le formulaire "calendrier". déclarer le formulaire en fenêtre indépendante. placer le code suivant dans le formulaire: 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 Err_Args: End Sub L'appel du calendrier: L'appel du calendrier se fera par un double-click sur un contrôle date d'un formulaire. Ce double-click déclenchera une procédure événementielle qui lancera le calendrier et lui indiquera le nom du formulaire et le nom du contrôle appelant. L'appel pourra se faire à partir de plusieurs formulaires alternativement. Supposons le contrôle date nommé "Madate" dans un formulaire, placer le code suivant dans le code du formulaire: Private Sub Madate_DblClick(Cancel As Integer) DoCmd.OpenForm "calendrier" Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name End Sub La première ligne ouvre le calendrier et la deuxième lui indique les noms du formulaire et du contrôle. Lors du click sur un jour la valeur sera immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
-- Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je clique sur une date qu'il aille sur un focus d'un autre controle?
Merci
Jean-Claude
Salut
Je pense que tu as compris mon problème mais je ne vois pas où mettre l'évènement
Private Sub Calendar0_Click()
Merci pour la réponse et bonne journée
"Jean-Claude" a écrit dans le message de news: 439b0e63$0$1531$
Merci encore, je vais essayer.
Bonne soirée
"Ghislain" a écrit dans le message de news:
Créer un formulaire et placer le contrôle calendrier en haut à gauche. Réduire les dimensions du formulaire au minimum en le cadrant sur le calendrier. Nommer le calendrier "calendar0" et le formulaire "calendrier". déclarer le formulaire en fenêtre indépendante. placer le code suivant dans le formulaire: 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 Err_Args: End Sub L'appel du calendrier: L'appel du calendrier se fera par un double-click sur un contrôle date d'un formulaire. Ce double-click déclenchera une procédure événementielle qui lancera le calendrier et lui indiquera le nom du formulaire et le nom du contrôle appelant. L'appel pourra se faire à partir de plusieurs formulaires alternativement. Supposons le contrôle date nommé "Madate" dans un formulaire, placer le code suivant dans le code du formulaire: Private Sub Madate_DblClick(Cancel As Integer) DoCmd.OpenForm "calendrier" Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name End Sub La première ligne ouvre le calendrier et la deuxième lui indique les noms du formulaire et du contrôle. Lors du click sur un jour la valeur sera immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
-- Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je clique sur une date qu'il aille sur un focus d'un autre controle?
Merci
Salut
Je pense que tu as compris mon problème mais je ne vois pas où mettre
l'évènement
Private Sub Calendar0_Click()
Merci pour la réponse et bonne journée
"Jean-Claude" <arlequin7520@hotmail.com> a écrit dans le message de news:
439b0e63$0$1531$c3e8da3@news.astraweb.com...
Merci encore, je vais essayer.
Bonne soirée
"Ghislain" <Ghislain@discussions.microsoft.com> a écrit dans le message de
news: 52C767E1-295C-4630-BFBD-D241FCC2DD31@microsoft.com...
Créer un formulaire et placer le contrôle calendrier en haut à gauche.
Réduire les dimensions du formulaire au minimum en le cadrant sur le
calendrier. Nommer le calendrier "calendar0" et le formulaire
"calendrier".
déclarer le formulaire en fenêtre indépendante.
placer le code suivant dans le formulaire:
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
Err_Args:
End Sub
L'appel du calendrier:
L'appel du calendrier se fera par un double-click sur un contrôle date
d'un
formulaire. Ce double-click déclenchera une procédure événementielle qui
lancera le calendrier et lui indiquera le nom du formulaire et le nom du
contrôle appelant. L'appel pourra se faire à partir de plusieurs
formulaires
alternativement. Supposons le contrôle date nommé "Madate" dans un
formulaire, placer le code suivant dans le code du formulaire:
Private Sub Madate_DblClick(Cancel As Integer)
DoCmd.OpenForm "calendrier"
Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name
End Sub
La première ligne ouvre le calendrier et la deuxième lui indique les noms
du
formulaire et du contrôle. Lors du click sur un jour la valeur sera
immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
--
Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je
clique sur une date qu'il aille sur un focus d'un autre controle?
Je pense que tu as compris mon problème mais je ne vois pas où mettre l'évènement
Private Sub Calendar0_Click()
Merci pour la réponse et bonne journée
"Jean-Claude" a écrit dans le message de news: 439b0e63$0$1531$
Merci encore, je vais essayer.
Bonne soirée
"Ghislain" a écrit dans le message de news:
Créer un formulaire et placer le contrôle calendrier en haut à gauche. Réduire les dimensions du formulaire au minimum en le cadrant sur le calendrier. Nommer le calendrier "calendar0" et le formulaire "calendrier". déclarer le formulaire en fenêtre indépendante. placer le code suivant dans le formulaire: 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 Err_Args: End Sub L'appel du calendrier: L'appel du calendrier se fera par un double-click sur un contrôle date d'un formulaire. Ce double-click déclenchera une procédure événementielle qui lancera le calendrier et lui indiquera le nom du formulaire et le nom du contrôle appelant. L'appel pourra se faire à partir de plusieurs formulaires alternativement. Supposons le contrôle date nommé "Madate" dans un formulaire, placer le code suivant dans le code du formulaire: Private Sub Madate_DblClick(Cancel As Integer) DoCmd.OpenForm "calendrier" Forms("calendrier").Caption = Me.Name & "!" & Me.Madate.Name End Sub La première ligne ouvre le calendrier et la deuxième lui indique les noms du formulaire et du contrôle. Lors du click sur un jour la valeur sera immédiatement stockée dans le contrôle indiqué du formulaire indiqué.
-- Ghislain
"Jean-Claude" wrote:
Bonjour.
Je viens de créer un controle calendrier. Comment puis-je faire quand je clique sur une date qu'il aille sur un focus d'un autre controle?
