OK. I can't see anything obvious in the list of differences but thanks for doing that.
If you can upload the two forms and anything else needed to make them work, I'll have a look and see if I can solve it for you.
If you can upload the two forms and anything else needed to make them work, I'll have a look and see if I can solve it for you.
strProc = Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane.TopLine, 0)
I can now open the registration & password change forms without the app window reappearing.
(([Lookup_AccessLvl].[AccessLvl]<>"Admin" Or [Lookup_AccessLvl].[AccessLvl] IS Null)) AND ([Lookup_AccessLvl].[AccessLvl]<>"Deactivated" Or [Lookup_AccessLvl].[AccessLvl] IS Null)
You really need to go through and:
1. rename all controls with meaningful names instead of Command1, Label41 etc. This will make debugging much easier both for you & anyone else
2. remove superfluous code which you've imported but aren't using
Private Sub Form_Load()
On Error GoTo Err_Handler
Exit_Handler:
Exit Sub
Err_Handler:
strProc = Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane.TopLine, 0)
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " & Err.Description
Resume Exit_Handler
End Sub
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Handler
Exit_Handler:
Exit Sub
Err_Handler:
strProc = Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane.TopLine, 0)
MsgBox "Error " & Err.Number & " in " & strProc & " procedure : " & Err.Description
Resume Exit_Handler
End Sub
Colin I cannot thank you enough for the time you spent digging through my code
.....
I realize you said you did not want to spend any more time on this but I thought I would take a shot since you were now very read up on my code.
If not... no worries, I still cannot thank you enough for all of your effort.
Please don't remove Option Explicit again - it will only mask underlying issues
All forms are now opened as acDialog so all show a title bar
Not quite so neat but at least you can move them easily
I've also altered the code in the Register button of the registration form to fix an error if the button clicked with no registration info entered. It no longer closes the form if so
I didn't look at your report issue
Hopefully, otherwise now OK
DoCmd.OpenForm "frm_home", , , , , acDialog 'CR - added acDialog 18/09/2018
DoCmd.Close acForm, Me.Name
You're welcome
As you have a delay of more than a second or so, I would suggest you use the hourglass command so users know something is happening
Use DoCmd.Hourglass True as you open a form then DoCmd.Hourglass False once it has loaded
Do you want to mark this as solved?
Good luck with the rest of your project
Yea... when I use the local tables it is lightening fast for me too... it happens when linking tot he backend on a network drive many states away from me (and all other uses as well unless they are in the same state as the backend).When I looked at the cut downversion you uploaded the app responded quickly including the various tabs on frmHome.
and that is where I get frustrated because while the navigation control version of the database was not lightening fast... it was way faster than the tab control version.{/quote]However if a form takes more than 2-3 seconds to load (let alone 60s), you clearly have a serious problem either with your application design or your code or your hardware (or all of these).
Believe it or not I read somewhere on how to decompile and I did that before I uploaded the version you looked at.It may be you have corrupt compile code. I can't remember whether you have already tried decompiling. If not, do so.
Otherwise I think you may be at the stage where you need to start again with a new database and add items one at a time until problems become apparent.
I thought you went with MarkK's solution using tabbed forms and remember you saying it was fast at that time. Something must have changed since then.