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
Set objFSO = CreateObject("Scripting.FileSystemObject")
retval = objFSO.CopyFile(oldname, newName, True)
Set objFSO = Nothing
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!