HavingDatabaseRelations
New member
- Local time
- Today, 11:44
- Joined
- Feb 24, 2025
- Messages
- 10
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!