Office: (Office 2003) Laufzeitfehler 48

Ich habe 2 Rechner. Auf beiden läuft ACCESS 2003 und Office 2010

Rechner 1:
WIN7, automatische Updates seit fast 3 Jahren deaktiviert.
Mit dem Rechner gehe ich selten Online.
Access 2003 läuft hier auf diesem Laptop schon seit bestimmt 10 Jahren Alles bestens...

Rechner 2:
WIN10 Prof ist auf meinem neuen großen Desktoprechner seit ca. 5 Monaten drauf.
Das Access 2003 läuft hier vom selben Tag an... Alles normal.....

Jetzt aber ist etwas passiert, was ich nicht nachvollziehen kann.
Seit gestern erhalte ich auf dem WIN10 Rechner beim Öffnen der MDB den Laufzeitfehler 48.
Und wenn ich dann auf Debuggen gehe, steht der Cursor in allen VBA Codes hier in der Function:
Code:

1. Versuch.
Ich habe das Setup.exe des Office 2003 aufgerufen und den Reparaturmodus laufen lassen....
Fehler kommt immer noch.

2. Versuch.
Ich habe den gesamten Ordner Office11 von meinem kleinen Rechner kopiert und auf dem WIN10 Rechner überschrieben.
Fehler kommt immer noch.

Ich könnte ja mal das Access 2003 nochmal komplett installieren, habe aber meine Zweifel, ob das was bringt.

Was könnte ich noch anstellen, um den Fehler wegzubekommen?
Ich danke euch für Tipps zu meinem Problem.

Gruß Achim

:)

 

Schaue in beiden Rechnern die Verweise an und vegleiche diese Punkt für Punkt. Mein Rat wäre: entscheide Dich für eine Office-Version.

 

Bisher hatte ich nie größere Schwierigkeiten mit verschiedenen Office-Versionen. Und wie du vielleicht weißt, kostet die Datenbank ein vielfaches des gesamten Office-Pakets.

Also, die Verweise sind bei beiden gleich. Es sind 5 Häkchen gesetzt.
Daran hat sich nichts geändert.

Ich habe mal im VBA Code einfach ein "On Error Resume Next" eingesetzt.
Ein für Programmierer unakzeptable Lösung, aber dafür läuft die DB....
Zumindest kann ich im Moment nichts außergewöhnliches feststellen.

 

Die gezeigte Funktion ist jetzt weniger Access, sondern eine VBA-Funktion, die DAO-Methoden verwendet, und bei DAO würde ich jetzt das DLL-Problem zuerst vermuten.
Dabei müsste man schauen, welche Bibliothek da eingesetzt wird. DAO 3.6 ist da übrigens weder unmittelbarer Bestandteil von Access oder Office, sondern des Betriebssystems seit Win2000.

Ein Problemlöser würde sich immer auch für die konkrete Zeile interessieren, nicht nur für die Umgebung.

 

Hallo Eberhard,

die von mir genannte VBA Function habe ich mehrmals im gesamten Code.
Und mit jedem Weiterklick auf Beenden, oder Debuggen,
steht der Cursor in der ersten Zeile.
Code:

Gruß Achim

 

Auf ein leeres Recordset würde ich mit EOF prüfen, bei einem nicht neu geöffneten zusätzlich auf BOF (weil da der Datensatzzeiger durch eine bereits laufende Verwendung anders stehen kann).

Welchen konkreten Nutzen ziehst Du aus der bekannten Datensatzanzahl > 0?

Sowie bestätigendes Feedback (Verweis auf DAO womit?) ist wo zu finden?

//Edit;

Bringt da die Funktion überhaupt einen anderen Rückgabewert als 0?

 

Hallo Eberhard,

meine Access und VBA Kenntnisse bewegen sich im untersten Bereich.
Ich weiß nicht mal warum diese Function da drin steht.
Ich habe einen Bekannten, der mir immer wieder mal kleine Hilfen gegeben hat bei meiner kleinen DB. Ich weiß also nicht, welchen konkreten Nutzen diese Function hat.

Diese Function fx() steht schon seit vielen Jahren da drin. Bisher hatte ich nie diesen Fehler. Was die genau macht, weiß ich auch nicht.

Ich war und bin immer ein Verfechter von ständigen Erneuerungen. Mein Prinzip "Never Change a running System" hat sich über die vielen Jahre wirklich bezahlt gemacht.
Warum soll ich viel Geld ausgeben für die neueste Access DB, wenn die 2003er alles erfüllt, was ich benötige.

Ich bin mittlerweile der Ansicht, dass WIN10 ein Update durchführte, dabei irgendeine DLL erneuert hat, die Access 2003 nicht mehr versteht.....

Vielleicht kann ich auch alle Function fx() wieder löschen.(?!?)
Denn wenn das "On Error Resume Next" diesen Laufzeitfehler ignoriert, die DB dennoch läuft, scheint doch dieser Codeteil keinen Sinn zu machen.

 

Das kann/wird möglich sein. Die Funktion hat mit Deklaration "As Long" einen Rückgabewert von 0. Wenn im Code nichts änderndes passiert, bleibt es dabei.

