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
|