Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
Stéphane Lavergne
Existe-t-il 1 moyen de vérifier si 1 table existe ?
Une fonction de chez Jessy :
Public Function TableExist(strTable As String) As Boolean TableExist = False For Each tdf In CurrentDb.TableDefs If tdf.Name = strTable Then TableExist = True Exit For End If Next End Function
PS: Fait un tour dans les sites donnés dans ma signature...
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Existe-t-il 1 moyen de vérifier si 1 table existe ?
Une fonction de chez Jessy :
Public Function TableExist(strTable As String) As Boolean
TableExist = False
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strTable Then
TableExist = True
Exit For
End If
Next
End Function
PS: Fait un tour dans les sites donnés dans ma signature...
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
Existe-t-il 1 moyen de vérifier si 1 table existe ?
Une fonction de chez Jessy :
Public Function TableExist(strTable As String) As Boolean TableExist = False For Each tdf In CurrentDb.TableDefs If tdf.Name = strTable Then TableExist = True Exit For End If Next End Function
PS: Fait un tour dans les sites donnés dans ma signature...
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Stéphane Lavergne
Merci,
Mais... En fait... désolé... j'ai trouvé en utilisant la gestion des erreurs :)
Stéphane
"3stone" a écrit dans le message de news:u$
Salut,
Stéphane Lavergne
Existe-t-il 1 moyen de vérifier si 1 table existe ?
Une fonction de chez Jessy :
Public Function TableExist(strTable As String) As Boolean TableExist = False For Each tdf In CurrentDb.TableDefs If tdf.Name = strTable Then TableExist = True Exit For End If Next End Function
PS: Fait un tour dans les sites donnés dans ma signature...
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Merci,
Mais... En fait... désolé... j'ai trouvé en utilisant la gestion des erreurs
:)
Stéphane
"3stone" <3stone@skynet.be> a écrit dans le message de
news:u$HqqWvRDHA.940@TK2MSFTNGP11.phx.gbl...
Existe-t-il 1 moyen de vérifier si 1 table existe ?
Une fonction de chez Jessy :
Public Function TableExist(strTable As String) As Boolean
TableExist = False
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strTable Then
TableExist = True
Exit For
End If
Next
End Function
PS: Fait un tour dans les sites donnés dans ma signature...
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
Mais... En fait... désolé... j'ai trouvé en utilisant la gestion des erreurs :)
Stéphane
"3stone" a écrit dans le message de news:u$
Salut,
Stéphane Lavergne
Existe-t-il 1 moyen de vérifier si 1 table existe ?
Une fonction de chez Jessy :
Public Function TableExist(strTable As String) As Boolean TableExist = False For Each tdf In CurrentDb.TableDefs If tdf.Name = strTable Then TableExist = True Exit For End If Next End Function
PS: Fait un tour dans les sites donnés dans ma signature...
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
