Office中国论坛/Access中国论坛

标题: 执行SQL语句后出错 [打印本页]

作者: kingorwell 时间: 2015-3-24 23:08
标题: 执行SQL语句后出错
我想通过一个按钮创建一条考勤日期格式为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
C:\Users\000010\Desktop\Untitled-1.jpg

作者: roych 时间: 2015-3-25 09:03
SQL语句改下：
"Select * from 岗位人员清单 where 岗位='" & strsql & "'"

作者: tmtony 时间: 2015-3-25 18:01
还是要了解ADO语法的意义以及字符串的连接这些基础知识才好调试代码

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)