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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Sandkastenmodus ausschalten oder Datenbank zertifi...
  • Sergio07.11.20 22:28
       └ RE: Sandkastenmodus ausschalten oder Datenbank z... Karl Donaubauer09.11.20 10:40
          └ RE: Sandkastenmodus ausschalten oder Datenbank... Sergio11.11.20 09:21
             └ RE: Sandkastenmodus ausschalten oder Datenba... Karl Donaubauer11.11.20 09:58
                └ RE: Sandkastenmodus ausschalten oder Daten... Sergio12.11.20 10:47
                   └ RE: Sandkastenmodus ausschalten oder Dat... Karl Donaubauer12.11.20 17:11
  • Docmd.SendObject
  • MichaelN15.10.20 15:02
       └ RE: Docmd.SendObject Karl Donaubauer15.10.20 15:52
       └ RE: Docmd.SendObject PeterDoering15.10.20 20:02
          └ RE: Docmd.SendObject MichaelN23.10.20 08:56
  • Kombinationsfelder im Frontend per DAO füllen
  • eresPi14.10.20 10:50
       └ RE: Kombinationsfelder im Frontend per DAO füllen wilo14.10.20 11:57
          └ RE: Kombinationsfelder im Frontend per DAO fül... eresPi14.10.20 12:34
             └ RE: Kombinationsfelder im Frontend per DAO f... wilo14.10.20 16:53
                └ RE: Kombinationsfelder im Frontend per DAO... eresPi16.10.20 10:16
                   └ RE: Kombinationsfelder im Frontend per D... wilo16.10.20 10:53
                   └ RE: Kombinationsfelder im Frontend per D... PeterDoering16.10.20 11:00
                      └ RE: Kombinationsfelder im Frontend per... eresPi17.10.20 19:12
  • Access öffnet Dateien langsam
  • wilo08.10.20 11:27
       └ RE: Access öffnet Dateien langsam PeterDoering10.10.20 18:48
          └ RE: Access öffnet Dateien langsam wilo11.10.20 11:37
             └ RE: Access öffnet Dateien langsam sks12.10.20 18:31
                └ RE: Access öffnet Dateien langsam wilo13.10.20 15:55
                   └ RE: Access öffnet Dateien langsam sks14.10.20 17:28
                      └ RE: Access öffnet Dateien langsam wilo15.10.20 15:58
  • Access Stammtisch München am 08.10.2020 (Do)
  • StefanWirrer06.10.20 08:23
  • Sessions in der Datenbank
  • Marzer25.09.20 12:21
       └ RE: Sessions in der Datenbank PeterDoering30.09.20 15:59
          └ RE: Sessions in der Datenbank Marzer04.10.20 06:48
  • Berechnen von Zeiten
  • DJFunker13.08.20 14:45
       └ RE: Berechnen von Zeiten Marzer17.08.20 16:52
          └ RE: Berechnen von Zeiten DJFunker16.09.20 11:30
       └ RE: Berechnen von Zeiten PeterDoering18.08.20 23:07
          └ RE: Berechnen von Zeiten KlausWerther19.08.20 12:51
             └ RE: Berechnen von Zeiten KlausWerther19.08.20 14:16
                └ RE: Berechnen von Zeiten DJFunker22.08.20 14:38
             └ RE: Berechnen von Zeiten DJFunker16.09.20 11:51
  • Access Stammtisch München am 10.09.2020 (Do)
  • StefanWirrer05.09.20 00:37
  • Bericht mit 2 Spalten
  • Dreho5231.08.20 19:15
       └ RE: Bericht mit 2 Spalten Karl Donaubauer01.09.20 11:14
  • Access 2010 Replikation mit TSI Synchronizer 4.0
  • DZR30.08.20 20:18
       └ RE: Access 2010 Replikation mit TSI Synchronizer... PeterDoering31.08.20 00:47
          └ RE: Access 2010 Replikation mit TSI Synchroniz... DZR31.08.20 11:47
             └ RE: Access 2010 Replikation mit TSI Synchron... DZR31.08.20 12:26
                └ RE: Access 2010 Replikation mit TSI Synchr... PeterDoering31.08.20 23:52
                   └ RE: Access 2010 Replikation mit TSI Sync... DZR01.09.20 10:04
  • Import per VBA von einer Gupta DB
  • rwolfertz26.08.20 16:07
       └ RE: Import per VBA von einer Gupta DB PeterDoering26.08.20 17:41
          └ RE: Import per VBA von einer Gupta DB rwolfertz27.08.20 14:20
             └ RE: Import per VBA von einer Gupta DB PeterDoering27.08.20 15:19
                └ RE: Import per VBA von einer Gupta DB rwolfertz31.08.20 11:22
  • 3.1 Tabellen wieder einbinden
  • Mario Nestelberger26.08.20 12:18
       └ RE: 3.1 Tabellen wieder einbinden Karl Donaubauer27.08.20 13:04
          └ RE: 3.1 Tabellen wieder einbinden Mario Nestelberger28.08.20 16:56
             └ RE: 3.1 Tabellen wieder einbinden Karl Donaubauer28.08.20 20:49
                └ RE: 3.1 Tabellen wieder einbinden Mario Nestelberger30.08.20 21:43
                   └ RE: 3.1 Tabellen wieder einbinden PeterDoering30.08.20 22:45
                      └ vielleicht bin ich ein Idiot ..... Mario Nestelberger31.08.20 01:13
  • Wie kann ich dieses Problem umsetzen?
  • AccessNutzer24.08.20 07:57
       └ RE: Wie kann ich dieses Problem umsetzen? Tarzun24.08.20 17:15
  • Wunderliches MSACCESS - Performance
  • Tarzun20.08.20 15:02
       └ RE: Wunderliches MSACCESS - Performance PeterDoering21.08.20 20:54
          └ RE: Wunderliches MSACCESS - Performance Tarzun24.08.20 16:29
  • Access-Fenster wechseln spontan in den Vordergrund
  • Pochmann-IT04.08.20 17:44
       └ RE: Access-Fenster wechseln spontan in den Vorde... StefanWirrer20.08.20 14:08
    Mario Nestelberger
    Gesendet: 28.08.20 16:56
    Betreff: RE: 3.1 Tabellen wieder einbinden


    Member

    Beiträge: 41
    25
    Hallo Karl,

    hier der exakte Code, ich verwende das ähnlich dieser Form schon seit ewig:

    Dim db As DAO.Database
    Dim daten As String
    Dim i As Integer
    Dim fd As New FileDialog
    Dim dname As String
    Dim pfad As String

    Dim selberOrdner As Boolean
    Dim fs As Object


    Set db = CurrentDb
    Set fs = CreateObject("Scripting.FileSystemObject")




    If Not fs.FileExists(Mid(db.TableDefs(0).Connect, 11)) Then
    If Not fs.FileExists(Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "Daten.mdb") Then
    MsgBox "Die Datei Daten.mdb wurde nicht gefunden, klicken Sie auf OK um den Pfad anzugeben.", vbCritical, "Datei nicht gefunden!"
    fd.DefaultDir = "c:\"
    fd.Filter1Text = "Datenbanken"
    fd.Filter1Suffix = "*.mdb"
    fd.ShowOpen
    If fd.FileName = "" Then
    MsgBox "Sie haben keine gültige Datenbankdatei angegeben, die Anwendung wird beendet", vbCritical, "Ungültige Datenbank!"
    DoCmd.Quit
    End If
    daten = fd.FileName
    Else
    daten = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "Daten.mdb"
    End If

    If Right(daten, 9) <> "Daten.mdb" Then
    MsgBox "Sie haben keine gültige Datenbankdatei angegeben, die Anwendung wird beendet", vbCritical, "Ungültige Datenbank!"
    DoCmd.Quit
    End If
    If fs.FileExists(Left(daten, Len(daten) - 4) & ".ldb") Then
    If MsgBox("Das Kundenverwaltungsprogramm scheint auf einem Arbeitsplatz geöffnet zu sein, wenn sie fortfahren kann der Vorgang länger dauern!", vbInformation + vbOKCancel, "Hinweis!") = vbOK Then
    For i = 0 To db.TableDefs.count - 1
    If db.TableDefs(i).Connect <> "" Then
    If Mid(db.TableDefs(i).Connect, 11) <> daten Then
    db.TableDefs(i).Connect = ";database=" & daten
    db.TableDefs(i).RefreshLink
    End If
    End If
    Next i
    Else
    MsgBox "Sie haben keine gültige Datenbankdatei angegeben, die Anwendung wird beendet", vbCritical, "Ungültige Datenbank!"
    DoCmd.Quit
    End If
    Else
    For i = 0 To db.TableDefs.count - 1
    If db.TableDefs(i).Connect <> "" Then
    If Mid(db.TableDefs(i).Connect, 11) <> daten Then
    db.TableDefs(i).Connect = ";database=" & daten
    db.TableDefs(i).RefreshLink
    End If
    End If
    Next i
    End If

    End If
    Top of the page Bottom of the page


    Seite: < 11 12 13 14 15 16 ... 17 18 19 20 21 22 23 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)