J'ai un petit souci avec mon module de restauration qui importe des tables
depuis mon fichier de sauvegarde :
1°) Le tables de mon application MDE sont masquées.
2°) Quand je copie ces tables vers ma sauvegarde, l'attribut "hidden"
disparait (un comble ... essayez de faire disparaitre une chose déjà masquée
dans la vie de tous les jours...)
3°) Idem lorsque j'importe ces tables depuis ma sauvegarde. Dans
l'application elles étaient masquées, et après les actions
"sauvegarde/restauration" elles ne sont plus masquées.
Existe t-il un moyen en VBA de re-masquer les tables importées depuis la
sauvegarde ?
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
Jessy Sempere [MVP]
Bonjour
Voici un petit exemple de code permettant de masquer ou non toutes les tables d'une base de donnée... Tu peux l'adapter pour masquer qu'une table.
PS : Par contre de mémoire je m'étais fait avoir je crois que sous Access 97 en tous cas, ces objets qui ont comme attribut dbHiddenObject, sont supprimer lors du compactage de la base... Vérifies avant.
*********************************************************** Public Function HiddenTable(blnHidden As Boolean) Dim Db As Database, tdf As TableDef Set Db = CurrentDb For Each tdf In Db.TableDefs If blnHidden = True Then If left(tdf.name, 4) <> "MSys" Then _ tdf.Attributes = dbHiddenObject Else If left(tdf.name, 4) <> "MSys" Then _ tdf.Attributes = 0 End If Next Db.Close: Set Db = Nothing End Function ***********************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Alberto" a écrit dans le message news:
Bonsoir
J'ai un petit souci avec mon module de restauration qui importe des tables depuis mon fichier de sauvegarde :
1°) Le tables de mon application MDE sont masquées.
2°) Quand je copie ces tables vers ma sauvegarde, l'attribut "hidden" disparait (un comble ... essayez de faire disparaitre une chose déjà masquée
dans la vie de tous les jours...)
3°) Idem lorsque j'importe ces tables depuis ma sauvegarde. Dans l'application elles étaient masquées, et après les actions "sauvegarde/restauration" elles ne sont plus masquées.
Existe t-il un moyen en VBA de re-masquer les tables importées depuis la sauvegarde ?
Merci de votre aide.
-- Alberto bobo tête ...
Bonjour
Voici un petit exemple de code permettant de masquer ou non toutes les
tables
d'une base de donnée... Tu peux l'adapter pour masquer qu'une table.
PS : Par contre de mémoire je m'étais fait avoir je crois que sous Access 97
en tous cas,
ces objets qui ont comme attribut dbHiddenObject, sont supprimer lors du
compactage
de la base... Vérifies avant.
***********************************************************
Public Function HiddenTable(blnHidden As Boolean)
Dim Db As Database, tdf As TableDef
Set Db = CurrentDb
For Each tdf In Db.TableDefs
If blnHidden = True Then
If left(tdf.name, 4) <> "MSys" Then _
tdf.Attributes = dbHiddenObject
Else
If left(tdf.name, 4) <> "MSys" Then _
tdf.Attributes = 0
End If
Next
Db.Close: Set Db = Nothing
End Function
***********************************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Alberto" <Alberto@discussions.microsoft.com> a écrit dans le message news:
8122799A-CFEB-4F89-A7BF-26939D7CE9D7@microsoft.com...
Bonsoir
J'ai un petit souci avec mon module de restauration qui importe des tables
depuis mon fichier de sauvegarde :
1°) Le tables de mon application MDE sont masquées.
2°) Quand je copie ces tables vers ma sauvegarde, l'attribut "hidden"
disparait (un comble ... essayez de faire disparaitre une chose déjà
masquée
dans la vie de tous les jours...)
3°) Idem lorsque j'importe ces tables depuis ma sauvegarde. Dans
l'application elles étaient masquées, et après les actions
"sauvegarde/restauration" elles ne sont plus masquées.
Existe t-il un moyen en VBA de re-masquer les tables importées depuis la
sauvegarde ?
Voici un petit exemple de code permettant de masquer ou non toutes les tables d'une base de donnée... Tu peux l'adapter pour masquer qu'une table.
PS : Par contre de mémoire je m'étais fait avoir je crois que sous Access 97 en tous cas, ces objets qui ont comme attribut dbHiddenObject, sont supprimer lors du compactage de la base... Vérifies avant.
*********************************************************** Public Function HiddenTable(blnHidden As Boolean) Dim Db As Database, tdf As TableDef Set Db = CurrentDb For Each tdf In Db.TableDefs If blnHidden = True Then If left(tdf.name, 4) <> "MSys" Then _ tdf.Attributes = dbHiddenObject Else If left(tdf.name, 4) <> "MSys" Then _ tdf.Attributes = 0 End If Next Db.Close: Set Db = Nothing End Function ***********************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Alberto" a écrit dans le message news:
Bonsoir
J'ai un petit souci avec mon module de restauration qui importe des tables depuis mon fichier de sauvegarde :
1°) Le tables de mon application MDE sont masquées.
2°) Quand je copie ces tables vers ma sauvegarde, l'attribut "hidden" disparait (un comble ... essayez de faire disparaitre une chose déjà masquée
dans la vie de tous les jours...)
3°) Idem lorsque j'importe ces tables depuis ma sauvegarde. Dans l'application elles étaient masquées, et après les actions "sauvegarde/restauration" elles ne sont plus masquées.
Existe t-il un moyen en VBA de re-masquer les tables importées depuis la sauvegarde ?
Merci de votre aide.
-- Alberto bobo tête ...
Alberto
Merci Jessy
J'va essayer ça de ce pas et voir c'que ça donne sous 2003.
Voilà que j'fais des rimes maintenant. C'est grave doc ?
-- Alberto bobo tête ...
Bonjour
Voici un petit exemple de code permettant de masquer ou non toutes les tables d'une base de donnée... Tu peux l'adapter pour masquer qu'une table.
PS : Par contre de mémoire je m'étais fait avoir je crois que sous Access 97 en tous cas, ces objets qui ont comme attribut dbHiddenObject, sont supprimer lors du compactage de la base... Vérifies avant.
*********************************************************** Public Function HiddenTable(blnHidden As Boolean) Dim Db As Database, tdf As TableDef Set Db = CurrentDb For Each tdf In Db.TableDefs If blnHidden = True Then If left(tdf.name, 4) <> "MSys" Then _ tdf.Attributes = dbHiddenObject Else If left(tdf.name, 4) <> "MSys" Then _ tdf.Attributes = 0 End If Next Db.Close: Set Db = Nothing End Function ***********************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------
Merci Jessy
J'va essayer ça de ce pas et voir c'que ça donne sous 2003.
Voilà que j'fais des rimes maintenant. C'est grave doc ?
--
Alberto bobo tête ...
Bonjour
Voici un petit exemple de code permettant de masquer ou non toutes les
tables
d'une base de donnée... Tu peux l'adapter pour masquer qu'une table.
PS : Par contre de mémoire je m'étais fait avoir je crois que sous Access 97
en tous cas,
ces objets qui ont comme attribut dbHiddenObject, sont supprimer lors du
compactage
de la base... Vérifies avant.
***********************************************************
Public Function HiddenTable(blnHidden As Boolean)
Dim Db As Database, tdf As TableDef
Set Db = CurrentDb
For Each tdf In Db.TableDefs
If blnHidden = True Then
If left(tdf.name, 4) <> "MSys" Then _
tdf.Attributes = dbHiddenObject
Else
If left(tdf.name, 4) <> "MSys" Then _
tdf.Attributes = 0
End If
Next
Db.Close: Set Db = Nothing
End Function
***********************************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
J'va essayer ça de ce pas et voir c'que ça donne sous 2003.
Voilà que j'fais des rimes maintenant. C'est grave doc ?
-- Alberto bobo tête ...
Bonjour
Voici un petit exemple de code permettant de masquer ou non toutes les tables d'une base de donnée... Tu peux l'adapter pour masquer qu'une table.
PS : Par contre de mémoire je m'étais fait avoir je crois que sous Access 97 en tous cas, ces objets qui ont comme attribut dbHiddenObject, sont supprimer lors du compactage de la base... Vérifies avant.
*********************************************************** Public Function HiddenTable(blnHidden As Boolean) Dim Db As Database, tdf As TableDef Set Db = CurrentDb For Each tdf In Db.TableDefs If blnHidden = True Then If left(tdf.name, 4) <> "MSys" Then _ tdf.Attributes = dbHiddenObject Else If left(tdf.name, 4) <> "MSys" Then _ tdf.Attributes = 0 End If Next Db.Close: Set Db = Nothing End Function ***********************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------
