Mit folgender Funktion müßte es klappen. Der Code funktioniert aber nicht in der DB selbst. Du mußt den Code von einer anderen DB aus starten.Function erzeuge_mde(mdbFile As String, mdeFile As String) As Integer On Error GoTo Err_MDE SysCmd 603, mdbFile, mdeFile erzeuge_mde = TrueExit_MDE: Exit FunctionErr_MDE: erzeuge_mde = False MsgBox Err.Description Resume Exit_MDEEnd Function

geschrieben von Klaus M. , 19.08.2000, 18:05 Uhr , 32 mal gelesen