我已经搜索并找到了很多关于在子表单上使用requery的信息,但我似乎找不到任何表明尝试使用新记录集重新查询活动表单的信息 .
我有一个基于查询的表单 . 我使用未绑定的文本框来捕获需要搜索的地址,然后更改查询中的sql语句以查找记录,然后尝试使用me.requery加载新结果 .
代码正在更新sql语句,但表单不会使用新记录结果进行重新查询 . 我的代码如下 .
我很容易获得和VBA,并欣赏你可能拥有的任何智慧 . 另外,我可以在其他代码中做什么,这会导致失败吗?
Private Sub Command51_Click()
Dim d As DAO.Database
Dim q As DAO.QueryDef
Dim Addy As String
Dim Search As String
Set d = CurrentDb()
Set q = d.QueryDefs("SQL_Search")
If IsNull(Me!Addy) Then
MsgBox ("Please select a valid address from the list and try again.")
GoTo CleanUp
Else: End If
Addy = Me!Addy
Search = "select * from dbo_ECNumberVerify Where (((dbo_ECNumberVerify.invalidrecord)=False) AND ((dbo_ECNumberVerify.updated)=False) AND ((dbo_ECNumberVerify.Locations) Like '*" & Addy & "*'));"
'Send SQL SP execute command.
q.SQL = Search
Me.Requery
CleanUp:
Set q = Nothing
Set db = Nothing
End Sub