Question

我有一个带有记录集的简单访问表单和一些复选框，这些复选框引用用于记录源的查询中的某些字段。

还有一个命令按钮，当按下该按钮时，会将任何具有相关复选框设置为true的字段添加到查询SQL中。然后删除现有查询并使用新的SQL语句再次创建它。

这一切都按预期工作，但我似乎无法让表单重新加载新查询。我已经尝试了Me.Requery和Me.Refresh，但都不起作用，我必须手动关闭表单并重新打开它以显示新字段。

有没有人有任何想法如何在不关闭表单然后重新打开的情况下实现这一目标？

由于

________ EDITED ___________

Private Sub Command28_Click()
On Error Resume Next
Dim strSQL As String
Dim strSQL_2 As String
Dim qdf As DAO.QueryDef
Const conQUERY_NAME As String = "qry_pick_search"

For Each ctl In Me.Controls
    If ctl.ControlType = acCheckBox Then
        If ctl.Value Then
            strSQL = strSQL & "Picks." & ctl.Tag & ", "
        End If
    End If
Next

CurrentDb.QueryDefs.Delete conQUERY_NAME

On Error GoTo Err_Command28_Click

strSQL_2 = "SELECT Picks.Type, " & strSQL & " Picks.part, Count(Picks.ID) AS CountOfID FROM Picks GROUP BY Picks.Type, " & strSQL & " Picks.part HAVING (((Picks.Type) = [Forms]![frm_picks]![select_type]) And ((Picks.part) = [Forms]![frm_picks]![select_part])) Or ((([Forms]![frm_picks]![select_part]) Is Null) And (([Forms]![frm_picks]![select_type]) Is Null)) Or (((Picks.Type) = [Forms]![frm_picks]![select_type]) And (([Forms]![frm_picks]![select_part]) Is Null)) Or (((Picks.part) = [Forms]![frm_picks]![select_part]) And (([Forms]![frm_picks]![select_type]) Is Null)) ORDER BY Picks.Type, Picks.part;"

Set qdf = CurrentDb.CreateQueryDef(conQUERY_NAME, strSQL_2)

Form.Requery

Exit_Command28_Click:
  Exit Sub

Err_Command28_Click:
  MsgBox Err.Description, vbExclamation, "Error in Command28_Click()"
  Resume Exit_Command28_Click

End Sub

Answer 1

如果您正在动态编辑SQL，为什么不直接将其分配给表单？

Me.RecordSource=strSQL_2

（请注意，不需要重新查询。更改表单记录源会导致访问自动重新查询）

这是我过去曾经使用的一种方法，它运作得很好。

访问刷新表单

1 个答案: