用按钮实现选择查询，新手的问题

bluesmart

大家好，我是新手，想请教一下，很简单的一个数据库表，字段是公司，姓名，代码。已经完成条件查询，用关键字搜索。在公司中搜索或者姓名中搜索。现在想设计一个界面，上面用radio button来选择公司，因为就A，B，C3个公司，用3个radio button来表示，选择其中一个，然后用一个搜索按钮显示相符的记录(姓名和代码)，用关键字输入寻找已经实现，就是不知道这个如何实现。
新手问题，比较菜鸟，请大家帮忙。请告知步骤，或者代码，比较着急，非常感谢。

fan0217

给你个例子你慢慢研究：http://www.office-cn.net/forum.php?mod=viewthread&tid=44013&replyID=&skin=1



要将查询的SQL语句赋给窗体或子窗体的记录源：RecordSource，才可以实现查询。

bluesmart

目的是当选择了一个radio button，比如公司A，然后点击搜索按钮，就显示所有A公司的记录。

就是这样一个过程。刚才看到说错误是2342，说runsql不支持SELECT *FROM语句，那应该怎么样才好呢，谢谢版主了，真是大好人。我的问题都十分的菜，见笑。

fan0217

运行选择查询有什么用呢？你的目的是什么？

bluesmart

谢谢版主，我在窗口里面加了2个radio button(一个是公司A，一个是公司B)和一个按键(搜索)

然后在VBA编辑器里面加代码，不知道这样可以吗，如下

Private Sub 搜索_Click()
Me.搜索.Requery
End Sub

Private Sub 公司A_Click()
DoCmd.RunSQL "SELECT * FROM table1 WHERE 公司='A'"
End Sub

Private Sub 公司B_Click()
DoCmd.RunSQL "SELECT * FROM table1 WHERE 公司='B'"
End Sub
后来一个黄色的光标指在DoCmd.RunSQL "SELECT * FROM table1 WHERE 公司='A'"这里，说是有错误。我用的向导生成窗口，就指定了数据源table1。

什么原因呢，谢谢指点。

fan0217

公司是数字型：docmd.runsql "......  WHERE 公司=A"


公司是文本型：docmd.runsql "......  WHERE 公司='A'"

[此贴子已经被作者于2006-8-3 20:56:08编辑过]

bluesmart

是不是加这样一句话给radio button

Private Sub Option5_Click()

docmd.runsql SELECT

* FROM <数据表名> WHERE 公司=A

End Sub

然后其他的radio buttons 都是一样，改一下搜寻条件就可以了?
然后再加一个search按钮，是这样的吗。但是刚才编译是错误，按ENTER显示SELECT是错误命令。多多指点啊。

fan0217

docmd.runsql SQL语句