求access窗体连续查询代码

高建　发表于：2011-12-16 12:23:05 　

复制

窗体上有一个按钮和文本框，点击按钮查询表1中“成绩”大于60的“姓名”，将姓名显示在文本框内，按钮点击一次，向下查询一次，求代码谢谢大家

Top

浪淘沙发表于：2011-12-16 14:13:30

按钮单击事件：取数据集，用Recordset.Findnext "[姓名]" 取下一条数据，赋值给文本框 ME.TEXT = 数据集."姓名"

文件传上来，可以帮你改。

Top

高建发表于：2011-12-16 16:48:47

Private Sub Command9_Click()

Dim my_db As Database
Dim my_tb As Recordset
Set my_db = CurrentDb
Set my_tb = my_db.OpenRecordset("表1", dbOpenDynaset)
'使用Find方法查找记录需要使用动态集的方式打开数据表
my_tb.FindNext "[成绩]=" + "'" + "60" + "'"      '条件是一个SQL语句
If my_tb.NoMatch Then
MsgBox ("没有该记录")

Else                      '以下输入框均指"编辑与删除功能："区域的输入框
    Text1.Value = my_tb.Fields(1)

Text3.Value = my_tb.Fields(2)
End If

End Sub

Top

高建发表于：2011-12-16 16:50:51

二楼你好，我的代码如上所示，主要是无法实现“连续的查找下一个”这样的功能，用findnext只能查找一次，不知道代码改怎么修改，谢谢啊

Top

叶海峰发表于：2011-12-16 22:11:51

连续查询是什么意思呢?要达到什么效果?

如果只要记录集返回全部记录是成绩大于60的话

Set my_tb = my_db.OpenRecordset("select * from 表1 where 成绩=60", dbOpenDynaset)

如果成绩是文本字段

Set my_tb = my_db.OpenRecordset("select * from 表1 where 成绩='60'", dbOpenDynaset)

Top

高建发表于：2011-12-17 09:32:37

连续查询就是----点击一下按钮，向下查询一次，结果在文本框里显示出来，如果下面没有了，就弹出对话框“下面没有了”，我用findnext编写，它向下查询一次就停止了，不能继续向下查，请高手帮我改一下代码，代码在4楼

Top

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

Access交流中心

求access窗体连续查询代码