Results 1 to 6 of 6
  1. #1
    UT227 is offline Expert
    Windows 7 32bit Access 2013 32bit
    Join Date
    Feb 2016
    Posts
    581

    Full Size

    I have a main menu that comes up when my database opens. I want it to go to full screen and stay that way. Is there a setting for that?

  2. #2
    ranman256's Avatar
    ranman256 is offline VIP
    Windows Vista Access 2010 32bit
    Join Date
    Apr 2014
    Location
    Kentucky
    Posts
    9,550
    in the macro , autoexec,
    openform mainform
    maximize

  3. #3
    Missinglinq's Avatar
    Missinglinq is offline VIP
    Windows 7 64bit Access 2007
    Join Date
    May 2012
    Location
    Richmond (Virginia, not North Yorkshire!)
    Posts
    3,018
    By 'full screen' do you mean so that even the Access shell (ie Navigation Pane, Ribbon, etc.) doesn't show?

    Linq ;0)>

  4. #4
    UT227 is offline Expert
    Windows 7 32bit Access 2013 32bit
    Join Date
    Feb 2016
    Posts
    581
    I didn't think about not letting the Ribbon show. I would like to try that. Also, I get to the main menu through a login form. Here's the code for the login.

    Private Sub Command0_Click()

    On Error GoTo Err_Handler

    If IsNull(txtUsername) Then
    MsgBox "Invalid username"
    Exit Sub
    End If
    If IsNull(txtPassword) Then
    MsgBox "Invalid Password"
    Exit Sub
    End If
    Dim X As Long
    X = Nz(DLookup("EmployeesID", "qryEmployeesCurrent", "Username='" & txtUsername & "' AND Password='" & txtPassword & "'"))

    If X > 0 Then
    ' We have a valid user
    DoCmd.OpenForm "frmMainMenu"
    Forms!frmMainMenu!txtUserID = X
    Forms!frmMainMenu!txtUsername = txtUsername
    DoCmd.Close acForm, "frmLogin"
    Else
    MsgBox "invalid Login"
    End If

    Exit_Handler:
    Exit Sub

    Err_Handler:
    If Err = 3078 Then
    MsgBox "The network connection is currently not available." & vbCrLf & _
    "Please try again later ..." & vbCrLf & vbCrLf & _
    "This application will now close", vbExclamation, "Network error"
    Application.Quit
    Else
    MsgBox "Error " & Err.Number & " in frmLogin Command0_Click procedure: " & Err.Description, vbCritical, "Program Error"
    GoTo Exit_Handler
    End If
    End Sub

  5. #5
    isladogs's Avatar
    isladogs is offline Access MVP / VIP
    Windows 10 Access 2010 32bit
    Join Date
    Jan 2014
    Location
    Somerset, UK
    Posts
    6,204
    If you want to maximise your form, just use DoCmd.Maximize in the Form_Load event

    For info on hiding one or all of the ribbon, nav pane, access application window & taskbar, see my example database https://www.accessforums.net/showthread.php?t=69856
    Colin Riddington, Access MVP, Website, email
    The more I learn, the more I know I don't know. When I know I don't know, I keep quiet!

  6. #6
    UT227 is offline Expert
    Windows 7 32bit Access 2013 32bit
    Join Date
    Feb 2016
    Posts
    581
    Perfect. Thanks.

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 12
    Last Post: 10-21-2018, 05:49 PM
  2. Replies: 4
    Last Post: 02-10-2015, 01:07 AM
  3. Replies: 2
    Last Post: 03-20-2013, 04:25 PM
  4. Printing Subreports Full Size
    By Paul H in forum Reports
    Replies: 4
    Last Post: 09-07-2012, 07:03 AM
  5. Replies: 1
    Last Post: 08-09-2012, 08:56 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums