Hi All,
Me again
My DB is behaving very strange
Let be explain our setup
I sit in the office with a wired network. The file in use is on a network drive
When I use the DB, it works perfectly
The engineers in the hanger utilize a wifi connection and also they sign on to the remote desktop
The engineers opens the DB using a batch file.
The same file I use, I copy into a separate folder on the network which is the opened by the batch file.
Now the strange behavior is, when the Login page opens, it hides the navigation pane (works fine when I use it)
When the engineers opens the DB, on sign on button after entering credentials, the navigation pane appears and does not sign on
They have to click on the sign on button again to actually sigh in
Still the navigation pane is visible.
Below is my code when login forms opens and the actual login button code
Not sure if I am missing something, but on my side it works fine
Engineers gets the errors
Oh, below is my batch file code if needed
You assistance is highly appreciated
Me again
My DB is behaving very strange
Let be explain our setup
I sit in the office with a wired network. The file in use is on a network drive
When I use the DB, it works perfectly
The engineers in the hanger utilize a wifi connection and also they sign on to the remote desktop
The engineers opens the DB using a batch file.
The same file I use, I copy into a separate folder on the network which is the opened by the batch file.
Now the strange behavior is, when the Login page opens, it hides the navigation pane (works fine when I use it)
When the engineers opens the DB, on sign on button after entering credentials, the navigation pane appears and does not sign on
They have to click on the sign on button again to actually sigh in
Still the navigation pane is visible.
Below is my code when login forms opens and the actual login button code
Private Sub Form_Current()
Application.AutomationSecurity = msoAutomationSecurityForceDisable
DoCmd.NavigateTo ("acNavigationCategoryObjectType")
DoCmd.RunCommand (acCmdWindowHide)
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub
Private Sub btnLogin_Click()
Dim cboUserName As String
Dim txtPassword As String
Dim rs As Recordset
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.SetWarnings False
strCBOPass = Me.cboUserName.Column(1)
strPassword = Me.txtPassword
If strCBOPass = strPassword Then
DoCmd.OpenQuery "Update Registration Select to No"
DoCmd.OpenQuery "Clear_Registration_File"
DoCmd.OpenQuery "Update_Registration_All"
DoCmd.RunMacro "Update Aircraft SerialNo-Reg"
DoCmd.RunMacro "Update DAW Sheet TBL"
DoCmd.RunMacro "Startup"
DoCmd.OpenForm "Menu"
DoCmd.OpenForm "ChangePassword"
Else
MsgBox "Login Unsuccessful"
Exit Sub
End If
DoCmd.OpenQuery "Update DAW Data with Workpack no - Signon"
DoCmd.OpenQuery "Update User Log - Log In"
DoCmd.SelectObject acModule, "OpenOutlook", True
'Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
'Call DoCmd.RunCommand(acCmdWindowHide)
DoCmd.SetWarnings True
End Sub
Not sure if I am missing something, but on my side it works fine
Engineers gets the errors
Oh, below is my batch file code if needed
You assistance is highly appreciated
@ECHO OFF
md %USERPROFILE%\AppData\Local\Temp\Eng_DAW_Sheet\EngDAWSHEETTEMP
del %USERPROFILE%\AppData\Local\Temp\Eng_DAW_Sheet\EngDAWSHEETTEMP\DawSheet.accdb
copy "\\sjo2054\CAMO\DAW Sheet\Engineers\Daw Sheet.accdb" %USERPROFILE%\AppData\Local\Temp\Eng_DAW_Sheet\EngDAWSHEETTEMP\DawSheet.accdb
start %USERPROFILE%\AppData\Local\Temp\Eng_DAW_Sheet\EngDAWSHEETTEMP\DawSheet.accdb