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
Gilles MOUGNOZ
sBonjour à tous , y a t-il un moyen de tuer toutes les tables d'une DB se treminant par 1 (en une seule commande) exemple article1 client1 -- Amicalement et merci
Bonjour, Guy
Regarde sur cette page si tu trouves ton bonheur: http://access.developpez.com/faq/?page=TableEtRelation
Bonne continuation
sBonjour à tous ,
y a t-il un moyen de tuer toutes les tables d'une DB se treminant par 1
(en
une seule commande) exemple article1 client1
--
Amicalement et merci
Bonjour, Guy
Regarde sur cette page si tu trouves ton bonheur:
http://access.developpez.com/faq/?page=TableEtRelation
sBonjour à tous , y a t-il un moyen de tuer toutes les tables d'une DB se treminant par 1 (en une seule commande) exemple article1 client1 -- Amicalement et merci
Bonjour, Guy
Regarde sur cette page si tu trouves ton bonheur: http://access.developpez.com/faq/?page=TableEtRelation
Bonne continuation
Guy BRUSSON
Merci gilles,
Mais je chercher le moyen de delete les Tables importer pour mise a jours
cestables sont + 1 et la scruture des tables est toujours la même
Comment écrire pour faire une recherche automatique des tables sans les nomées -- Amicalement et merci
sBonjour à tous , y a t-il un moyen de tuer toutes les tables d'une DB se treminant par 1 (en une seule commande) exemple article1 client1 -- Amicalement et merci
Bonjour, Guy
Regarde sur cette page si tu trouves ton bonheur: http://access.developpez.com/faq/?page=TableEtRelation
Bonne continuation
Merci gilles,
Mais je chercher le moyen de delete les Tables importer pour mise a jours
cestables sont + 1 et la scruture des tables est toujours la même
Comment écrire pour faire une recherche automatique des tables sans les
nomées
--
Amicalement et merci
sBonjour à tous ,
y a t-il un moyen de tuer toutes les tables d'une DB se treminant par 1
(en
une seule commande) exemple article1 client1
--
Amicalement et merci
Bonjour, Guy
Regarde sur cette page si tu trouves ton bonheur:
http://access.developpez.com/faq/?page=TableEtRelation
Comment écrire pour faire une recherche automatique des tables sans les nomées -- Amicalement et merci
sBonjour à tous , y a t-il un moyen de tuer toutes les tables d'une DB se treminant par 1 (en une seule commande) exemple article1 client1 -- Amicalement et merci
Bonjour, Guy
Regarde sur cette page si tu trouves ton bonheur: http://access.developpez.com/faq/?page=TableEtRelation
Bonne continuation
3stone
Salut,
"Guy BRUSSON" | | Comment écrire pour faire une recherche automatique des tables sans les | nomées
Avec ceci :
Function fnDropTable() Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If Right(tdf.Name, 1) = "1" Then Debug.Print tdf.Name ' CurrentDb.Execute "DROP Table " & tdf.Name End If Next End Function
"Guy BRUSSON"
|
| Comment écrire pour faire une recherche automatique des tables sans les
| nomées
Avec ceci :
Function fnDropTable()
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If Right(tdf.Name, 1) = "1" Then
Debug.Print tdf.Name
' CurrentDb.Execute "DROP Table " & tdf.Name
End If
Next
End Function
"Guy BRUSSON" | | Comment écrire pour faire une recherche automatique des tables sans les | nomées
Avec ceci :
Function fnDropTable() Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If Right(tdf.Name, 1) = "1" Then Debug.Print tdf.Name ' CurrentDb.Execute "DROP Table " & tdf.Name End If Next End Function
Merci gilles, Mais je chercher le moyen de delete les Tables importer pour mise a jours cestables sont + 1 et la scruture des tables est toujours la même [Tb xxxxxxx1] 'DoCmd.DeleteObject acTable, fichier & "tb clients1" 'DoCmd.DeleteObject acTable, fichier & "tb Articles1" Comment écrire pour faire une recherche automatique des tables sans les nomées -- Amicalement et merci
Dans la première astuce, tu as un code qui parcourt l'ensemble des tables avec même un test sur le nom de la table. Tu modifie le test et c'est fini ! Bon, je te le fais:
Public Function xKillTable1() Dim BD As DAO.Database Set BD = CurrentDb Dim tb As DAO.TableDef For Each tb In BD.TableDefs If left(tb.name, 4) <> "MSys" And right(tb.name, 1) = "1" Then DoCmd.DeleteObject acTable, tb.name End If Next tb End Function
Bonne continuation
Merci gilles,
Mais je chercher le moyen de delete les Tables importer pour mise a jours
cestables sont + 1 et la scruture des tables est toujours la même
[Tb xxxxxxx1]
'DoCmd.DeleteObject acTable, fichier & "tb clients1"
'DoCmd.DeleteObject acTable, fichier & "tb Articles1"
Comment écrire pour faire une recherche automatique des tables sans les
nomées
--
Amicalement et merci
Dans la première astuce, tu as un code qui parcourt l'ensemble des tables
avec même un test sur le nom de la table.
Tu modifie le test et c'est fini !
Bon, je te le fais:
Public Function xKillTable1()
Dim BD As DAO.Database
Set BD = CurrentDb
Dim tb As DAO.TableDef
For Each tb In BD.TableDefs
If left(tb.name, 4) <> "MSys" And right(tb.name, 1) = "1" Then
DoCmd.DeleteObject acTable, tb.name
End If
Next tb
End Function
Merci gilles, Mais je chercher le moyen de delete les Tables importer pour mise a jours cestables sont + 1 et la scruture des tables est toujours la même [Tb xxxxxxx1] 'DoCmd.DeleteObject acTable, fichier & "tb clients1" 'DoCmd.DeleteObject acTable, fichier & "tb Articles1" Comment écrire pour faire une recherche automatique des tables sans les nomées -- Amicalement et merci
Dans la première astuce, tu as un code qui parcourt l'ensemble des tables avec même un test sur le nom de la table. Tu modifie le test et c'est fini ! Bon, je te le fais:
Public Function xKillTable1() Dim BD As DAO.Database Set BD = CurrentDb Dim tb As DAO.TableDef For Each tb In BD.TableDefs If left(tb.name, 4) <> "MSys" And right(tb.name, 1) = "1" Then DoCmd.DeleteObject acTable, tb.name End If Next tb End Function
