Hallo zusammen,
ich habe das im Titel angegebene Problem.
Dieser Fehler taucht komischerweise nur dann auf wenn ich meine Access Ribbons verstecke über den Code und alle Formulare auf Pop Up: Ja
stelle.
Heist, also dass beim Doppelklick auf die Access Datei nur das Formular über eine AutoExec erscheint. Beim Hauptformular gibt es auch kein Problem, aber sobald ich über ein Button auf dem Hauptformular ein anderes Formular öffnen möchte, tauchen die Fehlermeldungen auf:
3021: kein aktueller Datensatz
3709: Suchschlüssel wurde in keinem Datensatz gefunden
2473: Sie haben als Einstellung der Ereigniseigenschaft den Ausdruck beim Offnen eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Wahrend der Kommunikation von Microsoft Access mit dem OLE Server order dem ActiveX-Steuerelement ist ein Problem aufgetreten.
Abhängig von den gewählten Elementen einer Combobox, treten die oben genannten Fehlermeldungen auf.
Wenn ich aber den oben genannten Code auskommentiere, funktioniert alles ganz normal.
Hat jemand Erfahrungen mit dem Problem?
Besten Dank.
*Topic verschoben*
ich habe das im Titel angegebene Problem.
Dieser Fehler taucht komischerweise nur dann auf wenn ich meine Access Ribbons verstecke über den Code und alle Formulare auf Pop Up: Ja
stelle.
Heist, also dass beim Doppelklick auf die Access Datei nur das Formular über eine AutoExec erscheint. Beim Hauptformular gibt es auch kein Problem, aber sobald ich über ein Button auf dem Hauptformular ein anderes Formular öffnen möchte, tauchen die Fehlermeldungen auf:
3021: kein aktueller Datensatz
3709: Suchschlüssel wurde in keinem Datensatz gefunden
2473: Sie haben als Einstellung der Ereigniseigenschaft den Ausdruck beim Offnen eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Wahrend der Kommunikation von Microsoft Access mit dem OLE Server order dem ActiveX-Steuerelement ist ein Problem aufgetreten.
Abhängig von den gewählten Elementen einer Combobox, treten die oben genannten Fehlermeldungen auf.
Visual Basic-Quellcode
- Const SW_HIDE = 0
- Const SW_NORMAL = 1
- Private Declare Function ShowWindow Lib "user32" _
- (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
- Private Sub Form_Open(Cancel As Integer)
- Dim hWindow As Long
- Dim nResult As Long
- Dim nCmdShow As Long
- hWindow = Application.hWndAccessApp
- nCmdShow = SW_HIDE
- nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
- Call ShowWindow(Me.hwnd, SW_NORMAL)
- End Sub
Wenn ich aber den oben genannten Code auskommentiere, funktioniert alles ganz normal.
Hat jemand Erfahrungen mit dem Problem?
Besten Dank.
*Topic verschoben*
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Marcus Gräfe“ ()