How do I have user look up file address and...

[Mike Madison]

add it into script to run sync?

The script used to sync data requires fullname of file, including drive
letter. Some users map the network folder to differing drive letters. I
want to write a script to allow the user to browse to the location of the
network data file and then drop the file name
("P:\networkfoldername\appname\data\data.mdb") into the script below to sync
to the local data file.


intMsgBoxReply = Msgbox("Do you want to Syncronize your data file?",
vbOKCancel)

If intMsgBoxReply = 1 Then

DoCmd.Beep
DoCmd.Hourglass (True)
varRet = SysCmd(acSysCmdSetStatus, "Syncronizing, please wait...")
DBEngine.Workspaces(0).OpenDatabase("d:\data\data.mdb").Synchronize
"P:\networkfoldername\appname\data\data.mdb", dbRepImpExpChanges
varRet = SysCmd(acSysCmdClearStatus)
DoCmd.Hourglass (False)
DoCmd.Beep

End If

 

[Douglas J. Steele]

Take a look at http://www.mvps.org/access/api/api0001.htm at "The Access
Web"