OVH Cloud OVH Cloud

Créer un mot de passe d'une BD attachée

9 réponses
Avatar
codial
Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut changer. A
savoir que l'on peut, par exemple, consulter une base de l'année N-1, et
c'est au moment ou l'attache des tables devrait s'effectuer que j'ai ce
message d'erreur.

Par ailleurs est il possible, au moment de la création d'une nouvelle base
de donnée, que j'effectue à partir d'un modèle avec les tables vides et
d'un formulaire qui permet de copier le modèle dans le répertoire courant de
l'appli et de lui donner un nouveau nom pour commencer une nouvelle année de
gestion , de créer par code VB le mot de passe de cette nouvelle base?

j'espère avoir été clair

D'avance merci

Codial

9 réponses

Avatar
Jessy SEMPERE
Bonjour

si tu passes par la méthode CreateDatabase, tu peux :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral, ";pwd=NewPassword"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut changer.
A

savoir que l'on peut, par exemple, consulter une base de l'année N-1, et
c'est au moment ou l'attache des tables devrait s'effectuer que j'ai ce
message d'erreur.

Par ailleurs est il possible, au moment de la création d'une nouvelle base
de donnée, que j'effectue à partir d'un modèle avec les tables vides et
d'un formulaire qui permet de copier le modèle dans le répertoire courant
de

l'appli et de lui donner un nouveau nom pour commencer une nouvelle année
de

gestion , de créer par code VB le mot de passe de cette nouvelle base?

j'espère avoir été clair

D'avance merci

Codial




Avatar
codial
Ok, merci
mais là il faut que je recré toute ma nouvelle base par code VB, a savoir
les tables les relations et tout, non?
N'est il pas possible de créer ce mot de passe au moment ou j'attache les
tables de ma base modèle?

Merci

codial

"Jessy SEMPERE" a écrit dans le message de
news:brkhof$7g6$
Bonjour

si tu passes par la méthode CreateDatabase, tu peux :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral,
";pwd=NewPassword"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut
changer.


A
savoir que l'on peut, par exemple, consulter une base de l'année N-1, et
c'est au moment ou l'attache des tables devrait s'effectuer que j'ai ce
message d'erreur.

Par ailleurs est il possible, au moment de la création d'une nouvelle
base


de donnée, que j'effectue à partir d'un modèle avec les tables vides et
d'un formulaire qui permet de copier le modèle dans le répertoire
courant


de
l'appli et de lui donner un nouveau nom pour commencer une nouvelle
année


de
gestion , de créer par code VB le mot de passe de cette nouvelle base?

j'espère avoir été clair

D'avance merci

Codial








Avatar
Jessy SEMPERE
Re,

Ben je ne sais pas comment tu procède mais tu peux
facilement créer ta base avec CreateDatabase et
ensuite tu n'as plus qu'à copier tes tables en utilisant
docmd.copyobject

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:
#
Ok, merci
mais là il faut que je recré toute ma nouvelle base par code VB, a savoir
les tables les relations et tout, non?
N'est il pas possible de créer ce mot de passe au moment ou j'attache les
tables de ma base modèle?

Merci

codial

"Jessy SEMPERE" a écrit dans le message de
news:brkhof$7g6$
Bonjour

si tu passes par la méthode CreateDatabase, tu peux :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral,
";pwd=NewPassword"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut
changer.


A
savoir que l'on peut, par exemple, consulter une base de l'année N-1,
et



c'est au moment ou l'attache des tables devrait s'effectuer que j'ai
ce



message d'erreur.

Par ailleurs est il possible, au moment de la création d'une nouvelle
base


de donnée, que j'effectue à partir d'un modèle avec les tables vides
et



d'un formulaire qui permet de copier le modèle dans le répertoire
courant


de
l'appli et de lui donner un nouveau nom pour commencer une nouvelle
année


de
gestion , de créer par code VB le mot de passe de cette nouvelle
base?




j'espère avoir été clair

D'avance merci

Codial












