OVH Cloud OVH Cloud

compacter une base de données

1 réponse
Avatar
Zeus
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

1 réponse

Avatar
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
|
|