Re: [MS_AccessPros] What is the best way to update front end automatically when a new version is available?

 

Dear Duane,

Thank you so much. I'm going to try it tomorrow.

Best Regards,

Kevin

发自 WPS邮箱客戶端

在 "Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2019年2月7日 22:19写道：

 

This is the script file that is saved with a vbs extension. This is the only copy I could find and it is used for an Excel file. I don't have the time now to change the lines near the bottom to make it Access.

'===================

' File: TrustCopyRun.vbs

'===================

   Const SystemFolder= 1

   Dim fso  'to be used for file related code

   Dim SysFolder

   Dim SysFolderPath

   dim strUserLogin

   Dim RegEdPath

   Dim strAppFolder

   Dim strAppName

   Dim strAppFile

   Dim strAppNetworkFile

'==============================================================

'  edit the values in the next three lines to match your application and network location

   strAppName = "YourAppTitleHere"

   strAppFile = "YourAppFileNameHere"

   strAppNetworkFile = "YourFullAppNameHereWithNetworkPathIncluded"

'==============================================================

   Set fso = wscript.CreateObject("Scripting.FileSystemObject")

   Set SysFolder =fso.GetSpecialFolder(SystemFolder)

   SysFolderPath= SysFolder.Path

   'initialize the script shell object

   Set WshShell = WScript.CreateObject("WScript.Shell")

   strUserLogin = WshShell.ExpandEnvironmentStrings("%USERNAME%")

   strAppFolder = "C:\users\" & strUserLogin & "\" & strAppName

   if not fso.FolderExists(strAppFolder) Then

      fso.CreateFolder strAppFolder

   End If

   'Office 12

   RegEdPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\"

   WshShell.RegWrite  RegEdPath  ,strAppName

   'Write the values into the registry

   WshShell.RegWrite  RegEdPath & strAppName & "\Path" , "C:\Users\" & strUserLogin & "\" & strAppName & "\"

   WshShell.RegWrite  RegEdPath & strAppName & "\AllowSubfolders" , 1, "REG_DWORD"

   'Office 14

   RegEdPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\"

   WshShell.RegWrite  RegEdPath  ,strAppName

   'Write the values into the registry

   WshShell.RegWrite  RegEdPath & strAppName & "\Path" , "C:\Users\" & strUserLogin & "\" & strAppName & "\"

   WshShell.RegWrite  RegEdPath & strAppName & "\AllowSubfolders" , 1, "REG_DWORD"

   'copy the application file from the network location to the local folder

   fso.CopyFile strAppNetworkFile ,strAppFolder & "\", 1

   'run the application

   Set xlApp = CreateObject("Excel.Application")

   set xlBook = xlApp.WorkBooks.Open(strAppFolder & "\" & strAppFile)

   'wshshell.Run strAppFolder & "\" & strAppFile

wscript.Quit

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Kevin qingqinga@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Wednesday, February 6, 2019 11:23 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] What is the best way to update front end automatically when a new version is available?

 

Dear Duane,

Would you please give an example of the batch file? So I can make some changes to suit my case? Thanks a lot.

Best Regards,

Kevin

On 07-Feb-2019 12:11 PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] wrote:

�

Hi Kevin,

If you search the web you will find several free utilities. I generally create a script or batch file that

- creates a directory on the user�s hard drive

- copies the front end to the directory

- sets the directory to trusted

- opens the file

Duane

Get Outlook for iOS

�

---

From: ms_access_professionals@yahoogroups.com on behalf of Kevin qingqinga@yahoo.com [MS_Access_Professionals] <ms_access_professionals@yahoogroups.com>
Sent: Wednesday, February 6, 2019 10:00 PM
To: ms_access_professionals@yahoogroups.com
Subject: [MS_AccessPros] What is the best way to update front end automatically when a new version is available?

�

Dear All,

What is the best way to update front end automatically when a new
version is available? Thanks in advance.

Best Regards,

Kevin



------------------------------------
Posted by: Kevin <qingqinga@yahoo.com>
------------------------------------


------------------------------------

Yahoo Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/MS_Access_Professionals/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/MS_Access_Professionals/join
(Yahoo! ID required)

<*> To change settings via email:
MS_Access_Professionals-digest@yahoogroups.com
MS_Access_Professionals-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
MS_Access_Professionals-unsubscribe@yahoogroups.com

<*> Your use of Yahoo Groups is subject to:
https://info.yahoo.com/legal/us/yahoo/utos/terms/

__._,_.___

---

Posted by: qingqinga <qingqinga@yahoo.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (5)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

SPONSORED LINKS

.

__,_._,___