multiuser split DB, replicating the FE?!? 1

echo off

c:
cd\ 
if not exist C:\FCM\ mkdir C:\FCM\

cd FCM

rem copy if a newer version exists
if not exist "FCM_UR_VERSIE_3F.txt"  copy "N:\CCC Facturering consumentenmarkt\rap_publ\80_urenregistratie\FCM_urenregistratie.mde" "c:\FCM\FCM_urenregistratie.mde"
					   
rem kopieer versie bestand indien nodig
if not exist "FCM_UR_VERSIE_3F.txt" copy "N:\CCC Facturering consumentenmarkt\rap_publ\80_urenregistratie\FCM_UR_VERSIE_3F.txt" "c:\FCM\FCM_UR_VERSIE_3F.txt"

rem kopieer databases naar C indien deze er nog niet staat
if not exist "C:\FCM\FCM_urenregistratie.mde" copy "N:\CCC Facturering consumentenmarkt\rap_publ\80_urenregistratie\FCM_urenregistratie.mde" "C:\FCM\FCM_urenregistratie.mde"

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" "C:\FCM\FCM_urenregistratie.mde" /WRKGRP "N:\CCC Facturering consumentenmarkt\RAP_PUBL\88_mdw\SYS_FCM.MDW"

exit

Public Sub DeleteTableLinks(Optional strConnectString As String = "")
'If strConnectString is omited all links will be removed
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
    If tdf.Connect <> "" Then 'Check for linked tables
        'Check for pointed links
        If InStr(1, tdf.Connect, strConnectString, vbTextCompare) > 0 Then
            'Removing links
            DoCmd.DeleteObject acTable, tdf.Name
            DoCmd.Echo True, "Progress: Deleting link to table " & tdf.Name
        End If
    End If
Next tdf
End Sub

Public Sub RemakeTableLinks()
On Error GoTo Err_RemakeTableLinks
Dim dbs As Database
Dim tdf As TableDef
Dim tdfCount As Long
Dim intCount As Long
Dim strLinkSourceDB As String
Dim strFile As String
Dim strPath As String

' Need to go get database from user
If CurrentUser() = "graham" Then
    strPath = "C:\Files\CW\Customers\DO\BOff\"
Else
    strPath = "\\172.16.1.251\ssd\sysdev\"
End If
strLinkSourceDB = ahtCommonFileOpenSave( _
                  DialogTitle:="Please select a Back End file...", _
                  Flags:=ConstHIDEREADONLY, _
                  InitialDir:=strPath & "\", _
                  FileName:=strFile)

'Open source DB
'MsgBox strLinkSourceDB
Set dbs = OpenDatabase(strLinkSourceDB)

'Counting tables in the source DB
For Each tdf In dbs.TableDefs
    If Left(tdf.Name, 4) <> "MSys" Then
        'Do not link to the System tables
        tdfCount = tdfCount + 1
    End If
Next tdf
'Check all tables in source DB (dbs)
For Each tdf In dbs.TableDefs
    If Left(tdf.Name, 4) <> "MSys" Then
        'Do not link to the System tables
        'Creating links
        intCount = intCount + 1
        DoCmd.TransferDatabase acLink, "Microsoft Access", strLinkSourceDB, acTable, tdf.Name, tdf.Name
        DoCmd.Echo False, "Progress: Linking table " & intCount & " of " & tdfCount
    End If
Next tdf
'Close source DB
dbs.Close
Set dbs = Nothing

Exit_RemakeTableLinks:
DoCmd.Echo True
Exit Sub

Err_RemakeTableLinks:
MsgBox Err.Description, , "mdlLinkedTable, Sub RemakeTableLinks " & Err.Number
Resume Exit_RemakeTableLinks
End Sub

echo off
c:
cd\ 
if not exist C:\FCM\ mkdir C:\FCM\

cd FCM

REM check the version file to see if a newer version exists
REM and copy the front-end if  necessary
if not exist "My_versionfile_1A.txt"  copy "N:\public_server_folders \MyCompiledFrontEnd.mde" "c:\FCM\ MyCompiledFrontEnd.mde "
                       
REM Now also copy the version file if there is a newr on the server
if not exist "My_versionfile_1A.txt"  copy "N:\public_server_folders \MyCompiledFrontEnd.mde" "c:\FCM\ My_versionfile_1A.txt "

REM If the mde file is not present on the local folder, than make a copy
if not exist "c:\FCM\ MyCompiledFrontEnd.mde " copy "N:\public_server_folders \MyCompiledFrontEnd.mde" "c:\FCM\ MyCompiledFrontEnd.mde "

REM Now start up the Database. Make sure the paths are correct:
"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" "c:\FCM\ MyCompiledFrontEnd.mde " /WRKGRP " N:\public_server_folders\SYS_MyWorkGroupFile.mdw"

exit