Liebe Leute,
ich habe ein Problem, wonach ich in den Foren bisher ohne Erfolg gesucht habe.
Fast sicher geht es hier um keinen Fehler im VBA-Code, viel eher wird es ein nicht nachvollziehbares Access-internes-Verhalten sein, und zwar leider ein
fehlerhaftes... Trotzdem hoffe ich, dann man mit Tricks oder mit Umwegen im VBA-Code ein normales Verhalten von Access wieder erzwingen kann.
Die Access Version ist 2010er, genauer: Office Professional Plus 2010, 64bit
Das Problem ist: ich betreue eine Access-Anwendung, wo Access als Frontend, SQL Server als Backend arbeiten. Es ist eine alte Anwendung (ca.10 Jahre), und damit
arbeiten ca.40-60 User täglich. Seit ein paar Wochen hat ein User gemeldet, dass er beim Starten der Anwendung einen leeren Bildschirm bekommt, heute sind es bereits 3
User, die das selbe Problem haben. An der Anwendung wurde in dieser Zeit nichts geändert.
Bilschirmaufbau erfolgt im Autoexec-Makro.
Autoexec Funktion und den Code, in dem die Eigenschaften definiert werden,kopiere ich unten rein.
Wenn ich die folgende Zeile auskommentiere, wird die Anwendung korrekt gestartet, der Bildschirm wird angezeigt, nur halt die Eigenschaften sind nicht so definiert,
wir es brauchen.
DoCmd.RunCommand acCmdWindowHide
Hat jemand eine Idee?
Eventuell eine Idee wie man diese Zeile ersetzen kann durch eine andere Definition. Methode, ..?
Oder Idee was dieses seltsame verhalten von Access verursacht, bzw. wie es wegzukriegen ist?
Alle andere Benutzer können nach wie vor normal arbeiten, und auch die jetzt problematischen Konten haben bisher fehlerfrei funktioniert.
Danke fürs Mitdenken! :)
Liebe Grüße,
Anna
Public Function autoexecFunction()
Dim PersonID As Long
Dim w_Ret As Long
Dim w_count As Integer
readArgs
rsInit
If CurrentUserPersonID > 0 Then
If UserRole = 188 Or UserRole = 281 Then
openForm "user"
ElseIf UserRole = 189 Then
openTime PersonID
End If
If (isAdminVersion) Then
On Error Resume Next
adminVersion = True
DoCmd.openForm "admin"
End If
End If
SetAccessFrames
End Function
Public Sub SetAccessFrames()
Dim rs1 As Recordset2
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
Set rs1 = CurrentDb.OpenRecordset("accesslayout", dbOpenDynaset, dbSeeChanges)
If rs1!showframe <> 0 Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.SelectObject acTable, , True
On Error Resume Next
CurrentDb.Properties("AllowBuiltinToolbars") = True
CurrentDb.Properties("AllowFullMenus") = True
CurrentDb.Properties("StartUpShowStatusBar") = True
CurrentDb.Properties("AllowShortcutMenus") = True
CurrentDb.Properties("ShowDocumentTabs") = True
On Error GoTo 0
Else
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.SelectObject acTable, , False
On Error Resume Next
CurrentDb.Properties("AllowBuiltinToolbars") = False
CurrentDb.Properties("AllowFullMenus") = False
CurrentDb.Properties("StartUpShowStatusBar") = False
CurrentDb.Properties("AllowShortcutMenus") = False
CurrentDb.Properties("ShowDocumentTabs") = False
hideMessageBar
On Error GoTo 0
End If
End Sub
