Discussion :

[Invité]

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

[Invité]

Apres une dur nuit a réfléchir sur ce probleme.
J'ai eu une illumination.

Voila je n'ai pas declaré des tableaus du type de classe voulu mais j'ai remplacé cela par un objet Collection.
Ma fonction retourne une collection et je la récupère ainsi.

En plus de deux trois maladresses j'ai pu atteindre ce que je voulais.
donc pour ce que ca pourrait intéresser voila le nouveau code

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
Public Function Select_By_Login(vLogin As String) As Collection
    Dim rs As Recordset
    Dim wRcd As WrapperRecord
    Dim users As New Collection
    Dim user As Class_Staff
 
    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)
 
    While Not rs.EOF
        Set user = mapping_staff_All(rs)
        users.Add Item:=user
        rs.MoveNext
    Wend
    Set Select_By_Login = users
End Function

et dans la procédure qui fait appel a cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim BDD_STAFF As BDD_STAFF
    Dim tab_staf As Collection
    Dim user As Class_Staff
 
    Set BDD_STAFF = New BDD_STAFF
    Set tab_staff = BDD_STAFF.Select_By_Login(Environ("USERNAME"))
 
    Set user = New Class_Staff
    Set user = tab_staff.Item(1)