Office: (Office 2010) Probleme mit AutoLink unter Office 2010

Helfe beim Thema Probleme mit AutoLink unter Office 2010 in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich benutze seit längerer Zeit die Function AutoLink zum verknüpfen von BE und FE Datenbanken. Dies hat unter Office 2003 auch... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Josi8, 12. Juni 2011.

Seite 1 von 2

JOSI8

Josi8

Probleme mit AutoLink unter Office 2010

Hallo zusammen,

ich benutze seit längerer Zeit die Function AutoLink zum verknüpfen von BE und FE Datenbanken. Dies hat unter Office 2003 auch wunderbar funktioniert (klasse Code!!!).
Nach dem hochrüsten auf Windows 7 und Office 2010 jedoch habe ich nur noch Probleme. *entsetzt
Bei jedem zweiten Start (nicht bei jedem!!!) der FE-Datenbank mit geändertem Pfad/anderer BE-Datenbank wird mindestens eine Abfrage auf die verknüpften Tabellen zerstört (Fehler: "Unzulässiger Verweis auf Datenbankobjekt."). Die Tabellen selber kann ich jedoch ohne Probleme öffnen.
Hat nicht jemand von Euch einen Tip für mich??? Ich bin langsam am verzweifeln.

Vielen Dank im voraus,

:)

Josi8, 12. Juni 2011

#1
HCSCHERZER

hcscherzer

wird mindestens eine Abfrage auf die verknüpften Tabellen zerstört (Fehler: "Unzulässiger Verweis auf Datenbankobjekt.")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wann genau tritt dieser Fehler auf? Beim Neuverbinden?

Hast Du meine Version aus dem CodeArchiv verwendet oder die von Ruedi oder Robster 'angepasste'?
Hast Du selber etwas dran verändert?

hcscherzer, 14. Juni 2011

#2
JOSI8

Josi8

Hallo hcscherzer,

das Problem tritt beim DB-Start (also beim Neuverbinden auf).
Mittlerweile habe ich beide Code's ausprobiert, mit dem gleichen Resultat!

aktueller Code:
Code:

Public mDB As DAO.Database

