运行时错误‘94’，无效使用NULL

phanmin

1. Private Sub cmdRnd_Click() '随机点名
   
2. Dim s As String
   
3. Dim d As Variant
   
4. Dim n As Variant
   
5.     d = DMax("EmployeeID", "OnGuardQuery")
   
6.     Randomize
   
7.     n = Int(Rnd(d) * d)
   
8.     s = DLookup("Name", "OnGuardQuery", "EmployeeID =" & n)
   
9.     MsgBox (" 员工编号：  " & n & vbCrLf & vbCrLf & " 员工姓名：" & s), , "恭喜您被选中了!"
   
10. End Sub

复制代码

这段代码运行时，有一定几率会出现错误提示：运行时错误‘94’，无效使用NULL，检查编号、姓名列并没有空值，只是表里后面的数据有，不知道怎么解决？求高手指教

loumin00

d = DMax("EmployeeID", "OnGuardQuery")
d 有没有可能是 “”？

styhs

1. n = Int(Rnd(d) * d)
   
2. 更改为
   
3. n = Int((Rnd * d) + 1)

复制代码

phanmin

styhs 发表于 2014-12-24 15:16

这样还能实现随机？

phanmin

loumin00 发表于 2014-12-24 14:24
d = DMax("EmployeeID", "OnGuardQuery")
d 有没有可能是 “”？

ID没有空值

phanmin

styhs 发表于 2014-12-24 15:16

一样会出错。。。

styhs

phanmin 发表于 2014-12-24 18:47
一样会出错。。。

有一种可能，OnGuardQuery表的EmployeeID字段值并不是顺序递增，即出现断码；使用指定范围生成的随机ID，在OnGuardQuery表中并不存在。
没有附件，一切都是猜测。