Private Sub Command4_Click()
'方式2:动态修改查询的SQL语法
Dim str
If Trim(Nz(Me.Text2)) = "" Then
str = "select 姓名, 性别, 年级, 班级, 语文, 数学, 英语 " & _
"FROM 花名册 "
Else
str = "select 姓名, 性别, 年级, 班级, 语文, 数学, 英语 " & _
"FROM 花名册 where 姓名 like '*" & Trim(Nz(Me.Text2)) & "*'"
End If
CurrentDb.QueryDefs("筛选查询").SQL = str
Me.姓名查询.SourceObject = "查询.筛选查询"
End Sub
Private Sub Command6_Click()
'方式3:按照筛选查询作为数据源,创建子窗体,命名为"筛选查询子窗体",然后动态修改子窗体的Recordset
Dim str
If Trim(Nz(Me.Text2)) = "" Then
str = "select 姓名, 性别, 年级, 班级, 语文, 数学, 英语 " & _
"FROM 花名册 " & ""
Else
str = "select 姓名, 性别, 年级, 班级, 语文, 数学, 英语 " & _
"FROM 花名册 where 姓名 like '*" & Trim(Nz(Me.Text2)) & "*'"
End If
Me.筛选查询子窗体.Recordset = str
End Sub
