#

Fehlerbehebung Access Fehlermeldung: 3043 nicht erkanntes Dateiformat oder Netzwerkfehler

 

Run-time error '3043' Your network access was interrupted. To continue, close the database, and then open again

Runtime Error 3043: Disk or Network Error - Microsoft Support

 

 

#Name? 

Felder werden in der Tabelle als #Name? angezeigt

 

 

Fehlermeldung Ungültiger Spaltenname #207

ODBC Driver for SQL Server #207 Invalid column name

 

Fehlermeldung:

ODBC-Aufruf fehlgeschlagen

 

 

 

Ursache:

Der Fehler wird verursacht, wenn auf der entfernten Datenbank SQL Server, Sharepoint, Excel oder MySQL eine Tabelle geändert wird oder eine echte Netzwerk unterbrechung auftritt

 

 

Korrektur Datenbank Formular

 

 

vba Code zum Beheben des Fehlers

 

Fehler Behebung in vba Code

Option Compare Database

Option Explicit On

 

Private Sub BtnRefresh_Click()

    'refresh_BaseConnection

    repair_Table_Connections()

    MsgBox "OK, done"

End Sub

 

 

Public Sub refresh_BaseConnection()

    '-------------< refresh_BaseConnection >-------------

    '*repair access databaseconnection of current Project

    Dim app_connecction As String

    app_connecction = Application.CurrentProject.BaseConnectionString

    Application.CurrentProject.CloseConnection

    Application.CurrentProject.OpenConnection app_connecction

    '-------------</ refresh_BaseConnection >-------------

End Sub

 

 

Public Sub repair_Table_Connections()

    '-------------< repair_Table_Connections >-------------

    '*reconnect all tables in the access database

    Dim tbl As TableDef

 

    '---------< @Loop: Tables >----------

    For Each tbl In CurrentDb.TableDefs

        Application.Echo True, "reconnect table: " & tbl.Name

        Dim sConnection As String

        sConnection = tbl.Connect   '*optimize cn string

        If Not sConnection Like "" Then

            tbl.RefreshLink

        End If

        Application.Echo True, "ok: reconnected table: " & tbl.Name

    Next

    '---------</ @Loop: Tables >----------

    '-------------</ repair_Table_Connections >-------------

End Sub

 

Mobile

.

0123movie.net