Update Databawe

I have a database that I've split into a FE&BE.  The client(FE) is on the client's C: drive.  The BE is on the Shared Drive.

Currently when I make changes to the database I have to let each client know to go to the shared drive and copy the changed database to their C: drive.

Is there code i can use that would do this systematically?
mato01Asked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
Jeffrey CoachmanConnect With a Mentor MIS LiasonCommented:
There are at least a dozen ways to do this.
You can do a Google search for:
   Microsoft Access Database Front End update automatic
http://www.google.com/#hl=en&source=hp&q=+++Microsoft+Access+Database+Front+End+update+automatic&btnG=Google+Search&aq=f&aqi=&aql=&oq=&gs_rfai=&fp=7db4f7af4a13aa89

To see hundreds of links
;-)


The link:
http://www.autofeupdater.com/
...is not a "Program" per se.
It is just a file you put on your machine.
(see the description in the link)

<I cannot download programs/software to my work laptop.>
Even if it fixes an crucial problem, and works flawlessly?
Can you explain to your supervisors that may be needed?
Just for testing, if it is not applicable it can be deleted.
This is by far one of the most popular utilities for doing this.
It is robust and you have support for it.

If you use a "Code Only" solution that you get from a link or even an expert here, and it has issues: (Version incompatibilities, No Roll Backs, No error handling, No backup, No tech support, causes unforeseen issues in your database, ....or needs extensive mods to work in your environment, ...
...who ya gonna call? ... if *Your* database has issues because of it??
;-)


But again do the Google search and see if you feel comfortable with any of the other techniques

;-)

JeffCoachman

0
 
Rey Obrero (Capricorn1)Commented:
0
 
mato01Author Commented:
I was looking for another solution because I cannot download programs/software to my work laptop.
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
mato01Author Commented:
I've attached the code from

http://www.access.qbuilt.com/html/update_front_end.html

See code below:  Do I have to create an executable "MSAccess.exe" file for the database I'm trying to download.

 'Determine path of current Access executable.
  strAccessExePath = SysCmd(acSysCmdAccessDir) & "MSAccess.exe "
Option Compare Database
Option Explicit
 
Declare Function apiCopyFile Lib "KERNEL32" Alias "CopyFileA" _
                   (ByVal lpExistingFileName As String, _
                   ByVal lpNewFileName As String, _
                   ByVal bFailIfExists As Long) As Long

Public Function UpdateFEVersion()
  On Error GoTo ProcError
 
  Dim strSourceFile As String
  Dim strDestFile As String
  Dim strAccessExePath As String
  Dim lngResult As Long
 
  'Create the source's path and file name.
  strSourceFile = "\\server\share\YourFEDatabase.mde"
  strDestFile = CurrentProject.FullName
     
  'Determine path of current Access executable.
  strAccessExePath = SysCmd(acSysCmdAccessDir) & "MSAccess.exe "

  If Dir(strSourceFile) = "" Then 'Something is wrong and 
                                             ' the file is not there.
     MsgBox "The file:" & vbCrLf & Chr(34) & strSourceFile & _
       Chr(34) & vbCrLf & vbCrLf & _
       "is not a valid file name. Please see your Administrator.", _
       vbCritical, "Error Updating To New Version..."
       GoTo ExitProc
  Else 'copy the new version of app over the existing one.
     lngResult = apiCopyFile(strSourceFile, strDestFile, False)
  End If
                   
  'Modify strDestFile slightly so that it can be used
  ' with the Shell function.
  strDestFile = """" & strDestFile & """"

  MsgBox "Application Updated. Please wait while the application" & _
     " restarts.", vbInformation, "Update Successful"

  'Load new version, then close old one.
  Shell strAccessExePath & strDestFile & "", vbMaximizedFocus

  DoCmd.Quit

ExitProc:
Exit Function
ProcError:
  MsgBox "Error " & Err.Number & ": " & Err.Description, , _
     "Error in UpdateFEVersion event procedure..."
  Resume ExitProc
End Function

Open in new window

0
 
als315Commented:
See code below:  Do I have to create an executable "MSAccess.exe" file for the database I'm trying to download.

It is Microsoft Access, which is executed your DB. It can be placed in different places and program need know, where it is.
0
 
Jeffrey CoachmanMIS LiasonCommented:
ok
0
All Courses

From novice to tech pro — start learning today.