Discussion :

[OZ1977]

Bonjour,

je "bidouille" actuellement un agenda sous access
j'ai mis en place des étiquettes cliquables sur un formulaire "Etudes" (exemple "day1")
chaque étiquette correspondant aux jours du mois
un double click sur une étiquette met à jours 2 tables en se basant sur des informations du formulaire et le Caption de l'étiquette (je reconstitue une date)

j'aimerais faire une fonction commune à toutes mes étiquettes et pour cela je dois passer le nom de l'étiquette en paramètre de cette fonction
et je n'y arrive pas, j'ai essayé différents types de concaténation sans succès...

comment fait-on ?

Code :

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

1
2
3
4
5
6
7
8
9

Private Sub DAY1_DblClick(Cancel As Integer)

Dim dat As Date
dat = DateSerial(anneeContrat(), moisContrat(), Forms!Etudes!day1.Caption)
'évènement 

End Sub

[tee_grandbois]

bonjour,

j'ai mis en place des étiquettes cliquables sur un formulaire "Etudes" (exemple "day1")
chaque étiquette correspondant aux jours du mois

peux-tu préciser la version Access que tu utilises ? Car, à ma connaissance il n'existe pas d'évènement sur une étiquette, ou alors tu as créé des zones de texte ou des boutons ...

[OZ1977]

bonjour
j'utilise Access 2016
je viens de vérifier et ce sont bien des Etiquettes

[tee_grandbois]

c'est donc une nouvelle fonctionalité, je n'ai qu'Access 2013.
Une question: est-ce que sur doubleclick sur une étiquette permet de savoir que c'est le contrôle actif ?
un test tout simple permet de le savoir:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub DAY1_DblClick(Cancel As Integer)
 
' test sur le contrôle actif
Msgbox Me.ActiveControl.Name
 
Dim dat As Date
dat = DateSerial(anneeContrat(), moisContrat(), Forms!Etudes!day1.Caption)
'évènement 
 
End Sub

si la boite message te renvoie Day1 c'est tout bon, il sera possible de créer une fonction commune

[OZ1977]

je viens de tester et çà me renvoie le nom du contrôle sur lequel est placé le focus... et non pas le nom de l'étiquette : (

[tee_grandbois]

dommage, mais cela ne rend pas la solution de mutualisation du code plus difficile, mais plus longue à mettre en place.
Je vais donc essayer sans filet car je n'ai pas Access 2016:
crée ta fonction dans ton formulaire on la nommera RetourDate

Code :

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

Function RetourDate(pEtiq as String) as Date

pEtiq est le paramètre passé à la fonction et contient le nom du contrôle étiquette sur lequel le double-clic est effectué et RetourDate est de type Date (car elle va renvoyer la date fabriquée).
cette fonction contiendra ce code (j'ai fait au plus simple à toi d'implémenter ce qui manque):

Code :

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

1
2
3
4
5
6
7
8
Dim dat As Variant
dat = DateSerial(anneeContrat(), moisContrat(), Me(pEtiq).Caption)
If isdate(date) then
   RetourDate = dat
Else
   ' afficher un message d'erreur si date invalide
    RetourDate = 0   ' 00:00:00 
End if

Et l'appel se fera comme cela dans chaque évènement Double_Click:

Code :

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

1
2
Dim madate as date 
madate = RetourDate(Me.Day1.name)

il faut évidemment changer le nom de l'étiquette à chaque évènement