Comment passer le nom d'une étiquette de formulaire en paramètre d'une fonction ?

**OZ1977** · 05/09/2019, 10h22

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** · 05/09/2019, 11h31

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** · 05/09/2019, 13h47

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

**tee_grandbois** · 05/09/2019, 15h47

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** · 05/09/2019, 17h06

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** · 05/09/2019, 18h44

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

**hyperion13** · 05/09/2019, 20h20

Salut
Est-ce voir img que vous essayez de mettre en place ?

Code :

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

1
2
3
4
5
Private Sub day1_DblClick(Cancel As Integer)
Dim MaDate As Date
MaDate = DateSerial(Year(Now()), Month(Now()), Forms("Formulaire2")("day1").Caption)
MsgBox "la date est ... " & MaDate
End Sub

**tee_grandbois** · 05/09/2019, 21h38

bonsoir hyperion13,
à l'origine, le code fonctionne ce n'était pas le souci ... du moins si j'ai bien compris. La solution était plutôt de mutualiser le code pour éviter d'écrire 31 fois les mêmes lignes, chose que je n'ai pas réussi en relisant le code que j'ai fourni

.

**Jeannot45** · 06/09/2019, 07h57

Il n'y a pas d’événements sur une étiquette...

Une piste de recherche : Les formulaires de Planning

Bonne lecture

**OZ1977** · 06/09/2019, 08h59

merci pour vos réponses
c'est exactement çà tee_grandbois... j'ai 31 boutons au maximum

j'ai continué d'avancer et j'ai le code suivant qui est fonctionnel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
'Sélection d'une date sur le calendrier
Private Sub DAY1_DblClick(Cancel As Integer)
 
Dim dat As Date
Dim num As Integer
dat = DateSerial(anneeContrat(), moisContrat(), Forms!Etudes!day1.Caption)
If IsNull(Forms!Etudes!ETU_NUM) Then
    MsgBox ("Veuillez renseigner un nom d'étude")
Else
    num = Forms!Etudes!ETU_NUM
End If
 
If disponibiliteDate(dat) Then
    Call selectionnerDate(dat, num)
    'on colore la case en orange
    Forms!Etudes!day1.FontBold = True
    Forms!Etudes!day1.BackColor = RGB(255, 217, 102)
    Forms!Etudes!day1.BorderColor = RGB(255, 217, 102)
 
Else
    Call deselectionnerDate(dat, num)
    'on revient à la couleur d'origine
    Forms!Etudes!day1.FontBold = False
    Forms!Etudes!day1.BackColor = RGB(119, 192, 212)
    Forms!Etudes!day1.BorderColor = RGB(210, 222, 239)
 
End If
 
End Sub

et j'aimerais donc sur chaque bouton pouvoir appeler une procédure en passant en paramètre de cette fonction le nom de mon étiquette du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub DAY1_DblClick(Cancel As Integer)

Call calendrier(etiquette)

End sub

'procédure commune calendrier
Public Sub calendrier(etiquette As String)

Dim dat As Date
Dim num As Integer
dat = DateSerial(anneeContrat(), moisContrat(), Forms!Etudes!etiquette.Caption)
If IsNull(Forms!Etudes!ETU_NUM) Then
    MsgBox ("Veuillez renseigner un nom d'étude")
Else
    num = Forms!Etudes!ETU_NUM
End If

If disponibiliteDate(dat) Then
    Call selectionnerDate(dat, num)
    'on colore la case en orange
    Forms!Etudes!day1.FontBold = True
    Forms!Etudes!day1.BackColor = RGB(255, 217, 102)
    Forms!Etudes!day1.BorderColor = RGB(255, 217, 102)

Else
    Call deselectionnerDate(dat, num)
    'on revient à la couleur d'origine
    Forms!Etudes!day1.FontBold = False
    Forms!Etudes!day1.BackColor = RGB(119, 192, 212)
    Forms!Etudes!day1.BorderColor = RGB(210, 222, 239)

End If
End sub

**OZ1977** · 06/09/2019, 09h23

c'est bon j'ai trouvé grâce à vous
j'utilise l'autre écriture vba sur les formulaires

Code :

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

Forms("Etudes")("" & etiquette & "").Caption)

**tee_grandbois** · 06/09/2019, 14h26

bonjour,
pour la compréhension du code par la communauté, pourrais-tu poster le code complet ? Car je ne vois pas la méthode utilisée pour renseigner la variable etiquette.
T'es-tu inspiré de la méthode que je t'ai fournie ?

Code :

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