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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Variablen füllen (Public)
  • Dreho5229.04.20 19:49
       └ RE: Variablen füllen (Public) Karl Donaubauer29.04.20 19:58
  • DAO-Zugriff auf Datenbank
  • waholin28.04.20 14:08
       └ RE: DAO-Zugriff auf Datenbank Karl Donaubauer28.04.20 18:08
          └ RE: DAO-Zugriff auf Datenbank waholin28.04.20 20:02
  • Fehler bei der Verbindung: SQL Server-Fehler 18456...
  • jochla20.04.20 10:55
       └ RE: Fehler bei der Verbindung: SQL Server-Fehler... PeterDoering20.04.20 11:45
          └ RE: Fehler bei der Verbindung: SQL Server-Fehl... jochla20.04.20 15:40
  • Virtuelle Access DevCon 23.+24.4.
  • Karl Donaubauer15.04.20 18:11
  • Supportende Office 2010 im Oktober
  • Mario Nestelberger28.03.20 13:53
       └ RE: Supportende Office 2010 im Oktober Karl Donaubauer28.03.20 19:37
          └ RE: Supportende Office 2010 im Oktober Mario Nestelberger28.03.20 23:27
             └ RE: Supportende Office 2010 im Oktober Karl Donaubauer29.03.20 12:47
                └ RE: Supportende Office 2010 im Oktober Mario Nestelberger05.04.20 22:26
          └ RE: Supportende Office 2010 im Oktober sks30.03.20 11:37
       └ RE: Supportende Office 2010 im Oktober PhilS29.03.20 13:21
  • Sortier-Reihenfolge
  • Marzer28.03.20 10:26
       └ RE: Sortier-Reihenfolge Greiff28.03.20 12:18
       └ RE: Sortier-Reihenfolge PhilS28.03.20 21:09
  • Me.FilterOn = True schlägt auf ungebundenes Unterf...
  • Andrea06.02.20 10:56
       └ RE: Me.FilterOn = True schlägt auf ungebundenes ... PeterDoering07.02.20 17:59
          └ RE: Me.FilterOn = True schlägt auf ungebundene... Andrea10.02.20 13:00
             └ RE: Me.FilterOn = True schlägt auf ungebunde... Andrea19.02.20 13:23
             └ RE: Me.FilterOn = True schlägt auf ungebunde... StefanWirrer20.02.20 16:17
                └ RE: Me.FilterOn = True schlägt auf ungebun... Andrea21.02.20 13:16
                   └ RE: Me.FilterOn = True schlägt auf ungeb... Andrea21.02.20 13:23
                      └ RE: Me.FilterOn = True schlägt auf ung... StefanWirrer24.02.20 14:05
                         └ RE: Me.FilterOn = True schlägt auf u... Andrea25.02.20 14:51
                            └ RE: Me.FilterOn = True schlägt auf... Andrea04.03.20 15:38
                               └ RE: Me.FilterOn = True schlägt a... Karl Donaubauer04.03.20 16:55
                                  └ RE: Me.FilterOn = True schlägt... Andrea04.03.20 18:44
                                     └ RE: Me.FilterOn = True schlä... Karl Donaubauer18.03.20 11:56
                                        └ RE: Me.FilterOn = True sch... Andrea23.03.20 09:57
  • RichText ohne automatischen Zeilenumbruch
  • Lorenz20.03.20 07:25
  • 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
    sks
    Gesendet: 28.02.20 10:37
    Betreff: RE: mdb zu accdb per Programm


    Veteran

    Beiträge: 132
    10025
    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: < 14 15 16 17 18 19 ... 20 21 22 23 24 25 26 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)