访问刷新表单

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

还有一个命令按钮，当按下该按钮时，将具有相关复选框设置为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

来源

2014-10-08 robbiecutting

请发布您的命令按钮的代码。 – Smandoli 2014-10-08 16:39:27

如果你想，你可以建立一个表单过滤器并更新它。我的代码有：Me.FilterOn = True 然后随时触摸过滤器（即Me.Filter =“XYZ”），窗体将自动被重新查询。 – 2014-10-08 16:56:35

同意。我的感觉是有一个更简单的方法。 – Smandoli 2014-10-08 17:12:56

如果您正在编辑在飞行的SQL，为什么不直接分配给它的形式？

Me.RecordSource=strSQL_2

（请注意，不需要重新查询。更改记录源形式导致accesss自动重新查询）

那是我在过去的工作方法和它工作得很好。

来源

2014-10-10 11:55:57 TheSmileyCoder

访问刷新表单

回答

相关问题