Function init() As String
Dim Pfad As String
Dim dbx As DAO.Database
Dim rs As DAO.Recordset
Dim t As DAO.TableDef
Dim sBEPath As String
On Error GoTo init_err
Set rs = CurrentDBC.OpenRecordset("sys")
If rs.EOF Then
MsgBox "Kein Datensatz in der Tabelle 'sys'", vbCritical, "Hoppla"
rs.AddNew
rs!dbnam = "dummy"
rs.Update
End If
Stop
Do While Not rs.EOF
sBEPath = rs!dbnam
If InStr(1, sBEPath, "\") = 0 Then
Pfad = Application.CurrentProject.path & "\" & sBEPath
Else
Pfad = sBEPath
End If
Set dbx = DBEngine.Workspaces(0).OpenDatabase(Pfad)
For Each t In dbx.TableDefs()
If InStr(1, t.Name, "MSys") = 0 Then TabCheck t.Name, Pfad
Next
rs.MoveNext
Loop
init = Pfad
rs.Close
init_exit:
Set dbx = Nothing
On Error GoTo 0
Exit Function
init_err:
If Err.Number = 3024 Or Err.Number = 3044 Then
Pfad = fFileDialog(True)
'pfad = DateiOeffnen(Application.CurrentProject.path, "BackEnd Datenbank öffnen")
If Pfad "" Then
DbAendern (Pfad)
Else
Application.Quit
End If
ElseIf Err.Number = 3059 Then
Application.Quit
ElseIf Err.Number = 94 Then
MsgBox "Kein Dateiname im Feld 'sys.dbname'", vbCritical, "Hoppla"
rs.Edit
rs!dbnam = "dummy"
rs.Update
ElseIf Err.Number = 3078 Then
MsgBox "Keine Tabelle 'sys' vorhanden", vbCritical, "Hoppla"
DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT 'dummy' AS dbnam INTO sys;"
DoCmd.SetWarnings True
Else
MsgBox "Fehler: " & Err.Number & " - " & Err.Description
Stop
End If
Resume
End Function

Sub TabCheck(tabnam As String, quelle As String)
Dim rs As DAO.Recordset
On Error GoTo TabCheck_err
Set rs = CurrentDBC.OpenRecordset(tabnam)
rs.Close
TabCheck_exit:
On Error GoTo 0
Exit Sub
TabCheck_err:
If Err.Number = 3078 Then
DoCmd.TransferDatabase acLink, "Microsoft Access", _
quelle, acTable, tabnam, tabnam
ElseIf Err.Number = 3024 Or Err.Number = 3044 Or Err.Number = 3043 Then
CurrentDBC.Execute "DROP TABLE " & tabnam & ";"
Else
MsgBox "Fehler: " & Err.Number & " - " & Err.Description
Stop
End If
Resume
End Sub

Sub DbAendern(PdbN As String)
Dim t As DAO.TableDef
Dim rs As DAO.Recordset
For Each t In CurrentDBC.TableDefs()
If t.Connect "" Then
CurrentDBC.Execute "DROP TABLE [" & t.Name & "];"
End If
Next
Set rs = CurrentDBC.OpenRecordset("sys")
rs.MoveFirst
rs.Edit
rs!dbnam = PdbN
rs.Update
rs.Close
End Sub
Public Property Get CurrentDBC() As DAO.Database
If mDB Is Nothing Then
Set mDB = CurrentDb
End If
Set CurrentDBC = mDB
End Property
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Code selber scheint korrekt durchzulaufen (keine Fehlermeldungen, Zugriff auf die Tabellen möglich)! Das Problem liegt hier bei den Abfragen.
Nach ca. jedem "2." Start (Neuverbinden durch Pfadänderung oder Namensänderung der BE-DB) der FE-Datenbank hab ich danach keinen Zugriff mehr auf mindestens 1 Abfrage (Fehler 3276: "Unzulässiger Verweis auf Datenbankobjekt."). Erst nach "konprimieren & reparieren" ist der Zugriff wieder möglich!
Was mache ich hier falsch??? Unter Office 2003 hatte ich keine Probleme!

PS: geändert hab ich hier nur den File Dialog (anderer Code zum Aufruf - rot markiert)!

Danke.

Josi8, 14. Juni 2011

#3
HCSCHERZER

hcscherzer

Probleme mit AutoLink unter Office 2010

Hallo Jan.
Die meisten meiner Kunden, die das verwenden, arbeiten noch mit Office 2003 ... insofern ist der Fehler auch mir unbekannt.
Office 2007 habe ich nie eingesetzt und so arbeite ich mich gerade in die neue Oberfläche von 2010 ein.
Verstehe ich Dich richtig, dass der Fehler immer erst (und ja auch nicht ständig) auftritt, wenn eine Abfrage aus dem FE auf eine neu verknüpfte Tabelle aus dem BE zugreift? Ist es immer die selbe Abfrage oder kann es mit jeder beliebigen passieren?
Mal sehen, ob ich das hier nachstellen kann ...

hcscherzer, 15. Juni 2011

#4
JOSI8

Josi8

Hallo hcscherzer,

komischerweise hab ich die "Folge"-Code's entfernt, so dass nach der Verbindung mit der BE-DB kein Code, ... mehr ausgeführt wird (nach Code: "Exit Sub!)!!! Trotzdem hab ich das Problem mit dieser/diesen Abfragen bei ca. jedem "2." Start!

Josi8, 15. Juni 2011

#5
HCSCHERZER

hcscherzer

Trotzdem hab ich das Problem mit dieser/diesen Abfragen bei ca. jedem "2." Start!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist mir noch nicht klar: eine bestimmte Abfrage (jedesmal die gleiche) oder wahllos irgendeine Abfrage, die auf verknüpfte Tabellen im BE zugreift?

hcscherzer, 15. Juni 2011

#6
JOSI8

Josi8

Hallo

Ich habe jetzt mal eine abgespeckte Version mit nur 2 verknüpften Tabellen und 2 zugehörige Abfragen überprüft. Die Abfrage auf die 1. verknüpfte Tabelle ist bei ca. jedem 2. ... betroffen und die Abfrage auf die 2. verknüpfte dafür eher selten (aber es kommt vor)!

Josi8, 15. Juni 2011

#7
GUIDOS

GuidoS

Probleme mit AutoLink unter Office 2010

Hallo,

ich klinke mich hier mal ein. Ich stehe hier nämlich vor dem gleichen Problem.
Ich benutze zum neu verlinken nicht TransferDatabase sondern ändere den String in db.TableDefs("XX").Connect mit anschließendem .RefreshLink.
Hinterher sind dann auch einige Abfragen nicht mehr ansprechbar mit besagter Fehlermeldung.
Ich kann in meiner Anwendung von einem BE auf dem Server auf ein lokales BE umschalten, wenn man mit dem Laptop unterwegs ist. Das BE wird vor dem Umschalten einfach nach lokal kopiert und dann verlinkt. Bei lokalem BE habe ich so lange kein Problem wie der Laptop noch im Netz hängt. Ziehe ich den Stecker fangen die Probleme an. *boah Von den Tabellen ist aber definitiv keine mehr mit dem Netz-BE verlinkt.
Mehr habe ich bis jetzt auch noch nicht herausgefunden.

GuidoS, 15. Juni 2011

#8
JOSI8

Josi8

Hallo zusammen,

ich glaube, ich habe jetzt das Problem gefunden. Werd dies jetzt mal ausgiebig testen!
... und zwar habe ich mit der im Absatz #1 beschriebenen DB experimentiert.
Ich hab das Makro "autoexec" gelöscht und beim Start der DB automatisch das Formular "main" starten lassen. Dort habe ich "beim Laden" die Prozedur "Call init" aufgerufen.
Siehe da, hier ist dann auch das beschriebene Problem, sonst nicht!!!! *mad.gif*

Werde dies jetzt sehr genau testen und mich danach noch einmal melden!

Josi8, 15. Juni 2011

#9
JOSI8

Josi8

Hallo

... leider war das nicht die Lösung (hätte mich auch gewundert)! *depressed
Hat nicht einer von Euch eine retende Idee???

Danke.

Josi8, 15. Juni 2011

#10
JOSI8

Josi8

Hallo,

hat keiner einen Tip für mich???
Die Datenbank funktioniert unter Office 2003 einwandfrei, ohne irgendwelche Probleme! Unter Office 2010 (mit/ohne Umstellung auf jeweiligen Verweise) diese Probleme beim Start der DB, nicht beim Wechsel des Pfades!

Josi8, 17. Juni 2011

#11
GUIDOS

GuidoS

Ich habe leider auch noch keine Lösung gefunden*frown.gif*

Meine DB hat auch unter Acc2010 noch einwandfrei funktioniert solange sie noch im MDB Format war.
Nach der Umstellung hatte ich dann das Problem.

GuidoS, 17. Juni 2011

#12
JOSI8

Josi8

Probleme mit AutoLink unter Office 2010

Hallo zusammen,

habe leider das "Problem" leider nocht nicht gefunden! Selbst der Kombatibilitäts-Modus (wie in einigen Beiträgen beschrieben) bringt nichts.
Das einzige was ich sagen kann:
- Die Stop-Function bringt absolut nichts mehr!
- Es sind jetzt komplett andere Fehler-Codes!
- Ich kenne keinen "auf Arbeit", der nicht mit Office 2010 Probleme hat! (Keine der Datenbanken läuft jetzt einwandfrei - unter Office 2003 nie Probleme!!!!!!!!!!!!)
- Es ist alles sehr viel langsamer!
...

*stupid *stupid *stupid

Danke aber trotzdem an alle, die versucht haben!

Melde mich noch einmal, wenn Lösung gefunden.

Josi8, 22. Juni 2011

#13
REINHARD REKEN

Reinhard Reken

Hallo.
Ich hatte das gleiche Problem nach dem Umzug von 2003 nach 2010 und habe es folgendermassen geloest:
Nach dem Autolink der Tabellen des Backends (ich benutze den Code von Dev Ashish) folgenden Funktion aufrufen:

Code:

Public Function Fix2010()
Dim QD As QueryDef
For Each QD In CurrentDb.QueryDefs: QD.SQL = QD.SQL: Next
Set QD = Nothing
End Function

Alles andere wie z.B. Komprimieren&reparieren der DB, Sandbox mode in der Registry abschalten, Import der DB in eine leere neue DB, hat alle nichts gebracht.

Jetzt laeuft es stoerungsfrei, auch bei wechseldem Ort des Backends.

Schoene Gruesse aus dem Muensterland
Reinhard

Reinhard Reken, 27. Juni 2011

#14
GUIDOS

GuidoS

Hallo Reinhard,

habe das in meine DB eingebaut, es funktioniert einwandfrei!!*happy

Danke für den Tip!

Gruß aus dem Schwarzwald

Guido

GuidoS, 27. Juni 2011

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Probleme mit AutoLink unter Office 2010

Die Seite wird geladen...

Probleme mit AutoLink unter Office 2010 - Similar Threads - Probleme AutoLink Office
Probleme mit dem automatisches Inhaltsverzeichnis
in Microsoft Word Hilfe
Probleme mit dem automatisches Inhaltsverzeichnis: Hallo zusammen, ich stehe vor dem Problem, dass ich in einem automatischen Inhaltsverzeichnis zwei unterschiedliche Darstellung von Seitenzahlen haben möchte. Ich versuche es unten zu...
Probleme mit bedingter Formatierung
in Microsoft Excel Hilfe
Probleme mit bedingter Formatierung: Hallo ihr Lieben, folgende Herausforderung: Ich möchte die Formatierung des Wertes in B7 (bzw. auch alle weiteren Werte in Spalte B) nach folgenden Bedingungen anpassen: 1. WENN C7<0,05 DANN...
Probleme mit Formatierung in geschütztem Word-Dokument – Schriftstil nicht änderbar
in Microsoft Word Hilfe
Probleme mit Formatierung in geschütztem Word-Dokument – Schriftstil nicht änderbar: Hallo zusammen, ich habe ein Word-Dokument erstellt, das als Vorlage dient und entsprechend geschützt ist. Dabei sollen folgende Anforderungen erfüllt werden: Schriftart: Die Schriftart darf...
VBA-Makro zur Zellenformatierung Syntax probleme
in Microsoft Excel Hilfe
VBA-Makro zur Zellenformatierung Syntax probleme: Hallo zusammen, ich möchte per Makro Zellen formatieren. Tausender-Trennzeichen 3 Nachkommastellen Positive Zahlen Schwarz Negative Zahlen Rot Nullwert mit - Hinter der Zahl soll noch eine...
Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!
in Microsoft Excel Hilfe
Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!: Hallo Leute, Ich habe mal wieder ein Problem, ich hoffe ihr könnt mir hier helfen! :) Habe hier schon ein Makro soweit, aber es macht halt noch nicht genau das was es soll, woran ich natürlich...
Probleme mit dem Kopieren aus Daten aus OneNote 2016
in Sonstiges
Probleme mit dem Kopieren aus Daten aus OneNote 2016: Hallo, ich habe neuerdings Probleme mit dem Kopieren von Texten aus OneNote heraus. Bei Whatsapp wird z. B. dann noch mal ein Bild mit eingefügt. Das gleiche Problem habe ich bei einem Webmailer....
Probleme mit Summewenn bei neuer EXCEL Version
in Microsoft Excel Hilfe
Probleme mit Summewenn bei neuer EXCEL Version: Hallo zusammen, ich bin ratlos. In meinem alten EXCEL sheet hat die Funktion =SUMME(WENN(JAHR($E$7:$E$54)=2019;$G$7:$G$54)) super funktioniert. Mit der aktuellen EXCEL Version jetzt aber nicht...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden