I'm Lost

  • Thread starter Thread starter Dwight
  • Start date Start date
D

Dwight

Ok, here is what I am trying to accomplish. I have a MS
Access application that is shared at 2 locations on 2
different networks. The Application consists of 3
databases; 1 for the FE; 1 for the BE and for the
Startup. The user runs that Startup MDB, which copies the
FE to their PC and then opens the application. When I
make modifications to the FE, I put the new version in the
shared folder where it is copied during the startup
process. Right now everytime the user runs the startup it
copies the FE over even if there has not been any
modifications.

How do I keep the copying from happening if there has not
been any changes?

Here is code in the Startup:

Private Sub Form_Timer()
strPrograms = Command() & "ARGOMS.mdb"
FileCopy strPrograms, "C:\ARGOMS\ARGOMS.mdb"
strPrograms = Command() & "ARGOMS5.ico"
FileCopy strPrograms, "C:\ARGOMS\ARGOMS5.ico"
DoCmd.Quit acQuitSaveAll
End If

End Sub


Private Sub Form_Unload(Cancel As Integer)
RetVal = Shell("C:\Program Files\Microsoft
Office\Office\MSACCESS.EXE
C:\ARGOMS\ARGOMS.MDB /nostartup /cmd i:\cmd-daar-
go\argoms\", 1)
End Sub

Thanks in advance!

Dwight
 
Dwight said:
Ok, here is what I am trying to accomplish. I have a MS
Access application that is shared at 2 locations on 2
different networks. The Application consists of 3
databases; 1 for the FE; 1 for the BE and for the
Startup. The user runs that Startup MDB, which copies the
FE to their PC and then opens the application. When I
make modifications to the FE, I put the new version in the
shared folder where it is copied during the startup
process. Right now everytime the user runs the startup it
copies the FE over even if there has not been any
modifications.

How do I keep the copying from happening if there has not
been any changes?

Here is code in the Startup:

Private Sub Form_Timer()
strPrograms = Command() & "ARGOMS.mdb"
FileCopy strPrograms, "C:\ARGOMS\ARGOMS.mdb"
strPrograms = Command() & "ARGOMS5.ico"
FileCopy strPrograms, "C:\ARGOMS\ARGOMS5.ico"
DoCmd.Quit acQuitSaveAll
End If

End Sub


Private Sub Form_Unload(Cancel As Integer)
RetVal = Shell("C:\Program Files\Microsoft
Office\Office\MSACCESS.EXE
C:\ARGOMS\ARGOMS.MDB /nostartup /cmd i:\cmd-daar-
go\argoms\", 1)
End Sub

Thanks in advance!

Dwight
Click to expand...

You may want to have a look at Tony Toews' Auto FE Updater:

http://www.granite.ab.ca/access/autofe.htm

I haven't had occasion to use it myself, but people seem to like it.

If not that, then your code in the Startup MDB could check a
"ReleaseVersion" property, or field in a configuration table, in both
copies of the FE MDB, and only copy if the one on the server has a later
version.
 
Back
Top