Problemstellung:
Wie kann man eine MDB bzw. ACCDB in eine MDE bzw. ACCDE mittels VBA konvertieren?
Die Funktion nutzt den undokumentierten Aufruf "603" von SysCmd.
Für MS-Access00-07
Public Sub ConvertInMDE(sSourceMDB As String, sTargetMDE As String) '------------------------------------------------------------------ ' Procedure : ConvertInMDE ' DateTime : 20.02.2008 14:57 ' Author : TommyK '------------------------------------------------------------------ ' Dim objAcc As Access.Application On Error GoTo ConvertInMDE_Error Set objAcc = CreateObject("Access.Application") objAcc.SysCmd 603, sSourceMDB, sTargetMDE Set objAcc = Nothing On Error GoTo 0 Exit Sub ConvertInMDE_Error: Dim strErrString As String strErrString = "Error Information..." & vbCrLf strErrString = strErrString & "Error#: " & Err.Number & vbCrLf strErrString = strErrString & "in Zeile: " & Erl & vbCrLf strErrString = strErrString & "Description: " & Err.Description MsgBox strErrString, vbCritical + vbOKOnly, _ "Error in procedure ConvertInMDE" End Sub
Die Sub erfordert 2 Parameter.
sSourceMDB = Der kopmplette Pfad der MDB(ACCDB)
sTargetMDE = Der komplette Pfad der zu erstellenden MDE (ACCDE)
Aufruf:
ConvertInMDE "E:\Access\test\tk_webbrowser00.mdb", _ "E:\Access\test\tk_webbrowser00.mde"
Das Ergebnis:
Die Datei "E:\Access\test\tk_webbrowser00.mdb" würde nach
"E:\Access\test\tk_webbrowser00.mde" konvertiert werden.
Ähnliche Artikel
