使用一个命令按钮（搜索按钮）通过VBA打开一个表格中的两个子表格

问题描述：

我有两个表格，一个表格和两个子表格。在表格中，我有搜索按钮，输出必须以两个子表格出现。只有成功打开1个子表单。另一个子表格不会改变任何东西。全部以一种形式发生。问题是我怎么做，当我点击按钮搜索，两个子窗体出来我想要的输出。例如，我想搜索苹果。两个子表格会给我苹果。当然，两桌都有苹果。根据你的不完全的问题使用一个命令按钮（搜索按钮）通过VBA打开一个表格中的两个子表格

Private Sub Command15_Click() 
Dim mySiteID As String 
mySiteID = "Select * from Access_FullSite where([Site ID] = '" & Me.Text27 & "')" 
Me.Access_FullSite_subform.Form.RecordSource = mySiteID 
Me.Access_FullSite_subform.Form.Requery 

Dim mySiteID As String 
mySiteID = "Select * from Access_FullSite where([Site ID] = '" & Me.Text27 & "')" 
Me.Metro_CP_subform.Form.RecordSource = mySiteID 
Me.Metro_CP_subform.Form.Requery 
End Sub

感谢您的帮助提前

wats ur问题？ – Trix

@Trix我的问题是我怎么做，当我打按钮搜索，两个子表格出来我想要的输出。例如，我想搜索苹果。两个子表格会给我苹果。当然，两桌都有苹果。 – Amira

请用完整的实际代码编辑您的问题。你发布的代码不会编译，它会给出'当前作用域中的重复声明'错误。 – Andre

答

胡乱猜测这里，但我认为你是什么后

Private Sub Command15_Click() 
Dim mySiteID As String 
mySiteID = "Select * from Access_FullSite where([Site ID] = '" & Me.Text27 & "')" 
Me.Access_FullSite_subform.Form.RecordSource = mySiteID 
Me.Access_FullSite_subform.Form.Requery 
Me.Metro_CP_subform.Form.RecordSource = mySiteID 
Me.Metro_CP_subform.Form.Requery 
End Sub

你并不需要重新声明（这会使编译失败）或将变量设置为相同的值。

使用一个命令按钮（搜索按钮）通过VBA打开一个表格中的两个子表格

相关推荐