“Bof 或Eof有一个是“真”，或者当前记录已被删除，所需的操作要求一个当前记录”的提示

kingorwell　发表于：2015-03-24 22:57:16 　

我想通过一个按钮创建一条考勤日期格式为YYYY-MM的约考勤记录

但是为什么当语句走到黄底字后，会出现“Bof 或Eof有一个是“真”，或者当前记录已被删除，所需的操作要求一个当前记录”的提示？难道：rst("员工姓名")引用的语法有错误吗？

Private Sub 创建考勤日期_Click()

On Error GoTo Err_创建考勤日期_Click
Dim AttDate, StrSQL, StaffName As String
Dim rst As ADODB.Recordset
AttDate = InputBox(" 请输入新考勤年月,格式2014-01 ")
StrSQL = Me.PositionSelector '用下拉列表中的岗位去选择班组群，以便创建一个群组内的人员月份考勤记录
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "Select * from 岗位人员清单 where 岗位='strsql'" '岗位人员清单由“员工姓名”及“岗位”两个字段构成
Debug.Print StrSQL
Debug.Print rst("员工姓名")
Do Until rst.EOF
StaffName = rst("员工姓名")
rst.AddNew
!年月 = AttDate
!姓名 = StaffName
.Update

Top

zhaoyoulong 发表于：2015-03-25 08:47:47

"Select * from 岗位人员清单 where 岗位=‘" & strsql &”’“

Top

kingorwell 发表于：2015-03-25 22:54:04

解决了，太谢谢了

Top

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

Access交流中心

“Bof 或Eof有一个是“真”，或者当前记录已被删除，所需的操作要求一个当前记录”的提示