Problème lié à l'utilisation de CreateQueryDef

Version imprimable

Bonjour

Mon code plante sur la ligne TransferSpreadsheet. Le moteur de données n'a pas pu trouver l'objet QryExportXLS
Il est pourtant bien créé
Code:

1 2 3 4 5 Dim q As DAO.QueryDef DoCmd.DeleteObject acQuery, "QryExportXLS" Set q = CurrentDb.CreateQueryDef("QryExportXLS", StrSql) DoCmd.TransferSpreadsheet acExport, , "QryExportXLS", StrFile, True DoCmd.DeleteObject acQuery, "QryExportXLS"
Quelqu'un aurait une idée ?

Merci d'avance

J'ai oublié de préciser que cette routine a fonctionné pendant plusieurs mois !
Au cas où on me le demande, je construis StrSql et StrFile

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
StrCritere = ""
StrSql = "SELECT QryFicheConfReport.*, Utilisateurs.Nom FROM QryFicheConfReport INNER JOIN Utilisateurs ON QryFicheConfReport.fiuser = Utilisateurs.ID"
If Not IsNull(Me.CmbType) Then
    StrFile = CurrentProject.Path & "\Reporting\" & "Report" & Me.CmbType & ".xlsx"
    StrCritere = " Where fitype = " & Chr(34) & Me.CmbType & Chr(34)
Else
    StrFile = CurrentProject.Path & "\Reporting\" & "ReportALL.xlsx"
End If
If Not IsNull(Me.CtlDateDebut) Then
    If StrCritere = "" Then
        StrCritere = " Where fidate >=#" & Format(Me.CtlDateDebut, "MM/DD/YYYY") & "#"
    Else
        StrCritere = StrCritere & " And fidate >=#" & Format(Me.CtlDateDebut, "MM/DD/YYYY") & "#"
    End If
End If
If Not IsNull(Me.CtlDateFin) Then
    If StrCritere = "" Then
        StrCritere = " Where fidate <#" & Format(Me.CtlDateFin + 1, "MM/DD/YYYY") & "#"
    Else
        StrCritere = StrCritere & " And fidate <#" & Format(Me.CtlDateFin + 1, "MM/DD/YYYY") & "#"
    End If
End If
StrTri = " Order by fitype, fidate"
StrSql = StrSql & StrCritere & StrTri

08/07/2024, 16h17
fclus

Je vais utiliser une autre méthode
Je clos le ticket

Salut,

Ce n'est pas très prudent de supprimer une requête sans s'assurer qu'elle existe au préalable.
Tu peux vérifier son existence via la collection QueryDefs.

Et tant qu'a faire, écrire une fonction utilitaire permettant de vérifier la présence d'un item quelconque dans une collection quelconque:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
Public Function ExistInCollection(ByVal Key As String, ByVal Col As Object) As Boolean
    ExistInCollection = ExistInCollectionByVal(Key, Col) Or ExistInCollectionByRef(Key, Col)
End Function
 
Private Function ExistInCollectionByVal(ByVal Key As String, ByVal Col As Object) As Boolean
On Error Goto Error
    Dim Item As Variant
    Item = Col(Key)
    ExistInCollectionByVal = True
Exit Function
Error:
    ExistInCollectionByVal = False
End Function
 
Private Function ExistInCollectionByRef(ByVal Key As String, ByVal Col As Object) As Boolean
On Error Goto Error
    Dim Item As Variant
    Set Item = Col(Key)
    ExistInCollectionByRef = True
Exit Function
Error:
    ExistInCollectionByRef = False
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim Db As DAO.Database
Set Db = CurrentDb
 
If(ExistInCollection("QryExportXLS", Db.QueryDefs)) Then
    Db.QueryDefs.Delete "QryExportXLS"
End If
 
Dim q As DAO.QueryDef
Set q = Db.CreateQueryDef("QryExportXLS", StrSql)
DoCmd.TransferSpreadsheet acExport, , "QryExportXLS", StrFile, True
Db.QueryDefs.Delete "QryExportXLS"