Bonjour,

J'ai la fonction suivante :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
'Permet de remplir le planning quand on navigue entre les différentes semaines
Private Sub Remplir_Planning(ByVal Datest As String, ByVal Idc As Integer, ByVal Chrono As String, ByVal Intitule As String, ByVal Rang As String, ByVal Datec As String)
 
Dim db As Database
Set db = CurrentDb
 
Dim rqChrono As Recordset
Dim Chro As Long
 
Dim Datev As Date
Dim Id As Integer
 
Dim maDate As String
 
Dim rqVisites As Recordset
Dim Inti As String
Dim Rg As String
Dim Date_Contact As Date
 
'récupère la date du planning
maDate = Me.Controls(Datest).Value
Datev = Left(maDate, 2) & Right(scrCDate, 8)
 
'requête pour récupérer le chrono
Set rqChrono = db.OpenRecordset("SELECT Chrono From CRP WHERE Date = #" & Datev & "# And ID_Employe = " & Idc)
 
If rqChrono.EOF = False Then
    Chro = rqChrono(0)
Else
    Chro = 0
End If
 
If (Chro <> 0) Then
    Set rqVisites = db.OpenRecordset("SELECT Intitule, Rang,Date_Prise_Contact FROM Visites WHERE Chrono = " & Chro)
    If rqVisites.EOF = False Then
        Inti = rqVisites(0)
        Rg = rqVisites(1)
        Date_Contact = rqVisites(2)
    Else
        Inti = ""
        Rg = ""
        Date_Contact = Null
    End If
    MsgBox (Date_Contact)
    'insertion du chrono sur le planning
    Me.Controls(Chrono).Value = Chro
    Me.Controls(Intitule).Value = Inti
    Me.Controls(Rang).Value = Rg
    Me.Controls(Datec).Value = Date_Contact
Else
    Me.Controls(Chrono).Value = Null
    Me.Controls(Intitule).Value = ""
    Me.Controls(Rang).Value = ""
    Me.Controls(Datec).Value = Null
End If
 
End Sub
Tout ces paramètres sont des noms de contrôle.

Je dois appeler cette fonction à chaque fois que je clique sur un bouton, mais je dois le faire avec 49 combinaison de paramètres.

J'aimerais donc savoir s'il existe des listes comme sous Virtual basic me permettant de stocker les noms de mes contrôle.

Cela me permettrais à l'aide d'une boucle d'appeler plusieurs fois ma procédure au lieu de la coller 49 fois.

merci à ceux qui prendront la peine de lire tout ça