如何根据某个值来选择记录？急！！！

cwzj3807　发表于：2018-03-26 13:56:16 　

复制

   求助各位老师：
   我需要通过表1 中 AAA 字段的某个值来选择该记录，并使其成为当前记录，比如 AAA 中值为 d 的记录，
   但我的代码结果却是 a ,不知我的代码错在哪里，肯请各位老师给予指导，谢谢！

点击下载此附件

Top

MDZZ 发表于：2018-03-26 14:15:54

Recordset.Move 方法

移动 Recordset 对象中的当前记录（当前记录：记录集内可以从中修改或检索数据的记录。一个记录集只有一条当前记录，但记录集也可以没有当前记录，例如，在记录已经从动态集类型的记录集内删除之后，即属于此种情况。）的位置。

语法

表达式.Move(Rows, StartBookmark)

表达式 一个代表 Recordset 对象的变量。

参数

名称	必选/可选	数据类型	说明
Rows	必选	Long	位置移动的行数。如果 rows 大于 0，则位置向前移（向文件的末尾处移动）。如果 rows 小于 0，则位置向后移（向文件的开头处移动）。
StartBookmark	可选	Variant	一个标识书签（书签：包含二进制字符串的 Recordset 对象或窗体的一个属性，用来标识当前记录。）的值。如果指定了 startbookmark，则相对于此书签开始移动。否则，从当前记录开始移动。

说明

如果使用 Move 将当前记录指针定位在第一条记录之前，当前记录指针将移到文件的开头。如果 Recordset 不包含记录，并且它的 BOF 属性为 True，则使用此方法后移会导致错误。

如果使用 Move 将当前记录指针定位在最后一条记录之后，当前记录指针将移到文件的末尾。如果 Recordset 不包含记录，并且它的 EOF 属性为 True，则使用此方法前移会导致错误。

如果 BOF 和 EOF 属性中的一个为 True，并且您试图在不使用有效书签的情况下使用 Move 方法，将会发生运行时错误。

Top

cwzj3807 发表于：2018-03-26 14:29:31

回 MDZZ 老师：

那我怎么知道某个记录是在第几行呢？

Top

MDZZ 发表于：2018-03-26 16:52:12

Private Sub Command1_Click()
'求助各位老师：
'我需要通过表1 中 AAA 字段的某个值来选择该记录，并使其成为当前记录，比如 AAA 中值为 d 的记录，
'但我的代码结果却是 a ,不知错在哪里，肯请各位老师给予指导，谢谢！
Dim A As String
Dim rs1 As Object
Set rs1 = CurrentDb.OpenRecordset("表1", dbOpenDynaset)
A = "C"

rs1.FindFirst "AAA ='" & A & "'"

If rs1.NoMatch Then

msgbox "未找到！"

else

MsgBox rs1!AAA
end if

rs1.Close: Set rs1 = Nothing
End Sub

Top

cwzj3807 发表于：2018-03-26 20:12:28

'再次求助MDZZ老师：
'我只需要在表1 中第 4 条记录的 CCC 字段中填入数字 300，
'但总是填不进去 ,不知我的代码错在哪里，肯请各位老师给予指导，谢谢！

点击下载此附件

Top

cwzj3807 发表于：2018-03-26 21:01:17

  '再次求助MDZZ老师：
   '我只需要在表1 中第 4 条记录的 CCC 字段中填入数字 300，
   '但总是填不进去 ,不知我的代码错在哪里，肯请各位老师给予指导，谢谢！