“SUB 或 FUNCTION 中的属性无效”这是怎么回事啊？？？达人进进~~

[jscdc_toya]

大家帮我看看这段代码，错在哪里？
运行到public时，就出现提示“SUB 或 FUNCTION 中的属性无效”
Public rec As ADODB.Recordset
Openrs "select * from 入库", rec
Do Until rec.EOF
If rec("付费单") = 付费单.Value Then
MsgBox ("这笔疫苗已经登记过了！")
Exit Sub
End If
rec.MoveNext
Loop

[WWWWA]

Public
放到模块中

OR
放到
Option Compare Database
下面

[WWWWA]

Public rec As ADODB.Recordset
直接放到
Option Compare Database
下面

[jscdc_toya]

谢谢
我把public ... 放到Option Compare Database 下面后，
运行后到Openrs又提示：子过程或函数未定义
？？

[WWWWA]

Public rec As ADODB.Recordset
这一句放到Option Compare Database 下面

如是程序，则要
public function(SUB)
....
end function
这种格式

[jscdc_toya]

忘了说了，REC是记录集
不是过程

[WWWWA]

先申明变量，再在SUB OR FUNCTION中使用

[OracleRoob]

声明变量是个好的习惯。

Option Compare Database
Option Explicit --强制声明变量选项，即任何变量都需要先声明，才能使用

[jscdc_toya]

是我自己写错了
应该是dim rec as ADODB.recordset
再 set rec = New ADODB.RECORDSET
with rec
.open"......"

[OracleRoob]

如果问题已解决，请及时结贴。

正确结贴方法：

-->管理帖子-->给分-->输入密码-->结贴