Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access Stammtisch München am 12.03.2020 (Do)
  • StefanWirrer11.03.20 08:49
       └ RE: Access Stammtisch München - entfällt!! (am ... StefanWirrer12.03.20 12:11
  • Verweis auf andere .mde - Problem
  • Mario Nestelberger07.03.20 20:22
       └ RE: Verweis auf andere .mde - Problem wilo09.03.20 16:58
          └ das war nicht meine Frage und hilft mir leider Mario Nestelberger10.03.20 10:26
  • Abstürze mit bestimmnten Virenscannern
  • wilo06.03.20 10:09
       └ RE: Abstürze mit bestimmnten Virenscannern PeterDoering06.03.20 13:03
  • Zwei Kombinationsfelder in der gleichen Tabelle ko...
  • Jan.T02.03.20 11:06
       └ RE: Zwei Kombinationsfelder in der gleichen Tabe... Karl Donaubauer02.03.20 19:17
  • mdb zu accdb per Programm
  • Greiff28.02.20 10:21
       └ RE: mdb zu accdb per Programm sks28.02.20 10:37
       └ RE: mdb zu accdb per Programm PeterDoering28.02.20 11:14
  • Fehler 3246 beim Einfügen
  • sks26.02.20 18:58
       └ RE: Fehler 3246 beim Einfügen PeterDoering26.02.20 20:18
          └ RE: Fehler 3246 beim Einfügen sks28.02.20 09:19
  • Abfrage kann nicht aktualisiert werden
  • Greiff26.02.20 16:19
       └ RE: Abfrage kann nicht aktualisiert werden PeterDoering26.02.20 19:53
       └ RE: Abfrage kann nicht aktualisiert werden Karl Donaubauer27.02.20 09:37
          └ RE: Abfrage kann nicht aktualisiert werden Greiff27.02.20 11:49
          └ RE: Abfrage kann nicht aktualisiert werden PeterDoering27.02.20 13:17
  • Datenbank automatisch schließen
  • papa3921.02.20 15:09
       └ RE: Datenbank automatisch schließen Karl Donaubauer21.02.20 16:58
  • Sortieren im Formular mit Recordset bringt Fehler
  • willi15419.02.20 10:50
  • Einladung zum 38. Access-Stammtisch Hannover am 19...
  • KlausWerther15.02.20 18:00
  • Schreibkonflikt / Lock bei Access mit SQL Server A...
  • lagalex11.02.20 21:53
       └ RE: Schreibkonflikt / Lock bei Access mit SQL Se... PeterDoering11.02.20 22:25
          └ RE: Schreibkonflikt / Lock bei Access mit SQL ... lagalex14.02.20 13:32
       └ RE: Schreibkonflikt / Lock bei Access mit SQL Se... sks12.02.20 08:48
       └ RE: Schreibkonflikt / Lock bei Access mit SQL Se... PhilS12.02.20 11:19
          └ RE: Schreibkonflikt / Lock bei Access mit SQL ... lagalex14.02.20 13:44
  • Access Stammtisch München am 13.02.2020 (Do)
  • StefanWirrer11.02.20 12:19
  • 64 bit Access - API - Allgemeine Fragen
  • Mario Nestelberger07.02.20 19:19
       └ RE: 64 bit Access - API - Allgemeine Fragen PhilS10.02.20 21:37
          └ RE: 64 bit Access - API - Allgemeine Fragen Mario Nestelberger11.02.20 08:24
  • Problem mit 64bit Access und SQL Server
  • wilo17.10.19 11:14
       └ RE: Problem mit 64bit Access und SQL Server PeterDoering17.10.19 12:55
          └ RE: Problem mit 64bit Access und SQL Server wilo18.10.19 08:53
             └ RE: Problem mit 64bit Access und SQL Server PeterDoering21.10.19 13:30
                └ RE: Problem mit 64bit Access und SQL Server PhilS10.02.20 21:48
  • Properties von Command Button
  • Marzer07.02.20 15:11
       └ RE: Properties von Command Button PeterDoering07.02.20 17:52
          └ RE: Properties von Command Button Marzer10.02.20 08:48
             └ RE: Properties von Command Button PeterDoering10.02.20 10:53
    sks
    Gesendet: 28.02.20 10:37
    Betreff: RE: mdb zu accdb per Programm


    Regular

    Beiträge: 82
    252525
    wir haben das vor etlichen Jahren so gelöst :

    Function Reorg3()
    On Error GoTo Err_Reorg3

    Dim VRet As Variant
    Dim lpDBName As String
    Dim lpDBName2 As String
    Dim Verz As String
    Dim AktuelleDB As Database
    Dim Command As String

    'Datei im aktuellen Programmpfad ?ffnen.
    Open AktVerz & "DatenPfad.TXT" For Input As #1
    Input #1, lpDBName
    Close #1

    If IsNull(lpDBName) = True Or lpDBName = "" Then
    Exit Function
    End If

    Set AktuelleDB = DBEngine.Workspaces(0).OpenDatabase(lpDBName)
    If AktuelleDB.Version = "12.0" Then
    'DB ist schon aktuell 2010
    MsgBox "Die DB wurde bereits in das Format 2010 konvertiert.", 64, "Konvertierung"
    AktuelleDB.Close
    Exit Function
    End If
    AktuelleDB.Close

    Set AktuelleDB = DBEngine.Workspaces(0).Databases(0)

    lpDBName2 = MID(lpDBName, 1, Len(lpDBName) - 3) & "SAVE12.0"

    On Error GoTo Err_Reorg3
    VRet = SysCmd(SYSCMD_INITMETER, "Umbenennen ", 100)
    VRet = SysCmd(SYSCMD_UPDATEMETER, 10)
    Name lpDBName As lpDBName2

    VRet = SysCmd(SYSCMD_INITMETER, "Datenbank konvertieren ...", 100)
    VRet = SysCmd(SYSCMD_UPDATEMETER, 20)

    'funktioniert nicht (erzeugt veraltete Datenbank):
    'Datenbank konvertieren alt, neu, , Version
    'DBEngine.CompactDatabase lpDBName2, lpDBName, , dbVersion30
    'DBEngine.CompactDatabase "E:\Archi_97.mdb", "E:\Archi_03", , dbVersion40

    Command = "msaccess.exe """ & lpDBName2 & """ /convert """ & lpDBName & """"
    VRet = Shell(Command, 1)

    VRet = SysCmd(SYSCMD_INITMETER, "Fertig ", 100)
    VRet = SysCmd(SYSCMD_UPDATEMETER, 100)

    MsgBox "Die Konvertierung wurde durchgef?hrt.", 64, "Konvertierung"

    Exit_Reorg3:
    VRet = SysCmd(SYSCMD_REMOVEMETER)
    Exit Function

    Err_Reorg3:

    MsgBox Error
    Resume Exit_Reorg3

    End Function

    Viele Grüße
    Stephan
    Top of the page Bottom of the page


    Seite: < 1 2 3 4 5 6 7 8 9 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)