Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Synchronization

Status
Not open for further replies.
abe6162

abe6162

Programmer
Sep 7, 2004
24
US
I am very new to Access.

I am trying to create an Access application that will be used by 10 users. I will put the design master on the server and replica of the Access Application on the clients machines. I will use the database splitter (on the design master before I do the replication) and transfer all the tables and the data to a backend database. This way all client applications will be pointing to a single data source.

My biggest issue is synchronization. If I create a new form or table, is there a way for me to code the application to perform synchronization with the design master automatically. We can not go around updating or synchronzie the application manually. Any code examples would be helpful.

Is there a better way to do this? I am new, so I might be looking at this issue completey wrong.
 
Sort by date Sort by votes
have a look at Thread181-900537

Hope this helps
Hymn
 
Upvote 0 Downvote
I use a macro to run the following update Module which in turn replaces about 20 objects in remote Db's


Function ImportCurrentObjects()
Dim MasterLibraryPath As String
MasterLibraryPath = "\\PathToMasterDb\MasterDb.mdb"

DoCmd.SetWarnings False

If DCount("*", "MSysObjects", "[Name] = 'LIbrary' ") = 1 Then DoCmd.DeleteObject acModule, "Library"
DoCmd.TransferDatabase acImport, "Microsoft Access", MasterLibraryPath, acModule, "Lib_Library", "Lib_Library", False

If DCount("*", "MSysObjects", "[Name] = 'CurrentActivityDisplay' ") = 1 Then DoCmd.DeleteObject acForm, "CurrentActivityDisplay"
DoCmd.TransferDatabase acImport, "Microsoft Access", MasterLibraryPath, acForm, "CurrentActivityDisplay", "CurrentActivityDisplay", False

If DCount("*", "MSysObjects", "[Name] = 'reset_warnings_to_yes' ") = 1 Then DoCmd.DeleteObject acMacro, "reset_warnings_to_yes"
DoCmd.TransferDatabase acImport, "Microsoft Access", MasterLibraryPath, acMacro, "ResetWarningsToYes", "ResetWarningsToYes", False

DoCmd.SetWarnings true

End function

RGB
 
Upvote 0 Downvote
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top