能否在窗体上用复选框来控制查询所需要的字段？

landie · 发表于 2004-6-24 12:44

我有一个表，有二十个字段，我想在窗体上用“复选框”让操作者根据需要的字段自己选择后，在查询中只出现选择的这几个字段，请问能做吗？代码怎样写呢，请各位高手前辈帮助。谢谢！

landie · 发表于 2004-6-25 12:48

我传上去，能给示范一下吗，我做的老是出错。谢谢！

7PHReeN7.rar (203.16 KB, 下载次数: 49)

[此贴子已经被作者于2004-6-25 12:48:20编辑过]

cg1 · 发表于 2004-6-29 11:08

哪里出错？

cg1 · 发表于 2004-6-24 14:51

关于此主题请参考：用VBA灵活生成查询，动态生成查询《VBA》 http://access911.net/index.asp?u1=a&u2=73FAB41E17DC

cg1 · 发表于 2004-6-24 14:43

当然可以，无非就是组织JET SQL 语句而已。

组织语句你会么？

Function CreateQueryBaseOnForm() Dim strSql As String Dim i As Integer strSql = "select " For i = 1 To 20 '在窗体上有20个名字类似 CHECKBOX1 ..... checkbox20 的多选框 If Me.Controls("checkbox" & i).Value = True Then '预先在 checkbox 的 TAG 属性中存储好对应的字段名，当然，也可以用其他方法来 strSql = strSql & Me.Controls("checkbox" & i).Tag & "," End If Next '去掉最后一个逗号，其实这一句不用写，因为你可以放一个必定出现的字段在最后面 strSql = Left(strSql, Len(strSql) - 1) strSql = strSql & " from TableName" '用 JET SQL 的 DDL 语句 CREATE VIEW 来建立查询。当然啦，你也可以用其他方法建立 CurrentProject.Connection.Execute "create view viewName as " & strSql End Function

		自动登录	找回密码
密码			免费注册