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

    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
    Location
    out on a limb
    Posts
    13,692
    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 http://www.dbforums.com/showpost.php...9&postcount=51
    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
  •