Discussion :

[ToxiZz]

Bonjour,

pour faciliter ma génération de recipients pour les mails/taches/meeting que je crée via mon application, j'ai essayer de créer 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
Public Function GetRecipients(ByVal taskId As Long) As recipients
    Dim recipients As recipients
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset( _
        "SELECT Tbl_WD11_Contacts.contactEmailBus " & _
        "FROM Tbl_WD11_Contacts INNER JOIN (Tbl_WD22_Tasks INNER JOIN Tbl_WD25_TaskInvolvement ON Tbl_WD22_Tasks.taskId = Tbl_WD25_TaskInvolvement.InvolvTaskId) ON Tbl_WD11_Contacts.ContactId = Tbl_WD25_TaskInvolvement.involvContactId " & _
        "WHERE (((Tbl_WD22_Tasks.taskId)=" & taskId & "))" _
    )
 
    Do While Not rs.EOF
        recipients.Add (rs.Fields("contactEmailBus"))
    Loop
 
    GetRecipients = recipients
 
    rs.Close
End Function

J'obtiens l'erreur suivante :

Run-time error '91':
Object variable or With block variable not set.

Apparement, il faut que j'initialise ma variable recipients avant de l'utiliser. Comment fait-on ca ?

[6ril25]

Salut,

A tout hasard: change le nom de ta variable (c'est comme

Code :

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

dim String as String

) et essaye de mettre

Code :

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

Set v_recipients.Add

sinon, où est l'erreur exactement?

6ril25

[ToxiZz]

j'ai modifier le nom de ma variable recipients en v_recipients mais j'ai toujours la même erreur

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
Public Function GetRecipients(ByVal taskId As Long) As recipients
    Dim v_recipients As recipients
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset( _
        "SELECT Tbl_WD11_Contacts.contactEmailBus " & _
        "FROM Tbl_WD11_Contacts INNER JOIN (Tbl_WD22_Tasks INNER JOIN Tbl_WD25_TaskInvolvement ON Tbl_WD22_Tasks.taskId = Tbl_WD25_TaskInvolvement.InvolvTaskId) ON Tbl_WD11_Contacts.ContactId = Tbl_WD25_TaskInvolvement.involvContactId " & _
        "WHERE (((Tbl_WD22_Tasks.taskId)=" & taskId & "))" _
    )
 
    Do While Not rs.EOF
        v_recipients.Add (rs.Fields("contactEmailBus"))
    Loop
 
    GetRecipients = v_recipients
 
    rs.Close
End Function

L'erreur se produit au moment du :

Code :

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

v_recipients.Add (rs.Fields("contactEmailBus"))

[6ril25]

et le Set??

[ToxiZz]

Erreur de syntaxe.

Compile error:

Expected: =

[6ril25]

peux-tu me donner le contenu de ton format "recipients"