Search  

   

Latest News  

Problemstellung:Wenn man Etiketten drucken will steht man oft vor einigen Problemen.1. Man möchte nur ein paar Etiketten drucken und beim nächsten Druck braucht man wieder   ein neues Blatt weil freie...
   

Latest Forumposts  

  • Keine Beiträge vorhanden
   

Kommentare  

Tut mir leid Hella, ich kann Dir nicht folgen? 13.04.2017 - 14.04.2017 ergibt bei mir 1 13.04.2017 -...
Gast - Hella
Hallo, Berechne wie folgt, ob "zu früh" oder "zu spät" Rückmeldet. Früher sollte auch mit negativer ...
Gast - Hella
Hallo, mit negativen Werten meine ich z.B. -5 Tage (ohne Wochenende) u.ä. Zur Zeit wird nur die 0 au...
Hallo Hella, wie negative Werte? Kannst Du es erläutern was Du machen willst? Gruß Tommy
Gast - Hella
Hallo, ich bräuchte auch negative Werte bei der Anzahl, wie kann man das realisieren? Liebe Grüße He...
   

Counter  

1115631
HeuteHeute116
GesternGestern1114
Diese WocheDiese Woche2362
Dieser MonatDieser Monat23843
GesamtGesamt1115631
Highest 07.12.2017 : 1250
US
UNITED STATES
US

This page uses the IP-to-Country Database provided by WebHosting.Info (http://www.webhosting.info), available from http://ip-to-country.webhosting.info

   

Download Statistik  

Diese Site enthält 187 Downloads in 30 Kategorien. Gesamtdownloads bisher: 234324
   
Free live stats and visitor counter for Joomla, Wordpress, Drupal, Magento and Prestashop
   

Login

   

User Online

Total: 53 Members: 0 Guests: 53
No members online
   

Beiträge

MDB per VBA in MDE konvertieren

Bewertung:  / 1
SchwachSuper 
Details

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.

Einen Kommentar verfassen

Als Gast kommentieren

0 / 300 Zeichen Beschränkung
Dein Text sollte zwischen 10-300 Zeichen lang sein
Nutzungsbedingungen.

Personen in dieser Konversation

  • Gast - Anna

    Erstmal Danke. Mein Problem:
    Die Befehle werden ausgeführt.
    Es wird kein Fehler geworfen.
    Die accde wird jedoch NICHT erstellt.
    Lokal ("C:\...") und auf Serverlaufwerk ("U:\...") getestet.
    Welche Bedingungen müssen für die vba-basierte ACCDE-Erstellung erfüllt sein?
    Verwende Access Front- u. Backend

  • Als Antwort auf: Gast - Anna

    Hallo Anna,

    ob es mit einer accde Datei klappt habe ich nicht getestet.
    Welche Accessversion nutzt Du und wie sieht Dein Aufruf der Funktion aus?

    Gruß Tommy