Ms access 我，再询问不起作用？_Ms Access_Vba

Ms access 我，再询问不起作用？

ms-access vba

Ms access 我，再询问不起作用？,ms-access,vba,Ms Access,Vba,我正在尝试根据组合框中的选择更新表单。下面是for的布局方式。表单有一个组合框，其中包含城市列表。我在此下拉列表中选择一个城市，然后单击提交按钮。单击“提交”后，下面的所有列表框都将更新该城市的地址信息。我为地址的每一部分都有一个单独的列表框现在，如果我执行以下操作，我就能使其正常工作： Me.Address1.Requery Me.Address2.Requery Me.City.Requery 但是，我正在寻找一种方法来实现这一点，而不必每次添加新字段时都添加Me.field.Reque

我正在尝试根据组合框中的选择更新表单。下面是for的布局方式。表单有一个组合框，其中包含城市列表。我在此下拉列表中选择一个城市，然后单击提交按钮。单击“提交”后，下面的所有列表框都将更新该城市的地址信息。我为地址的每一部分都有一个单独的列表框

现在，如果我执行以下操作，我就能使其正常工作：

Me.Address1.Requery
Me.Address2.Requery
Me.City.Requery

但是，我正在寻找一种方法来实现这一点，而不必每次添加新字段时都添加

Me.field.Requery

。我尝试了

Me.Requery

，但这对我不起作用。

您可以尝试通过控件进行循环。如果您决定添加更多列表框，这将允许灵活性

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox 'adjust to taste

clt.requery

Case Else

End Select
Next

您可以尝试通过控件进行循环。如果您决定添加更多列表框，这将允许灵活性

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox 'adjust to taste

clt.requery

Case Else

End Select
Next

所有框都以什么方式更新？计算字段？VBA？另一个查询？@Evan我有一个名为“ResultQuery”的查询，它根据下拉列表的值选择所有数据。然后，每个列表框从中选择相应的地址部分。例如，“Address1”框设置为

从ResultQuery中选择[ResultQuery]。[Address1]听起来你需要重新编码。Requery调用表单记录源并更新与该源关联的所有控件。Recalc重新评估源所在的控件expressions@Evan，效果很好！所有框都以什么方式更新？计算字段？VBA？另一个查询？@Evan我有一个名为“ResultQuery”的查询，它根据下拉列表的值选择所有数据。然后，每个列表框从中选择相应的地址部分。例如，“Address1”框设置为从ResultQuery中选择[ResultQuery]。[Address1]听起来你需要重新编码。Requery调用表单记录源并更新与该源关联的所有控件。Recalc重新评估源所在的控件expressions@Evan，效果很好！