Avatar
codial
Merci, j'essaie
et tu sais comment faire après pour attacher les tables avec le mot de
passe?

"Jessy SEMPERE" a écrit dans le message de
news:brkj7e$8i9$
Re,

Ben je ne sais pas comment tu procède mais tu peux
facilement créer ta base avec CreateDatabase et
ensuite tu n'as plus qu'à copier tes tables en utilisant
docmd.copyobject

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:
#
Ok, merci
mais là il faut que je recré toute ma nouvelle base par code VB, a
savoir


les tables les relations et tout, non?
N'est il pas possible de créer ce mot de passe au moment ou j'attache
les


tables de ma base modèle?

Merci

codial

"Jessy SEMPERE" a écrit dans le message de
news:brkhof$7g6$
Bonjour

si tu passes par la méthode CreateDatabase, tu peux :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral,
";pwd=NewPassword"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut
changer.


A
savoir que l'on peut, par exemple, consulter une base de l'année
N-1,




et
c'est au moment ou l'attache des tables devrait s'effectuer que j'ai
ce



message d'erreur.

Par ailleurs est il possible, au moment de la création d'une
nouvelle




base
de donnée, que j'effectue à partir d'un modèle avec les tables
vides




et
d'un formulaire qui permet de copier le modèle dans le répertoire
courant


de
l'appli et de lui donner un nouveau nom pour commencer une nouvelle
année


de
gestion , de créer par code VB le mot de passe de cette nouvelle
base?




j'espère avoir été clair

D'avance merci

Codial
















Avatar
codial
J'ai essayé ça:
DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral, ";pwd=toto"
mais j'ai un message d'erreur n°3421 "Erreur de conversion de type de
données"

Codial

"Jessy SEMPERE" a écrit dans le message de
news:brkhof$7g6$
Bonjour

si tu passes par la méthode CreateDatabase, tu peux :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral,
";pwd=NewPassword"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut
changer.


A
savoir que l'on peut, par exemple, consulter une base de l'année N-1, et
c'est au moment ou l'attache des tables devrait s'effectuer que j'ai ce
message d'erreur.

Par ailleurs est il possible, au moment de la création d'une nouvelle
base


de donnée, que j'effectue à partir d'un modèle avec les tables vides et
d'un formulaire qui permet de copier le modèle dans le répertoire
courant


de
l'appli et de lui donner un nouveau nom pour commencer une nouvelle
année


de
gestion , de créer par code VB le mot de passe de cette nouvelle base?

j'espère avoir été clair

D'avance merci

Codial








Avatar
Jessy SEMPERE
Oui c'est normal, je t'ai dis des bétises...

essais :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral & ";pwd=toto"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

J'ai essayé ça:
DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral, ";pwd=toto"
mais j'ai un message d'erreur n°3421 "Erreur de conversion de type de
données"

Codial

"Jessy SEMPERE" a écrit dans le message de
news:brkhof$7g6$
Bonjour

si tu passes par la méthode CreateDatabase, tu peux :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral,
";pwd=NewPassword"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut
changer.


A
savoir que l'on peut, par exemple, consulter une base de l'année N-1,
et



c'est au moment ou l'attache des tables devrait s'effectuer que j'ai
ce



message d'erreur.

Par ailleurs est il possible, au moment de la création d'une nouvelle
base


de donnée, que j'effectue à partir d'un modèle avec les tables vides
et



d'un formulaire qui permet de copier le modèle dans le répertoire
courant


de
l'appli et de lui donner un nouveau nom pour commencer une nouvelle
année


de
gestion , de créer par code VB le mot de passe de cette nouvelle
base?




j'espère avoir été clair

D'avance merci

Codial












Avatar
codial
Ok merci ça marche,
Mais maintenant il faut que j'arrive à copier les tables vides de ma base
modèle ainsi que les relations vers ma nouvelle base!
c'est possible avec docmd.copyobject ?

codial






"Jessy SEMPERE" a écrit dans le message de
news:brkkhq$97r$
Oui c'est normal, je t'ai dis des bétises...

