Combo Box will only work if Access is no minimized
Windows 11 
Access 2019
I have a very strange problem. I created a switchboard form that, among other things, has a combo box that allows the user to select from a static list. The appropriate form is opened depending on the selection made in the On Click Event. In my app I start with an Autoexec macro that calls up the switchboard. The On Load Event of the switchboard form minimizes Access. When a selection is clicked on the combo box, nothing happens. The selections are there and accessible. But nothing further happens. But when I pull up Access from its minimized state, and reload the switchboard form, it closes the switchboard form and pulls up the next form without issue.
Form frmMainSwitchboard:
On Load:
Data:Code:Private Sub Form_Load() ' Minimize Access so it's out of the way Application.DoCmd.RunCommand acCmdAppMinimize End Sub
No Control Source
Row Source: "Pick Desired Report";"Month-To-Date";"Rolling Month-To-Date";"Last Week";"Top N"
Row Source Type: Value List
Bound Column: 1
Limit To List: Yes
Allow Value List Edits: No
Inherit Value List: Yes
Show Only Row Source: Yes
Default Value: "Pick Desired Report"
Enabled: Yes
Locked: No
Auto Expand: Yes
Everything else is blank
On Click Event:
Code:Private Sub cboReportType_Click() If Me.cboReportType <> "Pick Desired Report" Then Select Case Me.cboReportType Case "Month-To-Date" DoCmd.OpenForm "frmMTDSalesOrders", acNormal Case "Rolling Month-To-Date" RollingMTD = True DoCmd.OpenForm "frmMTDSalesOrders", acNormal Case "Last Week" Case "Top N" End Select 'Close the main swithboard form DoCmd.Close acForm, "frmMainSwitchboard" End If End Sub
Other:
Pop-Up: Yes
Modal: No
Cycle: All Records
Shortcut Menu: No
Help Context ID: 0
Has Module: Yes
Use Default Paper Size: No
Fast Laser Printing: Yes
Everything else is blank
Yes, my error trapping sucks. And I haven't entered code for the last two selections since the first two do not work. AGAIN, Everything works PERFECTLY if I run this within Access (Clicking Form View from Design View) but not from starting from just running the app which triggers the autoexec. I look forward to your responses!
Reply With Quote
Originally Posted by Welshgasman
