Déterminer l’existence d’une table ou requête

wpe2.gif (1107 octets)exemple.mdb

1ère possibillité

Function TableQueryExist(nom As String)
'but : Déterminer si une table ou requête existe
'nom : nom de la table ou requête dont on veut tester l'existence
'Retour : Retourne Vrai si la table ou requête existe, faux dans le cas contraire
Dim db As Database
Dim i As Integer
Set db = CurrentDb()
For i = 0 To db.TableDefs.Count - 1
If UCase(db.TableDefs(i).Name) = UCase(nom) Then
TableQueryExist = True
Exit Function
End If
Next i

For i = 0 To db.QueryDefs.Count - 1
If UCase(db.QueryDefs(i).Name) = UCase(nom) Then
TableQueryExist = True
Exit Function
End If
Next i
TableQueryExist = False
End Function

2ème possibillité

Function TableQueryExist(nom As String)
Const NAME_NOT_IN_COLLECTION = 3265
Dim Db As Database
Dim i As Integer
Dim test As String
Dim Trouve As Integer
Set Db = CurrentDb()

On Error Resume Next
test = Db.TableDefs(nom).Name
If Err <> NAME_NOT_IN_COLLECTION Then Trouve = True
Err = 0
test = Db.QueryDefs(nom).Name
If Err <> NAME_NOT_IN_COLLECTION Then Trouve = True
TableQueryExist = Trouve
End Function