Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Automatisierungsfehler Excel -> Access

35 views
Skip to first unread message

Jürgen Pflug

unread,
Jun 8, 2004, 3:21:47 PM6/8/04
to
Hilfe, komme nicht weiter!!
Bei der Ausführung des folgende VBA-Codes zeigt mir Excel 2000
unter Win98 einen Automatisierungsfehler.
Unter Win XP pro funktioniert dieser Code aber ohne Probleme.
Unter Win 2000 wird noch nicht mal die laufende Access-Anwendung gefunden.

Sub CommandButton2_Click()
Dim accessobj As Object

On Error Resume Next
Set accessobj = GetObject(, "Access.Application.9")
If Err.Number <> 0 Then
'MS Acccess ist nicht gestartet
MsgBox "Es wurde keine aktive Instanz von MS Access gefunden!",
vbCritical
'Fehler zurücksetzen
Err.Clear
Else
If Not accessobj.CurrentProject.Name = "Datenbank.mde" Then
MsgBox "Die Datenbank wurde nicht gefunden!", vbCritical
'Fehler zurücksetzen
Err.Clear
Else
'Überprüfen ob das richtige Formular aktiv ist
If Not accessobj.Screen.ActiveForm.Name = "frmErfassungsdaten"
Then
MsgBox "Das ""Erfassungsdaten-Formular"" ist nicht aktiv!",
vbCritical
'Fehler zurücksetzen
Err.Clear
Else
'Daten in das Formular eintragen
'accessobj.Screen.ActiveForm.Untergrenze.Value =
Me.TextBox6.Value
'accessobj.Screen.ActiveForm.Obergrenze.Value =
Me.TextBox5.Value
'accessobj.Screen.ActiveForm.Mittelwert.Value =
Me.TextBox4.Value
'accessobj.Screen.ActiveForm.Anzahl.Value =
Me.TextBox15.Value
'accessobj.Screen.ActiveForm.Werte.Value =
Me.TextBox19.Value
'accessobj.Screen.ActiveForm.Folge.Value =
Me.TextBox20.Value
End If
End If
End If


End Sub

--
Jürgen Pflug
Packhusweg 40
D 26386 Wilhelmshaven
jue...@pflug-net.de


Michael Schüller

unread,
Jun 11, 2004, 1:41:56 PM6/11/04
to
Hallo Jürgen,

> Hilfe, komme nicht weiter!!
> Bei der Ausführung des folgende VBA-Codes zeigt mir Excel 2000
> unter Win98 einen Automatisierungsfehler.
> Unter Win XP pro funktioniert dieser Code aber ohne Probleme.
> Unter Win 2000 wird noch nicht mal die laufende Access-Anwendung
> gefunden.

[...Code gelöscht...]

In welcher Zeile des Codes tritt der Fehler auf?


Schönen Gruß
--
Michael
michael....@gmx.de

Jürgen Pflug

unread,
Jun 12, 2004, 4:55:02 AM6/12/04
to
Unter WIN 98 tritt der Fehler in der Zeile

If Not accessobj.CurrentProject.Name = "Datenbank.mde" Then

auf
Unter WIN 2000 in Zeile

Set accessobj = GetObject(, "Access.Application.9")

Gruß Jürgen

Michael Schüller

unread,
Jun 17, 2004, 6:30:01 PM6/17/04
to
Hallo Jürgen;

> Unter WIN 98 tritt der Fehler in der Zeile
>
> If Not accessobj.CurrentProject.Name = "Datenbank.mde" Then
>
> auf
> Unter WIN 2000 in Zeile
>
> Set accessobj = GetObject(, "Access.Application.9")


Dein VBA-Projekt benötigt definitiv einen "Verweis auf Access". Schau mal im VBA-Editor unter "Extras-Verweise...". Ist dort der
Verweis gesetzt?

0 new messages