Hi,
not sure if anyone would be able to assist as I am not sure what the problem is or what could cause it but here is the explanation
When I open the DB from a network location, the DB works fine
when I open the DB on a remote desktop session from a .BAT file, the DB works fine
when any other user open the DB on a remote Desktop session using a .BAT file, the user gets the sign on screen and instead of going to a Menu form, only the items in the navigation pane is visible.
could this be any of my coding in the open menu button after sign on?
after sign on, the sign on form is hidden.
this is what code i have after sign on
Private Sub btnLogin_Click()
Dim cboUserName As String
Dim txtPassword As String
Dim rs As Recordset
strCBOPass = Me.cboUserName.Column(1)
strPassword = Me.txtPassword
If strCBOPass = strPassword Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdWindowHide
DoCmd.OpenForm "Menu"
DoCmd.OpenForm "ChangePassword"
Else
MsgBox "Login Unsuccessful"
Exit Sub
End If
DoCmd.SelectObject acModule, "OpenOutlook", True
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub
not sure if anyone would be able to assist as I am not sure what the problem is or what could cause it but here is the explanation
When I open the DB from a network location, the DB works fine
when I open the DB on a remote desktop session from a .BAT file, the DB works fine
when any other user open the DB on a remote Desktop session using a .BAT file, the user gets the sign on screen and instead of going to a Menu form, only the items in the navigation pane is visible.
could this be any of my coding in the open menu button after sign on?
after sign on, the sign on form is hidden.
this is what code i have after sign on
Private Sub btnLogin_Click()
Dim cboUserName As String
Dim txtPassword As String
Dim rs As Recordset
strCBOPass = Me.cboUserName.Column(1)
strPassword = Me.txtPassword
If strCBOPass = strPassword Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdWindowHide
DoCmd.OpenForm "Menu"
DoCmd.OpenForm "ChangePassword"
Else
MsgBox "Login Unsuccessful"
Exit Sub
End If
DoCmd.SelectObject acModule, "OpenOutlook", True
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub