请大家帮助修改一下黄海老师做的万能查询系统：

yaw　发表于：2016-06-24 16:21:15 　

请大家帮助修改一下黄海老师做的万能查询系统：
我想在窗体中的选择表list控件中，可以显示出：表名称，查询名称，黄海老师做的只是显示出表的名称，我想将查询名称添加进去，可以对查询进行二次的条件查询，因为有些数据需要进行多次的查询才能生成结果，谢谢

��ش˸��,

Top

煮江品茶发表于：2016-06-24 17:01:10

看一下系统表MSysObjects中的Name字段和Type字段就知道怎么弄了

Top

朱先生发表于：2016-06-25 09:00:01

大家来修改，我参与一下，凑个热闹。显示表和查询名称

Private Sub getTablesListing()
... Dim i As Integer
.........

next
      Dim J As Integer
    For J = 0 To CurrentDb.QueryDefs.Count - 1
        If Left(CurrentDb.QueryDefs(J).Name, 5) <> "MSys" Then
            strTables = strTables & CurrentDb.QueryDefs(J).Name & ";"
        End If
    Next
.......

End Sub

Top

yaw 发表于：2016-06-27 08:00:18

朱先生，谢谢您的帮助，但是有一个错误出现就是窗体中的控件LIST29 (即字段名列表无法显示出值)，请帮助看看如何解决，谢谢

Top

朱先生发表于：2016-06-29 21:36:35

��ش˸��

再凑个热闹，希望有更多人凑个热闹

供参考

查询字段显示出来了

其中有两段代码好象是多余的，测试一下

窗体右边的功能全部被删除了

Top

yaw 发表于：2016-06-30 13:01:09

朱先生　谢谢您的帮助请看看能否将右侧的命令按钮功能添加进去，谢谢

Top

yaw 发表于：2016-06-30 13:26:34

朱老师，请帮助将这个例子完整的修改完整，依照您4楼的例子，谢谢了。

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

请大家帮助修改一下黄海老师做的万能查询系统：