Hi Cracks,
mit nachfolgendem Code will ich in einem festgelegten Verzeichnis diverse Datenbanken (MDE) mit einem Kennwort versehen. Bis dato musste ich das immer von Hand machen.
Hier der Code:
Public Function kennwort()
Dim wrkJet As Workspace
Dim db, dbs As Database
Dim rs As Recordset
Dim vquelle, xname, xkennwort As String
Set wrkJet = CreateWorkspace("", „Admin“, „“, dbUseJet)
Set db = CurrentDb
Set rs = db.OpenRecordset(„Dateien“)
rs.MoveFirst
Do Until rs.EOF
xname = rs!dateiname
xkennwort = rs!pw
vquelle = („c:\kh\freereport\aktuell“ & xname)
Set dbs = wrkJet.OpenDatabase(vquelle, True)
dbs.NewPassword „“, xkennwort
dbs.Close
wrkJet.Close
Set dbs = Nothing
rs.MoveNext
Loop
Set dbs = Nothing
End Function
Jetzt das Problem: Die ganze Function klappt wunderbar, wenn es sich um eine MDB(!!!) handelt. Bei einer MDE sagt er mir, dass mir die Berechtigung zum Ändern des Kennwortes fehlt, obwohl ich sie im excl. Modus öffne. Von Hand geht das aber. Warum??? Und wie kann ich das umgehen?
Danke für eure Hilfe.
Gruß
Dylan