Results 1 to 2 of 2
  1. #1
    Join Date
    Apr 2008
    All over, Now in Missouri

    Unanswered: VB Script Open Access in Full Screen

    I picked up this script off this site to clone my FrontEnd. Now I am trying to force it to open Access in max Screen. See second line from bottom:

    Set WshNetwork = CreateObject("WScript.Network")
    GetUser = WshNetwork.UserName
    Set WshNetwork = Nothing

    LUName = "T:\58TH\13_Databases\MTOC_Personnel_Database\Back end\PMD.accdb"
    'Note: or LUName = "UNC Name"
    oldname = LUName

    newName = Replace(LUName, ".accdb", "") & 1 & GetUser & ".accdb"

    retval = 0
    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    retval = objFSO.CopyFile(oldname, newName, True)

    Set objFSO = Nothing

    Dim objShell

    Set objShell = CreateObject("Wscript.Shell")

    objShell.Run "MSAccess.exe " & newName

    ' I am trying to for to open in Full Screen

    objShell.SendKeys "% x"

    Set objShell = Nothing
    We tend to look at Linear paths which can lead us to a path of resistance!

  2. #2
    Join Date
    Nov 2004
    out on a limb
    Provided Answers: 59
    Iirc you can do this by issuing docmd.maximise in you first forms on liad event

    Failing that there may be something here
    I'd rather be riding on the Tiger 800 or the Norton

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts