Public Function Compacter(SNomBase As String, Optional MotPasse As Variant)
Dim db As Database
Dim SNomBaseTmp As String
On Error GoTo Erreur
SNomBaseTmp = Left(SNomBase, Len(SNomBase) - Len(Dir(SNomBase))) &
BaseTmp
Set db = DAO.Workspaces(0).CreateDatabase(SNomBaseTmp, dbLangGeneral)
If (Not IsNull(MotPasse)) Then
DBEngine.CompactDatabase SNomBase, SNomBaseTmp
Else
DBEngine.CompactDatabase SNomBase, SNomBaseTmp
End If
Kill SNomBase
Name SNomBaseTmp As SNomBase
Erreur:
Afficher_Erreur err
End Function
mon problème est que ma base source (SNomBase) possède un mot de passe. j'ai
donc une erreur "mot de passe non valide"
Comment dois je proceder pour prendre en compte le mot de passe ?
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
RaphK34
Tu ne peux pas la Compacter à la fermeture tout simplement?
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"Zeus" a écrit dans le message de news:
| je voudrais compacter une Base de données par le code | j'ai la fonction suivante : | | Option Compare Database | Option Explicit | Const BaseTmp As String = "BaseTmp.mdb" | | | Public Function Compacter(SNomBase As String, Optional MotPasse As Variant) | Dim db As Database | Dim SNomBaseTmp As String | | On Error GoTo Erreur | SNomBaseTmp = Left(SNomBase, Len(SNomBase) - Len(Dir(SNomBase))) & | BaseTmp | Set db = DAO.Workspaces(0).CreateDatabase(SNomBaseTmp, dbLangGeneral) | | If (Not IsNull(MotPasse)) Then | DBEngine.CompactDatabase SNomBase, SNomBaseTmp | Else | DBEngine.CompactDatabase SNomBase, SNomBaseTmp | End If | Kill SNomBase | Name SNomBaseTmp As SNomBase | | Erreur: | Afficher_Erreur err | End Function | | mon problème est que ma base source (SNomBase) possède un mot de passe. j'ai | donc une erreur "mot de passe non valide" | | Comment dois je proceder pour prendre en compte le mot de passe ? | | merci d'avance | |
Tu ne peux pas la Compacter à la fermeture tout simplement?
--
@+ Raph.
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------
"Zeus" <davidboulonnais@aol.com> a écrit dans le message de news:
OVSSnyF3EHA.1152@TK2MSFTNGP14.phx.gbl...
| je voudrais compacter une Base de données par le code
| j'ai la fonction suivante :
|
| Option Compare Database
| Option Explicit
| Const BaseTmp As String = "BaseTmp.mdb"
|
|
| Public Function Compacter(SNomBase As String, Optional MotPasse As
Variant)
| Dim db As Database
| Dim SNomBaseTmp As String
|
| On Error GoTo Erreur
| SNomBaseTmp = Left(SNomBase, Len(SNomBase) - Len(Dir(SNomBase))) &
| BaseTmp
| Set db = DAO.Workspaces(0).CreateDatabase(SNomBaseTmp, dbLangGeneral)
|
| If (Not IsNull(MotPasse)) Then
| DBEngine.CompactDatabase SNomBase, SNomBaseTmp
| Else
| DBEngine.CompactDatabase SNomBase, SNomBaseTmp
| End If
| Kill SNomBase
| Name SNomBaseTmp As SNomBase
|
| Erreur:
| Afficher_Erreur err
| End Function
|
| mon problème est que ma base source (SNomBase) possède un mot de passe.
j'ai
| donc une erreur "mot de passe non valide"
|
| Comment dois je proceder pour prendre en compte le mot de passe ?
|
| merci d'avance
|
|
Tu ne peux pas la Compacter à la fermeture tout simplement?
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"Zeus" a écrit dans le message de news:
| je voudrais compacter une Base de données par le code | j'ai la fonction suivante : | | Option Compare Database | Option Explicit | Const BaseTmp As String = "BaseTmp.mdb" | | | Public Function Compacter(SNomBase As String, Optional MotPasse As Variant) | Dim db As Database | Dim SNomBaseTmp As String | | On Error GoTo Erreur | SNomBaseTmp = Left(SNomBase, Len(SNomBase) - Len(Dir(SNomBase))) & | BaseTmp | Set db = DAO.Workspaces(0).CreateDatabase(SNomBaseTmp, dbLangGeneral) | | If (Not IsNull(MotPasse)) Then | DBEngine.CompactDatabase SNomBase, SNomBaseTmp | Else | DBEngine.CompactDatabase SNomBase, SNomBaseTmp | End If | Kill SNomBase | Name SNomBaseTmp As SNomBase | | Erreur: | Afficher_Erreur err | End Function | | mon problème est que ma base source (SNomBase) possède un mot de passe. j'ai | donc une erreur "mot de passe non valide" | | Comment dois je proceder pour prendre en compte le mot de passe ? | | merci d'avance | |