Can Access "on open" go to a certain form?

gheyman

Well-known Member
Joined
Nov 14, 2005
Messages
1,814
Office Version
  1. 365
Platform
  1. Windows
Can Access "on open" go to a certain form and Hide Navigator?

Form: EZStartUp
 

Some videos you may like

Excel Facts

Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.

mole999

Moderator
Joined
Oct 23, 2004
Messages
10,524
Office Version
  1. 2019
  2. 2016
  3. 2013
Platform
  1. Windows
I would think from the autoexec you could launch that
 

welshgasman

Well-known Member
Joined
May 25, 2013
Messages
871
Yes and a lot more.
You can use an autoexec or hidden form.

I chose a form for one DB and this in the open event I decide which form to open depending on the type of user..

HTH

Code:
Option Compare Database
Option Explicit
Public dbPA As DAO.Database
Public rsUser As Recordset


Private Sub Form_Close()
'    MsgBox rsUser.Fields("Full_Name")
' Now we clear the logged in flag to identify anyone left logged in when tring to update/amend the back end.


With rsUser
    .Edit
    .Fields("Logged_in").Value = False
    .Update
End With


rsUser.Close
Set rsUser = Nothing
Set dbPA = Nothing
Application.Quit acQuitSaveAll
End Sub


Private Sub Form_Open(Cancel As Integer)
'This form will control what form will be used as startup depending on the user name (FileID) in Windows.
' If an FL, they will get the control form, if PA, just the allocation form


Dim strOpenForm As String, strSQL As String, strUser As String, strRole As String, blnFlow_Leader As Boolean
Dim intRecordCount As Integer
Dim strReqPath As String


On Error GoTo Err_Handler


strReqPath = "C:\Program Files\PA Allocation"


'First make sure user is running their own accde file on their computer


If InStr(CurrentProject.Name, "accde") > 0 Then
    If CurrentProject.Path <> strReqPath Then
        MsgBox "Incorrect database opened, this will now close"
        Application.CloseCurrentDatabase
    End If
Else
    MsgBox "WARNING - This is not the accde file"
End If


'Using the TempVar collection for any global variables


TempVars("G_File_ID").Value = Environ("USERNAME")
TempVars("G_Full_Name").Value = ""




strUser = TempVars("G_File_ID").Value




strSQL = "SELECT User.Full_Name, User.Role,User.Flow_leader, User.Logged_In FROM User WHERE  (((User.File_ID)='" & strUser & "'));"


'MsgBox strSQL


Set rsUser = CurrentDb.OpenRecordset(strSQL)
' If no record found then EOF is true


If Not rsUser.EOF Then
    intRecordCount = rsUser.RecordCount
    TempVars("G_Full_Name") = rsUser.Fields("Full_Name").Value
    strRole = rsUser.Fields("Role").Value
    blnFlow_Leader = rsUser.Fields("Flow_Leader").Value
  Else
    MsgBox "Unable to locate User for User ID " & strUser
    Exit Sub
End If


' Now we set the logged in flag to identify anyone left logged in when tring to update/amend the back end.
With rsUser
    .Edit
    .Fields("Logged_in").Value = True
    .Update
End With




'Recordset and database now closed in Close event when database closes
' rsUser.Close
' Set rsUser = Nothing
' Set dbPA = Nothing


' Cancel opening of this form
' Cancel = True


' Now we open specific form


If intRecordCount > 0 Then
    If strRole = "FL" Then
        strOpenForm = "FL_Control"
    Else
        If strRole = "PA" Then
            strOpenForm = "PA_Work_Allocation"
        Else
            strOpenForm = "FT_Work_Allocation"
        End If
    End If
    
End If


DoCmd.OpenForm strOpenForm


Err_Exit:
    Exit Sub
    
Err_Handler:
    MsgBox "Error " & Err.Number & " " & Err.Description
    Resume Err_Exit
End Sub
 
Last edited:

Marbles

Well-known Member
Joined
Feb 7, 2005
Messages
622
If you mean on opening a specific database, the options menu for the database lets you set all that.
 

Watch MrExcel Video

Forum statistics

Threads
1,123,304
Messages
5,600,862
Members
414,409
Latest member
FloordAlex

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top