Problems accessing a split database

[June7]

Don't know. Not an issue with my split db.

[tobydobo]

is yours over a LAN or WAN? Also did you accept the default settings whne you initially split it? wondering if there are some additional settings I can try.

[June7]

Like I know the difference between LAN or WAN? This is a government agency and I know the server is in another building so I would guess WAN? It's been 7 years since this db created and I inherited it as a 2003 mdb, not sure how the split was accomplished. Probably started as two separate files because knew that would be the final architecture. What defaults are you referring to?

[tobydobo]

The default record locking settings, Default Open mode, and Recordset would be the places I would think make a difference but im not sure.

[June7]

I have never adjusted those settings, not even when upgraded to 2007. The current settings are:

Default open mode: Shared
Default record locking: No locks

I don't see a setting for Recordset.

[tobydobo]

Hello June7,

Back to your update script mentioned in this thread...i have it working flawlessly, but wanted to see if you had something I could add that will show a copy progress dialog while it overwriting.

current code:


Private Sub Form_Load()
'Update procedure for the lab database program
'Check for updates to the program on start up and notify the user
'Then allow choice to download and install later version.

Dim cn As ADODB.Connection
Dim rsUpdateCheck As ADODB.Recordset
Dim Shell

Set cn = CurrentProject.Connection
Set rsUpdateCheck = New ADODB.Recordset
Set Shell = CreateObject("WScript.Shell")

'Select record from Version if user's version number in Label1 matches
rsUpdateCheck.Open "SELECT * FROM Version WHERE Field1='" & Me.Label1.Caption & "' ;", cn, adOpenStatic, adLockPessimistic

'If values don't match then there is a later version
If rsUpdateCheck.RecordCount < 1 Then
If MsgBox("There is a new version of Project Database available. Install now?", vbYesNo + vbApplicationModal + vbQuestion, "New Program Update") = vbYes Then
Shell.Run CurrentProject.Path & "\Update.vbs"
Set Shell = Nothing
Application.Quit
End If
End If
rsUpdateCheck.Close
cn.Close
End Sub

[June7]

You could try a popup MsgBox but might suspend process until responded to. Might be able to do a progress bar but I don't know how. I never tried anything because my users just get used to the time it takes for the copy and it is fast enough.

I am trying to eliminate the VBScript with alternative code found at http://www.access.qbuilt.com/html/update_front_end.html

So far, not going well.