title image


Smiley Vorschlag für Routine
Private Sub GenerateMDEFile(ByVal dbPath As String) Dim appAcc As Access.Application Dim mdbPath As String, mdePath As String, tmpPath As String mdbPath = dbPath & ".mdb" mdePath = dbPath & ".mde" tmpPath = GetDbPath() & "Temp.mdb" On Error Resume Next Kill mdePath On Error GoTo GMF_Fehler DBEngine.CompactDatabase mdbPath, tmpPath Kill mdbPath Name tmpPath As mdbPath Set appAcc = CreateObject("Access.Application.8") SendKeys mdbPath & "{Enter}{Enter}" SendKeys "{Enter}" appAcc.DoCmd.RunCommand acCmdMakeMDEFileGMF_Ende: Set appAcc = Nothing Exit SubGMF_Fehler: MsgBox "Bitte überprüfen Sie, ob '" & mdbPath & "' existiert!" Resume GMF_EndeEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: