Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/spring/13.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Forms 在Access 2013中将筛选器应用于打开窗体宏_Forms_Vba - Fatal编程技术网

Forms 在Access 2013中将筛选器应用于打开窗体宏

Forms 在Access 2013中将筛选器应用于打开窗体宏,forms,vba,Forms,Vba,我们学校的一个系要求我创建一个数据库,他们可以轻松地存储和过滤数据 我已经有很长一段时间没有使用Access了,我似乎记不起或者找不到一种方法来创建一个可以对它打开的窗体应用过滤器的工作宏 我有一个名为Main_Data的表,其中有一个名为“Class”的列。这就是我希望在打开表单时过滤并显示的数据。正在打开和筛选的表单是“阅读学生报名表” 我正在使用form builder,并按如下方式进行设置: 表格名称:阅读学生报名表 视图:表单 过滤器名称: 其中条件:[主数据]![类别]=“类别1”

我们学校的一个系要求我创建一个数据库,他们可以轻松地存储和过滤数据

我已经有很长一段时间没有使用Access了,我似乎记不起或者找不到一种方法来创建一个可以对它打开的窗体应用过滤器的工作宏

我有一个名为Main_Data的表,其中有一个名为“Class”的列。这就是我希望在打开表单时过滤并显示的数据。正在打开和筛选的表单是“阅读学生报名表”

我正在使用form builder,并按如下方式进行设置:

表格名称:阅读学生报名表

视图:表单

过滤器名称:

其中条件:[主数据]![类别]=“类别1”

数据模式:编辑

窗口模式:正常

理想情况下,当它运行时,我希望它能够让用户输入他们想要应用于过滤器的类,因为这个方法似乎需要为每个类创建几个不同的宏,然后将它们分配给命令按钮

非常感谢您的帮助

像这样

在表单的专用模块中复制此代码:

Private Sub Form_Open(Cancel As Integer)
'
  Dim strClass
  strClass = InputBox("Please type the class name:", "Class Input", "class1")
'
' not to open the form as no class given:
'  
  if(IsEmpty(strClass)) then
    Cancel = True
    Exit Sub
  end if
'
' filter by class name:
'  
  Me.Filter = "Class='" & strClass  & "'"
  Me.FilterOn = True
'
End Sub
我建议您也将表单重命名为:

Form Name: Reading Student Entry Form => frmStudentEntry
避免表单名称中出现空格始终是一个很好的做法。

像这样吗

在表单的专用模块中复制此代码:

Private Sub Form_Open(Cancel As Integer)
'
  Dim strClass
  strClass = InputBox("Please type the class name:", "Class Input", "class1")
'
' not to open the form as no class given:
'  
  if(IsEmpty(strClass)) then
    Cancel = True
    Exit Sub
  end if
'
' filter by class name:
'  
  Me.Filter = "Class='" & strClass  & "'"
  Me.FilterOn = True
'
End Sub
我建议您也将表单重命名为:

Form Name: Reading Student Entry Form => frmStudentEntry
避免表单名称中出现空格始终是一个很好的做法