Question

enter code here我有一个带有切换按钮的过滤表单。切换按钮具有一系列不同的on按钮，分别代表不同的报告。切换按钮的功能是让用户根据与所选报告相关的内容来选择激活哪些过滤器。我在表单底部有一个按钮，可根据切换选项和过滤条件来过滤报告。如何根据所选的切换打开报告？

  Dim rptName As String
    Select Case Me.yourOptionGroupFrameName
 Case 1
 rptOnboardParity = "TheReportForOption 1"
 Case 2
 rpCompletedExit = "TheReportForOption 2"
 Case 3
 Under Construction = "TheReportForOption 3"
 Case 4
 rptApplicantArchive = "TheReportForOption 4"
 Case 5
 rptSalaryIncreases
 Case 6
 rptEducation
 Case Else
 MsgBox "Not a valid Option", vbInformation
 Exit Sub
 End Select
 DoCmd.OpenReport rptName

这与我对切换框的想法类似。我有我的过滤器框和一个基于这些框进行过滤的按钮，但我不知道如何基于这些框进行过滤并根据切换框中的按下状态打开报告

Answer 1

首先，您要为选项组中的每个切换设置选项值。当用户选择了选项时，它将更改该选项组框架的值。因此，您可以使用switch语句检查框架的值。看来您需要做的就是将case语句更改为：

OrderBy

基于切换按钮进行过滤

1 个答案: