[VBA][ACCESS 2003] Test d'existance d'une requête/table

**|DUCATI| DesMo** · 09/07/2008, 10h29

Bonjour à tous,
en m'inspirant des différentes sources des FaQ et du forum, et après quelques essais infructueux, je souhaite faire une petite fonction qui me retourne vrai/faux en fonction de l'existance d'une requête.

Le problème est que le code ci dessous n'a pas l'air de prendre en compte le On Error Goto err.

Et du coup je me retrouve avec un plantage "3265 Item not found in this collection" sur le Set oQdf = oDb.QueryDefs(strQname)

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
Public Function TestExistQuery(strQname As String) As Boolean
'-------------------------------------------------------------------------------------------------------------'
'|  Purpose                : Test if a query is existing within the DB
'|  Linked Function(s)     :
'|  Parameters             : strQname
'-------------------------------------------------------------------------------------------------------------'
    On Error GoTo err
    Dim oDb As DAO.Database
    Dim oQdf  As DAO.QueryDef
 
    'access to the db
    Set oDb = CurrentDb
    Set oQdf = oDb.QueryDefs(strQname)
    'return true
    TestExistQuery = True
    Resume fin
fin:
    Set oDb = Nothing
    Set oQdf = Nothing
    Exit Function
err:
    'if erreur <> 3265 => query not exist raise the error
    If err.Number <> 3265 Then
        err.Raise err.Number, err.Source, err.Description
    End If
    Resume fin
 
End Function

un petit coup de main...

**Jean-Philippe André** · 09/07/2008, 11h09

Salut,
à peu de choses près, c'est bon :

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
'*****************************
'fonction de test d'existence d'une requête par les propriétés VBA
'input = nom de la requête
'output = booleen
'*****************************
Function PresenceQuery(strName As String) As Boolean
'Pour fonctionner ce code nécessite la référence
'   - Microsoft DAO X Object Library
On Error GoTo err
    Dim oDb As dao.Database
    Dim oQdf  As dao.QueryDef
    PresenceQuery = False
    'Accède à la base de données courante
    Set oDb = CurrentDb
    Set oQdf = oDb.QueryDefs(strName)
    'Retourne Vrai
    PresenceQuery = True
 
fin:
    'Libère les objets
    Set oDb = Nothing
    Set oQdf = Nothing
    Exit Function
err:
    'Remonte toutes les erreurs différents de l'erreur 3265
    '(la requête n'existe pas)
 
    If err.Number <> 3265 Then
        err.Raise err.Number, err.Source, err.Description
    End If
    Resume fin
 
End Function

**|DUCATI| DesMo** · 09/07/2008, 11h15

Merci jpcheck,

mais malheureusement ça ne marche pas, j'ai exactement la même erreur au même endroit.

Pourtant j'ai bien une référence à DAO 3.6

Je m'arrache les cheveux

**|DUCATI| DesMo** · 09/07/2008, 11h17

j'ai vraiment l'impression que c'est le

Code :

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

On Error GoTo err

qui n'est pas pris en compte

**Jean-Philippe André** · 09/07/2008, 11h25

Bon sinon, autre méthode hein :

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
Function PresenceQuery(strName As String) As Boolean
'Pour fonctionner ce code nécessite la référence
'   - Microsoft DAO X Object Library
 
    Dim oDb As dao.Database
    Dim oQdf  As dao.QueryDef
    PresenceQuery = False
    'Accède à la base de données courante
    Set oDb = CurrentDb
    For each oQdf in CurrentDb.QueryDefs
         If oQdf.Name = strName Then
    'Retourne Vrai
             PresenceQuery = True
         End If
    Next
fin:
    'Libère les objets
    Set oDb = Nothing
    Set oQdf = Nothing
 
End Function