startup view

[Canaglia]

Hi all,

I'm new in this forum
but I have a little problem with my db....
on the startup i like that appear only the welcome splash screen (my first form), without all access menù, because many person open the program....
It's possible?



Thank you
Ste

[alansidman]

Click on the Office Button (Upper Left Corner). Click on Access Options (bottom of window). Select Current Database. Select the Form you wish to have open in the Application Options. In the Navigation Section, uncheck Dispaly Navigation Pane. In the Ribbon and Toolbar section uncheck the three check boxes.

Alan

[Canaglia]

Thank you Alan and sorry for my english...

with this solution my opening form appiar in the popup style but in background still persist access without navigation pane and ribbon...
I prefer that appear only the form. Is it posisble?

Ste

[alansidman]

Look at this link. If you download the attachment, the second item in the first column may be what you are looking for. You will have to reverse engineer this to determine how it is done.

https://www.accessforums.net/code-re...ples-7540.html

Alan

[Canaglia]

Hi...

The corporate VPN prevents the downloads of the file...
I can't look it inside...
Is there a solution?

Ste

[alansidman]

Here is an onload event for the form that you will open as your splash or first form when you launch Access. I took it from the file referenced. I did not build this and cannot take credit for it. It is a product of PKStormy. If you have specific questions, you may want to PM him and ask him to look at this thread.

Private Sub Form_Load()
'Removing caption bar code
Dim fi As FormInfo
Set fi = New FormInfo
Set fi.Form = Me
'*** Rem out below for testing
fi.ShowCaptionBar = False
DoCmd.Maximize
End Sub

Here is an alternative listed in the same file:

Private Sub Form_Load()
'Removing all access information code

Call Module2.fSetAccessWindow(2)

End Sub

and here is the Module2 that is called in the above code.

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "USER32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
err.Clear
End If
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function