Office中国论坛/Access中国论坛

标题: 如何设计窗体自定义查询界面？请大家帮助一下 [打印本页]

作者: yanwei82123300 时间: 2020-1-5 10:43
标题: 如何设计窗体自定义查询界面？请大家帮助一下
关于窗体自定义查询问题：
各位老师，我现在有一个问题：关于窗体自定义查询问题
如果不允许使用者打开后台，进行查询设计器的使用，只能在窗体中进行查询：
附件是我刚刚在论坛里找到的一个小例子，想改改，请大家给改改
首先使用"表名称"选取相应的表或者查询，然后在"表字段未选"中显示相应的字段名称，然后进行选取
点击"加入条件"命令按钮将选中的字段加入条件语句中生成sql语句，然后点击"生成结果"命令将查询出来的值显示到"ListDisplay"列表框中

作者: Henry D. Sy 时间: 2020-1-5 11:20
首先
把list0的行来源类型设置为字段列表，
然后，在表名称更新后，将表名称作为list0的行来源
最后，你应该懂得..........

作者: yanwei82123300 时间: 2020-1-5 19:28
Henry D. Sy 谢谢老师提供的建议！我慢慢试着做一下

作者: Henry D. Sy 时间: 2020-1-7 00:04

Private Sub 表名称_AfterUpdate()
If Not IsNull(Me.表名称) Then
Me.List0.RowSource = Me.表名称
End If
End Sub
Private Sub ToResuit_Click()
Dim Qdf As DAO.QueryDef
Dim sSQL As String
Dim str As String
Dim varItem
For Each varItem In Me.List0.ItemsSelected
str = str & Me.List0.ItemData(varItem) & ","
Next
If str <> "" Then
str = Left(str, Len(str) - 1)
sSQL = "SELECT " & str & " FROM " & Me.表名称
Me.TextWhere = sSQL
Set Qdf = CurrentDb.QueryDefs("A")
Qdf.SQL = sSQL
Me.A_子窗体.SourceObject = "查询.A"
Else
MsgBox "请选择字段"
End If
End Sub

复制代码

[attach]63608[/attach]

作者: yanwei82123300 时间: 2020-1-7 20:42

Henry D. Sy 发表于 2020-1-7 00:04

老师谢谢您的帮助，有个问题请教您，请问如何点击多个字段到条件语句中，能不能把两个以上的表或者查询的字段，根据需要添加进条件语句中？同时您的例子报错，请看看图片，再次感谢您的帮助，这个问题是看到我公司刚刚上线的ORACLE的一个外挂工具的启发，看看access能不能实现？

作者: roych 时间: 2020-1-7 21:37
两个表，别想了。很复杂。例如，left join，right join还是inner join？然后选择不同的字段之后，条件如何添加，如果有having时，条件又该如何处理？印象中，论坛有人做过这样的例子，不过找不到了。现在只剩下李寻欢这个例子。
http://www.office-cn.net/thread-18201-1-1.html

作者: yanwei82123300 时间: 2020-1-8 12:07
roych谢谢您的链接，看来只能前期需要什么查询都做出来，然后去调用，不再做自定义了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)