Dim StrG1 As String
StrG1 = "[物料名]='" & Me.Text1 & "'"
'更新临时查询
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
Set qdf = CurrentDb.QueryDefs("临时查询")
qdf.SQL = "SELECT * FROM [物料] WHERE " & StrG1
qdf.Close
Set qdf = Nothing
'刷新子窗体
Forms!主窗体.子窗体.Requery
Private Sub Command0_Click()
Dim StrG1 As String
'更新临时查询
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
StrG1 = "[物料名]='" & Me.Text1 & "'"
Set qdf = CurrentDb.QueryDefs("临时查询")
qdf.SQL = "SELECT * FROM [物料] WHERE " & StrG1
'刷新子窗体
'这里需要再次更换数据源,原因我不大说的清楚。
Me.子窗体.Form.RecordSource = "临时查询"
Me.子窗体.Form.Requery
qdf.Close
Set qdf = Nothing
End Sub
此外,还可以如下:
Private Sub Command5_Click()
Dim StrG1 As String
Me.子窗体.Form.RecordSource = "物料"
StrG1 = "[物料名]='" & Me.Text1 & "'"
Me.子窗体.Form.Filter = StrG1
Me.子窗体.Form.FilterOn = True
End Sub