Wenn die DB mit fx=0 unverändert und problemlos läuft, dann kann man auf eine Irgendwo-Prüfung auf > 0 auch verzichten und somit auf die diesen Wert bereitstellende Funktion.

Nun, man könnte nachschauen, wo und wie diese Funktion verwendet wird. Das kann man aber nur in der DB und nicht mit Zauberstab von außen weit weg.

Das wäre ja bei eigener Unkenntnis erster Ansprechpartner.

 

Hallo,
schau mal hier: Fehlermeldung "Fehler beim Laden einer DLL-Datei" Für dich wäre der DAO-Teil relevant.

 

Da stimme ich Dir zu, hat der Hinweis von Steffen geholfen?

 

1.
Der Ordner ....DAO......."C:ProgrammeGemeinsame DateienMicrosoft SharedDAODao360.dll" existiert gar nicht....

2. Der Ordner "C:ProgrammeGemeinsame DateienSystemadoMsado15.dll"
und auch die Datei existiert.

Ich habe dann diesen Befehl
Regsvr32.exe "C:ProgrammeGemeinsame DateienSystemadoMsado15.dll"

erfolgreich durchgeführt.

Schade ist nur, dass durch diese Aktion die Programmzeile
"On Error Resume Next" nicht mehr funktioniert und
die DB jetzt wieder den Laufzeitfehler 48 bringt.

Übrigens ist der Ordner DAO auf meinem Laptop auch nicht vorhanden.

 

So, mittlerweile habe ich die Datei DAO360.DLL gefunden.
Sie ist hier.
"C:Program Files (x86)Common FilesMicrosoft SharedDAODao360.dll"

Dann habe ich auch hier den Befehl Regsvr32.exe "C:Program Files (x86)Common FilesMicrosoft SharedDAODao360.dll"
erfolgreich ausgeführt.

Und jetzt hat es sich noch weiter verschlechtert. Ich habe den Code Function Fx() wieder aktiviert.
Jetzt kommt der Laufzeitfehler im Kombinationsfeld in dieser Zeile
Set rs = Me.Recordset.Clone
Code:

 

Hallo liebe Experten,

es geht zwar immer noch um das Access-Problem, aber nach Aussage von Euch steht diese DAO360.DLL wohl damit im Zusammenhang.

Auf meinem kleinen Laptop mit WIN7 hat die Datei DAO360.DLL die exakt gleiche Größe wie auf meinem WIN10 Rechner, nämlich 610.304KB.

Aber auf dem kleinen Rechner hat sie das Datum 14.07.2009; auf dem WIN10 Rechner 18.03.2017.

Jetzt wollte ich die ältere Datei mal auf dem WIN10 Rechner übertragen.
Geht aber nicht.. Löschen nur mit ADMIN Rechten... Obwohl ich Admin bin, geht das nicht....

Bleibt sowieso die Frage, ob das grundsätzlich eine gute Idee ist. Schließlich ist das Problem ja nicht im März aufgetreten, sondern jetzt erst.

Außerdem könnte es vielleicht sein, dass dadurch plötzlich andere Programme Fehler melden.

Gibt es noch weitere Möglichkeiten, die ich durchführen könnte, um das Problem zu beheben?

VG Achim

 

Hallo Achim,
eines der Win 10 Updates hat auch Office geändert. Bei einigen meiner Kunden mit meinen Access 2000 Anwendungen (Warenwirtschaft) kam beim Versuch, diese zu öffnen die Meldung, das die Programme mit einer neueren Version von Access erstellt wurden.
Die Dateien waren mit Access 2000 nicht mehr zu öffnen.
Es gab aber auch andere Fehlermeldungen, die eigentlich auf fehlerhafte Verweise hindeuten.
Bei wieder anderen Kunden konnten die .mdb Dateien nicht mehr mit Doppelklick geöffnet werden, es kam dann das "öffnen mit" Fenster oder die Meldung "keine registriererte Anwendung vorhanden" oder es passierte gar nichts.

Abhilfe:
Das deinstallieren von Access 2000 und installieren brachte keine Verbesserung. Erst das deinstallieren von Access 2000, dann installieren von Access 2010 (Runtime) und wieder deinstallieren und dann Access 2000 installieren half.
Die Access-Anwendungen mit der Meldung beim Öffnen mit der höheren Access-Version konnte ich mit öffnen in Access 2010 und speichern als mdb retten.

Kunden, die die Windows 10 Updatefunktion deaktiviert haben, hatten keine Probleme.

In Deinem Fall würde ich Office 2010 und Access 2003 deinstallieren (in dieser Reihenfolge), dann Access 2003 installieren.
Access-Anwendungen testen.
Im Anschluss Office 2010 (ohne Access) installieren.

Windows unterstützt nur noch bis Office 2007, daher wird es wohl immer wieder Probleme nach Updates mit älteren Access (Office) Versionen geben.

Es grüßt Jens *Smilie

 

Na dann werde ich mich mal auf die Suche begeben und eine Access 2010 für 30...40 Euro kaufen....
Hoffentlich ist dann alles wieder okay...

Wünsche allen Beteiligten zu meinem Anliegen einen schönen Abend...
Achim