# 无现用的记录 (错误 3021)

Posted by Cathy on June 27, 1998 at 14:16:01:

当我再在执行 Delete 一笔资料时

With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With

虽然删除了
可是又会中断执行

跳出 ......无现用的记录 (错误 3021)
然后侦错时指出我另外写的 处理null值的副程式
其中判别非null值
但所设的引数变数却为 Empty

**处理null值的副程式
如下:
Public Function NoNull(xValue)

If IsNull(xValue) Then
NoNull = ""
Else
NoNull = xValue
End If
End Function

请问如何避免呢 ?
请伸出援手给想破头的 cathy

Follow Ups:

- 解决 Null 的方法 小吴 13:28:13 6/29/98 (0)