Fehler 432

[T417]

Hallo,

ich habe mir folgenden Code zusammengepuzzelt, hab jetzt aber das Problem, das wie geahnt, der Code wohl etwas zu verschachtelt ist. Bekomme bei Ausführung.

"Laufzeitfehler 432"
Datei oder Klassenname bei Automatisierungsoperation nicht gefunden.

Code [Auswählen] Erweitern

Dim JetVar3 As Object
JahrVar3 = Year(Date)
JahrVar3 = JahrVar3 + 1
Set JetVar3 = GetObject("C:\BURO\Rechnungen Access " & JahrVar3 & "\Rechnungen " & JahrVar3 & ".mdb")
DoCmd.Quit
End Sub

[MaggieMay]

Hi,

GetObject ist hier der falsche Befehl - beschreibe doch bitte zunächst einmal was du vorhast.