Question

VB 中实时错误'3021'，BOF或EOF中有一个是"真",或者当前的记录以被删除，所需的操作要求一个当前的记录

If cn.State = adStateOpen Then cn.Close
Dim myval As String
If Check1.Value = True Then
x = "单人间"
ElseIf Check2.Value = True Then
x = "豪华套房"
ElseIf Check3.Value = True Then
x = "总统套房"
End If

cn.Open "driver=microsoft access driver (*.mdb);dbq=" & App.Path & "\dmjd.mdb"
rs.CursorLocation = adUseClient
Dim strtemp
strtemp = "select * from 房间信息表 where style='" & x & "' and 预订= false"
rs.Open strtemp, cn, adOpenDynamic, adLockOptimistic

Y = Val(Text3.Text)
For i = 1 To Y
rs.Fields("预订") = True
rs.MoveNext
Next i
If rs.EOF Then rs.MoveLast
rs.Update

myval = MsgBox("预定" & x & Text3.Text & "间", vbYesNo)
If myval = vbYes Then
Unload frmroom
frmpr.Show
End If
每次运行rs.Fields("预订") = True
都会报错。请问怎么回事？
x是空值，怎么办？

Answer 1

你的代码没有处理这种情况：预定数量超过可预定房间数。
rs.Open strtemp, cn, adOpenDynamic, adLockOptimistic
if rs.EOF then exit sub'全部客满，无法预定，退出
'判断可预定房间是否足够
if rs.RecordCount<Y then'房间不足
'询问是否预定剩余的房间
If MsgBox("房间不足，可预定房间有：" & rs.recordcount & vbCrLf & "是否预定这些房间？", vbQuestion + vbDefaultButton2 + vbYesNo, "") = vbNo Then Exit Sub
'如果选择继续预定
Y=rs.RecordCount
end if
'继续原先的代码
For i = 1 To Y
rs.Fields("预订") = True

Answer 2

For i = 1 To Y
rs.Fields("预订") = True

上面加一句试试：
rs.movefirst
For i = 1 To Y
rs.Fields("预订") = True

Answer 3

QQ联系

Answer 4

数据库里加一个自动递增的ID字段就没这毛病了
因为有相同记录，系统糊涂了，不知道你要删除啥

Answer 5

有人回答过了，你的rs不能为空，另外，你的rs是可以修改的，不是只读的