这段VBA代码错在哪呀！

csz1025

我的机子是WIN2000SER +ACCESS200运行以下代码是出错提示:data1变量没定义

Sub rs(table_name As String, field1 As String)
Set date1 = CurrentDb()
Set table1 = date1.openrecordset(table_name)
table1.MoveFirst
Do While Not table1.EOF
  If test!ID = table1(field1) Then MsgBox "已经有这个记录了"
  Else: table1.MoveNext
  End If
Loop
End Sub

有谁知道是为什么吗？

huanghai

试试：
Do While Not table1.EOF
  If test!ID = table1(field1) Then
     MsgBox "已经有这个记录了"
exit do
  Else
     table1.MoveNext
  End If
Loop

csz1025

怎么没人会吗？

jhf567

我看是他用ado来定义dao了。当然是变量没定义。

csz1025

jhf567:
        你说的是什么意思，那要怎么改呀！