Discussion :

[Fab_]

Après avoir parcouru des dizaines de pages sans succès je poste mon premier sujet.. J'ai le code suivant qui tourne sans problème en mode développeur, dès que j'accède à la DB en mode utilisateur la commande en rouge bloque, sans message d'erreur, le mail est bien créé mail il n'est pas envoyé ni effacé... une idée ??

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
 Dim rst As DAO.Recordset
Dim str As String
Dim rcd As DAO.Recordset
Dim qdf As QueryDef
Set rst = CurrentDb.OpenRecordset("select * from [Tbl_V]")
rst.MoveFirst
Do Until rst.EOF
str = "select * from Tbl_HUR where [SP]= '" & rst![v] & "'"
Set rcd = CurrentDb.OpenRecordset(str)
If rcd.RecordCount > 0 Then
Set qdf = CurrentDb.CreateQueryDef("TITRE - " & rst![v], str)
DoCmd.SendObject acSendQuery, qdf.Name, acFormatXLS, rst![recipient], , , qdf.Name, "TEXT", False
CurrentDb.QueryDefs.Delete qdf.Name
DoCmd.RunSQL "Delete from tbl_X where [sp] = '" & rst![v] & "'"
Set qdf = Nothing
End If
rst.MoveNext
Set rcd = Nothing
Loop
Set rst = Nothing

[mcdotta]

Hello,



Peut être une piste.....


Essaie d'assigner une variable à qdf.Name et rst![récipient] et l'utiliser dans ton DoCmd.SendObject

Code :

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

1
2
 
DoCmd.SendObject acSendQuery, strQueryName, acFormatXLS, strRecipient, , , strQueryName, "TEXT", Fals

[Fab_]

pas plus de succès.....

[mcdotta]

Est-ce que peux donner la valeur de tes variables et de tes objets ?

[Fab_]

c'est à dire ?

[mcdotta]

C'est quoi en rouge ?

Set qdf = CurrentDb.CreateQueryDef("TITRE - " & rst![v], str)

[Tofalu]

L'utilisateur à t'il le droit de créer des requêtes ?

[Fab_]

ok, c'est pas vraiment un select all, c'est :

Code :

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

1
2
Dim str as string
str = "select date1,date2,text1,text2,text3,number1 from Tbl_HUR where [SP]= '" & rst![v] & "'"

Pour les droits : je suis le "développeur" et en entrant perso la db en mode "utilisateur" le code ne fonctionne pas