基本上我想这样做:
SELECT x.companyID,x.companyname,x.productID FROM x WHERE (((x.CompanyID) = [Forms]![Reporting]![CompanyID_Control]))ORDER BY x.productID;
但是,传递查询当然不支持对任何表单控件的引用.
我已经读过here有一个通过VBA的方法,但是我不知道如何将VBA与控件的Row Source结合使用.
解决方法 正如Remou在他的回答中所说,链接表将使这更容易.但是,如果您有名为Myquery的传递查询,则可以执行以下 *** 作,以便在CompanyID_Control的值更改时动态更新MyComboOrListBox控件的RowSource:Private Sub CompanyID_Control_AfterUpdate()Dim sql As String,qdf AS DAO.queryDef Set qdf = CurrentDB.queryDefs("Myquery") qdf.sql = " SELECT x.companyID,x.productID " & _ " FROM x " & _ " WHERE x.CompanyID =" & Me.CompanyID_Control & _ " ORDER BY x.productID;" Me.MyComboOrListBox.RowSource = "Myquery"End Sub
您还需要将CompanyID_Control的AfterUpdate属性设置为:
[事件程序].
请注意,即使您使用Remou建议的链接表,您仍然需要CompanyID_Control的AfterUpdate事件中的代码来刷新组合框/列表框RowSource:
Private Sub CompanyID_Control_AfterUpdate() Me.MyComboOrListBox.RequeryEnd Sub总结
以上是内存溢出为你收集整理的ms-access – MS Access通过依赖于表单值全部内容,希望文章能够帮你解决ms-access – MS Access通过依赖于表单值所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)