I have this code in the Current() event for the "home page" of a database I built for work, in order to force the database into tabbed view instead of overlapping windows (it seems any time I sync changes to the database, it defaults everyone's copies back to overlapping windows):
Private Sub Form_Current()
If CurrentDb.Properties("UseMDIMode") <> 0 Then
CurrentDb.Properties("UseMDIMode") = 0
Dim Msg, Style, TITLE
Msg = "Please reopen the database to complete the sync."
Style = vbOKOnly
TITLE = "Sync Needed!"
Response = MsgBox(Msg, Style, TITLE)
If Response = vbOK Then
DoCmd.Quit
Else
DoCmd.Quit
End If
End If
End Sub
It works flawlessly on my computer every time, but I have coworkers that get a 3270 error "Property Not Found" when it executes on their computers. Is there anything I can do to fix this? They are forced to hit 'END' and the database opens in overlapping window -- which defeats the purpose of the code.
Private Sub Form_Current()
If CurrentDb.Properties("UseMDIMode") <> 0 Then
CurrentDb.Properties("UseMDIMode") = 0
Dim Msg, Style, TITLE
Msg = "Please reopen the database to complete the sync."
Style = vbOKOnly
TITLE = "Sync Needed!"
Response = MsgBox(Msg, Style, TITLE)
If Response = vbOK Then
DoCmd.Quit
Else
DoCmd.Quit
End If
End If
End Sub
It works flawlessly on my computer every time, but I have coworkers that get a 3270 error "Property Not Found" when it executes on their computers. Is there anything I can do to fix this? They are forced to hit 'END' and the database opens in overlapping window -- which defeats the purpose of the code.