essais :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral & ";pwd=toto"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

J'ai essayé ça:
DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral, ";pwd=toto"
mais j'ai un message d'erreur n°3421 "Erreur de conversion de type de
données"

Codial

"Jessy SEMPERE" a écrit dans le message de
news:brkhof$7g6$
Bonjour

si tu passes par la méthode CreateDatabase, tu peux :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral,
";pwd=NewPassword"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut
changer.


A
savoir que l'on peut, par exemple, consulter une base de l'année
N-1,




et
c'est au moment ou l'attache des tables devrait s'effectuer que j'ai
ce



message d'erreur.

Par ailleurs est il possible, au moment de la création d'une
nouvelle




base
de donnée, que j'effectue à partir d'un modèle avec les tables
vides




et
d'un formulaire qui permet de copier le modèle dans le répertoire
courant


de
l'appli et de lui donner un nouveau nom pour commencer une nouvelle
année


de
gestion , de créer par code VB le mot de passe de cette nouvelle
base?




j'espère avoir été clair

D'avance merci

Codial
















Avatar
Jessy SEMPERE
Re,
Mais maintenant il faut que j'arrive à copier les tables vides de ma base
modèle ainsi que les relations vers ma nouvelle base!
c'est possible avec docmd.copyobject ?


Ben il faudra le faire en 2 temps...

D'abord tu fais la copie des table et ensuite tu mets à jour
les attaches de tables...

Exemple pour les attaches histoire de te mettre sur la voie... :
***********************************************

Public Function ActualiserAttaches(strDb As String) As Boolean
'** Actualisation des attaches de tables qui se trouve
'** dans la base de donnée spécifiée dans "strDb"
Dim db As Database
Dim tdf As TableDef
Dim tdfNew As TableDef

Set db = OpenDatabase(strDb)
For Each tdf In db.TableDefs
Set tdfNew = CurrentDb.TableDefs(tdf.Name)
tdfNew.Connect = ";DATABASE=" & strDb
Err = 0
On Error Resume Next
tdfNew.RefreshLink
If Err <> 0 Then: ActualiserAttaches = False: Exit Function
Next
ActualiserAttaches = True

End Function
***********************************************


--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------

Avatar
Jessy SEMPERE
Et sinon pour la copie des tables, voilà une autre piste...

http://access.jessy.free.fr/index.html?Menu=2&Page=ExportStructureTable

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Ok merci ça marche,
Mais maintenant il faut que j'arrive à copier les tables vides de ma base
modèle ainsi que les relations vers ma nouvelle base!
c'est possible avec docmd.copyobject ?

codial






"Jessy SEMPERE" a écrit dans le message de
news:brkkhq$97r$
Oui c'est normal, je t'ai dis des bétises...

essais :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral & ";pwd=toto"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

J'ai essayé ça:
DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral, ";pwd=toto"
mais j'ai un message d'erreur n°3421 "Erreur de conversion de type de
données"

Codial

"Jessy SEMPERE" a écrit dans le message de
news:brkhof$7g6$
Bonjour

si tu passes par la méthode CreateDatabase, tu peux :

DBEngine.CreateDatabase "c:Base.mdb", dbLangGeneral,
";pwd=NewPassword"


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"codial" a écrit dans le message news:

Bonjour,

Suite à mon précédent post je précise que que la BD attachée peut
changer.


A
savoir que l'on peut, par exemple, consulter une base de l'année
N-1,




et
c'est au moment ou l'attache des tables devrait s'effectuer que
j'ai





ce
message d'erreur.

Par ailleurs est il possible, au moment de la création d'une
nouvelle




base
de donnée, que j'effectue à partir d'un modèle avec les tables
vides




et
d'un formulaire qui permet de copier le modèle dans le répertoire
courant


de
l'appli et de lui donner un nouveau nom pour commencer une
nouvelle





année
de
gestion , de créer par code VB le mot de passe de cette nouvelle
base?




j'espère avoir été clair

D'avance merci

Codial