PDA

Vollständige Version anzeigen : Datenbankverschlüsselung mit VBA Access 97


horz10
20.12.2000, 16:24
Ich versuche von VBA die Datenbankverschlüsselung mit Übergabe des Pfades der zu verschlüsselnden Datenbank aufzurufen. Habe mich in der Access-Hilfe todgesucht doch keinen entsprechenden Befehl gefunden.
Bei Lösung mit Macro weiß ich nicht wie ich dem Macro den Pfad der Datenbank mitteilen kann, ohne daß die Msgbox zur Pfadeingabe geöffnet wird.

Manuela Kulpa
21.12.2000, 07:48
Hallo horz10!

Nutze dafür die CompactDatabase-Methode (s.a. OL-Hilfe), z.B.:

Public Sub DAOEncryptDatabase(sPath As String, sDatabase As String, sNewDatabase As String)

'Datenbank verschlüsseln
DBEngine.CompactDatabase sPath & "\" & sDatabase, _
sPath & "\" & sNewDatabase, , dbEncrypt

End Sub

LLAP