Discussion :

[012345]

bonjour,
j'aimerais savoir si il est possible d'écrire un instruction qui teste si une table ( de nom entré en parametre ) exite dans ma table ... avec le code suivant :

Code :

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

1
2
3
4
5
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Set oDb = CurrentDb
 
Je vous remercie d'avance.

[LeLaid]

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
Public Function TestTbl(Tbl As String) As Boolean 
  Dim mDb As DataBase 
  Dim tdf As TableDef
  Dim Test As Boolean 
 
  Set mDb = CurrentDb 
  Test = False 
 
  For Each tdf in mDb.TableDefs
    If tdf.Name = Req Then 
      Test = True 
    End If 
  Next tdf
 
  TestReq = Test 
End Function

[collignonm]

Il y a un code source pour tester l'existance d'une table:
http://access.developpez.com/faq/?pa...les#TableExist