Je cherche une fonction sous access qui permet de tester l'existence d'une table dans un fichier mdb.
ex : si la table existe alors "traitement" sinon "autre traitement"
Si quelqu'un peut m'aider !!! Merci d'avance. .
Gilbert
Bonjour
Voici ce que j'utilise:
Public Function ChercherTable(strTableName As String, Optional NomBase As String) As Boolean Dim Db As Database Dim i As Integer If NomBase = "" Then Set Db = DBEngine.Workspaces(0).Databases(0) Else Set Db = DBEngine.Workspaces(0).OpenDatabase(NomBase) End If ChercherTable = False Db.TableDefs.Refresh For i = 0 To Db.TableDefs.Count - 1 If strTableName = Db.TableDefs(i).Name Then 'la table existe ChercherTable = True Exit For End If Next i Set Db = Nothing End Function
Cordialement
Gilbert "Olivier" a écrit dans le message de news:1742401c418a7$8e106260$
Bonjour,
Je cherche une fonction sous access qui permet de tester l'existence d'une table dans un fichier mdb.
ex : si la table existe alors "traitement" sinon "autre traitement"
Si quelqu'un peut m'aider !!! Merci d'avance.
Bonjour
Voici ce que j'utilise:
Public Function ChercherTable(strTableName As String, Optional NomBase As
String) As Boolean
Dim Db As Database
Dim i As Integer
If NomBase = "" Then
Set Db = DBEngine.Workspaces(0).Databases(0)
Else
Set Db = DBEngine.Workspaces(0).OpenDatabase(NomBase)
End If
ChercherTable = False
Db.TableDefs.Refresh
For i = 0 To Db.TableDefs.Count - 1
If strTableName = Db.TableDefs(i).Name Then 'la table existe
ChercherTable = True
Exit For
End If
Next i
Set Db = Nothing
End Function
Cordialement
Gilbert
"Olivier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1742401c418a7$8e106260$a301280a@phx.gbl...
Bonjour,
Je cherche une fonction sous access qui permet de tester
l'existence d'une table dans un fichier mdb.
ex : si la table existe alors
"traitement"
sinon
"autre traitement"
Public Function ChercherTable(strTableName As String, Optional NomBase As String) As Boolean Dim Db As Database Dim i As Integer If NomBase = "" Then Set Db = DBEngine.Workspaces(0).Databases(0) Else Set Db = DBEngine.Workspaces(0).OpenDatabase(NomBase) End If ChercherTable = False Db.TableDefs.Refresh For i = 0 To Db.TableDefs.Count - 1 If strTableName = Db.TableDefs(i).Name Then 'la table existe ChercherTable = True Exit For End If Next i Set Db = Nothing End Function
Cordialement
Gilbert "Olivier" a écrit dans le message de news:1742401c418a7$8e106260$
Bonjour,
Je cherche une fonction sous access qui permet de tester l'existence d'une table dans un fichier mdb.
ex : si la table existe alors "traitement" sinon "autre traitement"