Laufzeitfehler beim Starten einer DB

[MasterWolfheart]

Hallo zusammen,

ich habe ein Problem mit meiner Datenbank (DB). Diese soll beim Starten direkt ein Formular öffnen. Die DB ist mit einem Passwort geschützt, aufgrund Datenschutz muss das so sein.

Was mich wundert, auf manchen PCs wird die DB ohne Probleme gestartet. Auf anderen PCs kommt die Fehlermeldung

"Die Ausführung dieser Anwendung wurde wegen eines Laufzeitfehlers angehalten. Die Anwendung kann nicht weiter ausgeführt werden und wird beendet."

Es werden keine weiteren Hinweise auf den Fehler ausgegeben.

Zu erst dachte ich, dass unterschiedliche Office Anwendungen installiert sind. Aber daran liegt es nicht. Es ist auch egal ob es ein Laptop oder Desktop ist. Alle haben eine 64 Bit.

Die DB ansich ist auf einem Server als Backend gespeichert. Ist die alte Version auch, da gab es keine Probleme. Jetzt wurde nur ein Bericht ergänzt und es kam zu den Problemen. Wenn ich den Bericht aus der DB entferne, bleibt der Fehler bestehen.

Der Zugriff auf die DB erfolgt von den Mitarbeitern über eine Frontend Datei.

Ich hoffe, dass ich euch alle Informationen gegen habe, wenn nicht einfach schreiben, was ihr noch braucht.

Da ich hier ganz neu bin, weiß ich gerade nicht, wie ich die Startsequenz hier einstellen kann, sorry 

Ich hoffe, dass das so richtig ist.

Danke und Gruß

Code [Auswählen] Erweitern

Option Compare Database
Option Explicit

'Const SW_HIDE = 0       ' Fenster ausblenden
'Const SW_NORMAL = 1     ' Fenster wiederherstellen bzw. einblenden
'Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub cmdEndeVerfahren_Click()
On Error GoTo Err_cmdEndeVerfahren_Click

    If InputBox("Kennwort ?") = "GoodBye" Then
        DoCmd.OpenForm "frmEndeVerfahren"
    Else
        MsgBox "Kennwort falsch"
    End If

Exit_cmdEndeVerfahren_Click:
    Exit Sub

Err_cmdEndeVerfahren_Click:
    MsgBox Err.Description
    Resume Exit_cmdEndeVerfahren_Click
End Sub

'Durch diesen Code wird das Access-Hauptfenster unsichtbar.
Private Sub Form_Open(Cancel As Integer)
   
DoCmd.RunCommand acCmdAppMinimize
DoCmd.Maximize              'Beim öffnen des Formulars auf Bildschirmgröße Maximieren
DoCmd.RunCommand acCmdAppMinimize
Me.Caption = "  "
DoCmd.OpenForm "frmStart", , , , , WindowMode:=acDialog
   
'DoCmd.RunCommand acCmdAppMinimize 'minimiert die Access-Anwendung und
'DoCmd.Maximize maximiert das Fenster des aktiven Objects.

   'Dim hWindow As Long
   'Dim nResult As Long
   'Dim nCmdShow As Long
   'hWindow = Application.hWndAccessApp
   'nCmdShow = SW_HIDE
   'nResult = ShowWindow(hWindow, nCmdShow)
   'nCmdShow = SW_NORMAL
   'nResult = ShowWindow(Me.hwnd, nCmdShow)
End Sub


Private Sub Befehl2_Click()
DoCmd.Close Me
End Sub

Private Sub cmdKdoRSU_Click()
DoCmd.OpenForm "frmKdoRSU"
End Sub

Private Sub cmdNeuerDS_Click()
On Error GoTo Err_cmdNeuerDS_Click

    If InputBox("Kennwort ?") = "NewComer" Then
        DoCmd.OpenForm "frmNeuerDS"
    Else
        MsgBox "Kennwort falsch"
    End If

Exit_cmdNeuerDS_Click:
    Exit Sub

Err_cmdNeuerDS_Click:
    MsgBox Err.Description
    Resume Exit_cmdNeuerDS_Click
End Sub

Private Sub cmdWartung_Click()
On Error GoTo Err_cmdWartung_Click



    If InputBox("Kennwort ?") = "Nobody" Then
        DoCmd.Close acForm, "frmStart"
    Else
        MsgBox "Kennwort falsch"
    End If

Exit_cmdWartung_Click:
    Exit Sub

Err_cmdWartung_Click:
    MsgBox Err.Description
    Resume Exit_cmdWartung_Click

End Sub

Private Sub Form_AfterUpdate()
DoCmd.Maximize              'Beim öffnen des Formulars auf Bildschirmgröße Maximieren
DoCmd.RunCommand acCmdAppMinimize
DoCmd.OpenForm "frmStart", , , , , WindowMode:=acDialog
End Sub

Private Sub Form_Current()
DoCmd.Maximize                                          'Beim öffnen des Formulars auf Bildschirmgröße Maximieren
DoCmd.RunCommand acCmdAppMinimize
DoCmd.OpenForm "frmStart", , , , , WindowMode:=acDialog
End Sub

Private Sub Form_Load()
DoCmd.RunCommand acCmdAppMinimize
DoCmd.Maximize              'Beim öffnen des Formulars auf Bildschirmgröße Maximieren
DoCmd.RunCommand acCmdAppMinimize
Me.Caption = "  "
DoCmd.OpenForm "frmStart", , , , , WindowMode:=acDialog
End Sub

Private Sub Form_Refresh()
DoCmd.RunCommand acCmdAppMinimize
DoCmd.Maximize              'Beim öffnen des Formulars auf Bildschirmgröße Maximieren
DoCmd.RunCommand acCmdAppMinimize
DoCmd.OpenForm "frmStart", , , , , WindowMode:=acDialog
End Sub

Private Sub Form_Update()
DoCmd.RunCommand acCmdAppMinimize
DoCmd.Maximize              'Beim öffnen des Formulars auf Bildschirmgröße Maximieren
DoCmd.RunCommand acCmdAppMinimize
DoCmd.OpenForm "frmStart(", , , , , WindowMode:=acDialog
End Sub