Discussion :

[Aurèl90]

Bonjour

Je désire exécuter le code suivant :

Code :

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

1
2
3
4
 
If IsTable("savdate") = True Then
        Drop_Table ("savdate")
        sSql = "CREATE TABLE savdate ([date] TEXT(8))"

Mais quand je l'exécute, Access me dit "Sub ou fonction non définie".
Alors que j'ai le même code qui se répète à plusieurs endroits dans la base,et ça marche ! Alors pourquoi pas là ?

[R0cKW|LDeR]

IsTable c'est une fonction que tu as créé ? Elle est dans un module de ton application ou dans un formulaire ?

Je crois que pour pouvoir utiliser ta fonction partout il faut qu'elle soit déclarée public dans un module. Essaie déjà ça pour voir

[keita]

Salut
C'est pour verifier l'existence d'une table dans la BD?
si oui ta version d'access?
@+

[Tofalu]

En ajoutant une référence Microsoft DAO au projet :

Code :

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

1
2
3
4
5
6
7
8
9
Function IsTable(strNomTable As String) As Boolean
On Error GoTo err
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Set oDb = CurrentDb
Set oTbl = oDb.TableDefs(strNomTable)
IsTable = True
err:
End Function