Trying to force updates on Database

[Ekhart]

When I make updates to the database, I am trying to set up a simple button that I can push which will update the version number and force users to download the new copy. Right now I have a table for 'CurrentVersion' and I have a textbox on the loading screen with that versions number. If the 2 don't match, it pops up a message box and forces them to download the new copy before they can log in.

Right now I have a button on my admin sheet which automatically updates the table field CurrentVersion, and I have tried to have it also update the 'default value' for the text field VersionTxt on the frmLogin form (the initial screen that loads). This never seems to work, the default value does not update. I can go in and manually do this but was trying to have all of these fields update with the 1 button. Problem being if I forget to update this manually and people go to download the 'new' version, it would still have the old number on it and then not open even though it really is the new version but the version number is wrong.



I have tried using labels as well but could not get the code from the button to compare that to the CurrentVersion field from the tblVersionServer table.

[RuralGuy]

Have you tried to requery the TextBox?

[Ekhart]

So here is my code to try and update the default value... maybe it is wrong as it just doesn't do it.

Dim CurVer As String
Me.CurrentVersion = Me.CurrentVersion.Value + 0.01 'Updates the CurrentVersion on the tblVersionServer table
DoCmd.Save
CurVer = Me.CurrentVersion
Forms!frmLogin!VersionTxt.DefaultValue = CurVer ' Attempting to update the Default Value for the VersionTxt box on the frmlogin form.
DoCmd.Close
DoCmd.Requery
MsgBox "Database Version Updated"

[Bulzie]

Another Option that I use, create a .bat file or VB exe which is the code below, so when clicked it downloads a copy of the FE database to a folder on their local PC, then it looks for the version of Access they are using and opens the database using that version. So whenever you update the database, you just copy it to the network folder replacing the current one and next time they click the button to open the database, it will always download the latest copy. Here is example (first part checks to see if the program is already open):

Private Sub Form_Load()
On Error GoTo ErrTrap
AppActivate "SMM System"
Form1.Hide
MsgBox "The SMM System is already open.", vbSystemModal
Unload Form1
Set Form1 = Nothing
End

CopyAndLoad:
If Dir("c:\SMM", vbDirectory) = "" Then MkDir ("c:\SMM")
FileCopy "\\apps\apps\smm\SMM.accdb", "c:\SMM\SMM.accdb"

If Dir("C:\Program Files (x86)\Microsoft Office\OFFICE12\MSACCESS.EXE", vbDirectory) <> "" Then

Shell "C:\Program Files (x86)\Microsoft Office\OFFICE12\MSACCESS.EXE c:\SMM\SMM.accdb", vbNormalFocus

Else

If Dir("C:\Program Files\Microsoft Office\OFFICE12\MSACCESS.EXE", vbDirectory) <> "" Then

Shell "C:\Program Files\Microsoft Office\OFFICE12\MSACCESS.EXE c:\SMM\SMM.accdb", vbNormalFocus

Else

If Dir("C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE", vbDirectory) <> "" Then

Shell "C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE c:\SMM\SMM.accdb", vbNormalFocus

Else

If Dir("C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE", vbDirectory) <> "" Then

Shell "C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE c:\SMM\SMM.accdb", vbNormalFocus

Else

MsgBox "Could Not Find Microsoft Access Progrm. Please contact Support Group.", vbSystemModal

End If

End If

End If

End If
Unload Form1
Set Form1 = Nothing
End
Exit Sub

ErrTrap:
Select Case Err.Number
Case 5
GoTo CopyAndLoad
Case 70
MsgBox "Could Not Copy Current Version", vbSystemModal
Unload Form1
Set Form1 = Nothing
End
End Select
End Sub