HavingDatabaseRelations
New member
- Local time
 - Yesterday, 23:30
 
- Joined
 - Feb 24, 2025
 
- Messages
 - 19
 
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:
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:
	
	
	
		
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!
 Form frmMainSwitchboard:
On Load:
		Code:
	
	
	Private Sub Form_Load()
    ' Minimize Access so it's out of the way
    Application.DoCmd.RunCommand acCmdAppMinimize
End Sub
	Data:
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!