TKSoft-Online

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