Discussion :

[|DUCATI| DesMo]

Bonjour à tous,

Voilà dans un petit appli, j'ai à créer dynamiquement des requêtes en me basant sur le tuto de Christophe WARIN j'ai écris 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Function TestExistQuery(strQname As String) As Boolean
'-------------------------------------------------------------------------------------------------------------'
'|  Purpose                : Test if a query is exinsting within the DB
'|  Linked Function(s)     :
'|  Parameters             : strQname
'-------------------------------------------------------------------------------------------------------------'
    On Error GoTo Err
    Dim oDb As DAO.DataBase
    Dim QryTest As DAO.QueryDef
 
    Set oDb = CurrentDb
 
    Set QryTest = oDb.QueryDefs(strQname)
    TestExistQuery = True
Err:
End Function
 
Public Sub CreateQuery(strQname As String, StrQString As String)
    '-------------------------------------------------------------------------------------------------------------'
    '|  Purpose                : If the query not exist create it, if the query exist modify it
    '|  Linked Function(s)     : TestExistQuery
    '|  Parameters             : strQname, StrQString
    '-------------------------------------------------------------------------------------------------------------'
    On Error GoTo Err:
    Dim oDb As DAO.DataBase
    Dim QryDefs As DAO.QueryDef
    Set oDb = CurrentDb
 
    If TestExistQuery(strQname) Then
        oDb.QueryDefs(strQname).Sql = StrQString
    Else
        oDb.CreateQueryDef(strQname).Sql = StrQString
    End If
    QryDefs.Close
    oDb.Close
    Set oDb = Nothing
 
Err:
    MsgBox "Error", vbCritical
 
End Sub

Et losque j'appele la fonction CreateQuery comme ceci :

Code :

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

1
2
 
CreateQuery "ALGO#REFERENTIAL#SALES", QSales

J'ai une Erreur sur Qsales de type "Compile Error : ByRef Argument Type Mismatch"
Qsales est bien déclaré en String
Une idée ?
D'avance merci.

[|DUCATI| DesMo]

Je crois que j'ai trouvé en forçant l'évaluation de Qsales

Code :

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

CreateQuery "ALGO#REFERENTIAL#SALES", (QSales)