Bonjour à tous et à toutes,

Je suis confrontée à un probleme depuis deux jours. Forum et autres tutos ne me donne réponse à mon probleme.
J'ai tenté la mise en place d'objet dans Access.
Je vous explique

j'ai un objet Staff dans lequel je déclare les propriétés etc.

j'ai un objet BDD_STAFF dans lequel je fais ceci :
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
 
Public Function Select_By_Login(vLogin As String) As Class_Staff()
    Dim rs As Recordset
    Dim wRcd As WrapperRecord
    Dim users() As Class_Staff
    Dim i As Integer
 
    Dim request As String
 
    request = SELECTc & ALL_INFORMATION & FROMc & TABLE & WHEREc & CRITERIA_ID & ANDc & CRITERIA_OUT_F
    request = Replace(request, "[Id]", vLogin)
 
    Set wRcd = New WrapperRecord
    Set rs = wRcd.executeRequest(request, CurrentDb)
    i = 0
    While Not rs.EOF
        MsgBox (rs.Fields(1))
        Set users(i) = mapping_staff_All(rs)
        i = i + 1
        rs.MoveNext
    Wend
    Set Select_By_Login = users
End Function
Mon request est alimenté par des constantes définies.
Mon wrapperRecord est un objet dans lequel je lance mes requetes (pour explication).
Mon Mapping alimente mon objet STAFF.
J'ai effectué des tests avec la récupération d'un seul enregistrement où je n'ai eu aucun probleme (structure idem).
J'ai seulement modifié pour qu'à la place d'un seul objet je récupère un tableau d'objet.
Ma fonction est lancé au chargement de mon formulaire mais voila PROBLEME : Erreur de compilation : Impossible d'affecter à un tableau.

Code sur chargement du formulaire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
    Dim BDD_STAFF As BDD_STAFF
    Dim tab_staff() as Class_Staff
    
    Set BDD_STAFF = New BDD_STAFF
    Set tab_staff = BDD_STAFF.Select_By_Login(Environ("USERNAME"))
Le compilateur relève l'erreur sur la ligne en rouge.

Merci d'avance.

Cordialement
@GLeviavant