vba access 2010 更新过滤子表单
vba access 2010 update a filtered subform
我有一个带有子表单的表单。子表单在名为 my_subform_query 的查询中具有记录源。子窗体显示查询结果,并允许在父窗体中用几个组合框过滤内容。
查询源是 LEFT Join。
我需要更新子表单中显示的所有记录,但查询不显示其余记录。
如果 me.recordsource 是查询 my_subform_query
,我该怎么做
提前致谢
编辑:抱歉,我的意思是用 CurrentDb.Execute "UPDATE table..." 执行更新查询以更新 True/false 字段...
从父表单调用:
Me!NameOfYourSubformControl.Form.Requery
From/in 子表单本身调用:
Me.Requery
要更新,您将使用子表单的 RecordsetClone:
Dim rs As DAO.Recordset
Set rs = Me!NameOfYourSubformControl.Form.RecordsetClone
While Not rs.EOF
rs.Edit
rs!YourTrueFalseFieldName.Value = True ' or = False
rs.Update
rs.MoveNext
Wend
Set rs = Nothing
不需要重新查询子表单。
我有一个带有子表单的表单。子表单在名为 my_subform_query 的查询中具有记录源。子窗体显示查询结果,并允许在父窗体中用几个组合框过滤内容。 查询源是 LEFT Join。 我需要更新子表单中显示的所有记录,但查询不显示其余记录。
如果 me.recordsource 是查询 my_subform_query
,我该怎么做提前致谢
编辑:抱歉,我的意思是用 CurrentDb.Execute "UPDATE table..." 执行更新查询以更新 True/false 字段...
从父表单调用:
Me!NameOfYourSubformControl.Form.Requery
From/in 子表单本身调用:
Me.Requery
要更新,您将使用子表单的 RecordsetClone:
Dim rs As DAO.Recordset
Set rs = Me!NameOfYourSubformControl.Form.RecordsetClone
While Not rs.EOF
rs.Edit
rs!YourTrueFalseFieldName.Value = True ' or = False
rs.Update
rs.MoveNext
Wend
Set rs = Nothing
不需要重新查询子表单。