生活指南——让生活变得更简单

access记录定位器在哪_access用记录号定位

课程:

access 窗体 使用条件查询定位记录

access中有FindRecord和GotoRecord方法,他们有查找和定位的功能,但还不能满足您的要求,可使用SearchForRecord方法以达到您的要求。

假设有表1,根据表1设计窗体1,我们要根据姓名来定位记录,窗体1上有一文本框(名称为txt条件)用来输入姓名用、有一命令按钮(名称为cmd定位),如下:

在命令按钮的单击事件中设置如下代码即可:

Private Sub cmd定位_Click()

DoCmd.SearchForRecord acDataForm, "窗体1", acFirst, "姓名='" Me.txt条件 "'"

End Sub

这样输入要定位的姓名,单击“定位”按钮,即会定位到相应的记录了,上述已测试可行。当然,您也可以不设置命令按钮,直接在“txt条件”这个文本框的“更新后”事件中设置上行代码,这样当焦点离开这个文本框后即自动定位了。

SearchForRecord的用法及各个参数意义可从access里的“帮助”中得到参考。

access中怎样获取当前记录号?

提交到数据库

rs.update

后面可以直接获取ID

id=rs("id")

VB Access 以记录号 查找?

记录号是什么意思?如果是字段名称那就和BM一样的查询语句...

不过看来你的记录号的意思是指所谓表中的记录物理位置(行),这个你就犯了概念性错误,表中数据记录的排序是可以设定的,不同的用户可能有不同的排序设置,甚至操作系统的不一样也会影响到表中数据的排序,所以查找行数据是不可靠的....表只是用来存取数据的,不是直接给用户浏览的,所有的查询只能根据用户的不同需求,通过order by子句获取相应的排序才是正道....

如果你要浏览记录集:

dim i as long

do while not rs1.eof

i=i+1

if i=1024 then exit do

rs1.movenext

loop

text1.text = rs1.fields(1) '这就是rs1中的第1024条记录,注意的是根据sql语句order by的不同,这个记录会不一样

哦,可以直接定位记录集中的位置,应该是Bookmark书签

rs1.Bookmark=1024

text1.text = rs1.fields(1)

不过要设置客户端游标rs1.CursorLocation = adUseClient...手边VB,测试不了

没太明白你的意思,所以乱七八糟回了一大堆,嘿嘿,拣你要的吧(如果有)...下线了

Access查询定位记录,显示到窗体中,以前都是可以的,现在定位到别的记录了,不是记录本身,急,求助

请改用下列代码试一试,假设窗体名是“Form1”,记录集字段“订单号码”绑定该窗体其中的一个名称为“订单号码”的文本框

Private Sub Text0_AfterUpdated() 

    Me![订单号码].SetFocus

    DoCmd.FindRecord "=Forms!Form1![Text0]", acEntire, False, acSearchAll, False, acCurrent, True

    If Forms!Form1![Text0]  Forms!Form1![订单号码] Then

    MsgBox "对不起!没有找到该订单记录!", vbOKOnly

    Me!Text0.SetFocus

End Sub

注意:上述代码中的相关字段名称、窗体名和文本框请调整为与实际一致。

建议用命令按钮来实现查找效果更好

Private Sub Command1_Click() 

    Me![订单号码].SetFocus

    DoCmd.FindRecord "=Forms!Form1![Text0]", acEntire, False, acSearchAll, False, acCurrent, True

    If Forms!Form1![Text0]  Forms!Form1![订单号码] Then

    MsgBox "对不起!没有找到该订单记录!", vbOKOnly

    Me!Text0.SetFocus

End Sub

ACCESS中在查询中有没有记录号函数?

说的还是太模糊了

你想解决问题 你还是给出具体的实例吧 用在什么地方的 这样也好回答

你说根据记录返回记录号 你的记录是哪里来的?会重复吗?你的表中哪个是主键?

  • 评论列表:
  •  访客
     发布于 2022-07-06 06:27:34  回复该评论
  • ire, False, acSearchAll, False, acCurrent, True    If Forms!Form1![Text0]  Forms!Form1![订单号码] Then    MsgBox "对不起!没有找到该订单记录!", vbO

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

Copyright Your WebSite.Some Rights Reserved.