求助：代码为何出错，在线等！！

ysgm1978g

求助：access老是提示If rst.Fields("编号").Value = rst1.Fields("编号").Value Then这句代码出错，请问正确的应该如何编写？？谢谢先。

Private Sub aa()
Dim cnn As ADODB.Connection, rst As ADODB.Recordset, rst1 As ADODB.Recordset
Set cnn = New ADODB.Connection: Set rst = New ADODB.Recordset: Set rst1 = New ADODB.Recordset
Dim i As Integer
i = 0
cnn.Open "provider=microsoft.jet.oledb.4.0;" & _
"data source=c:\db1.mdb;"
rst.Open "附件", cnn
rst1.Open "附件1", cnn
rst.MoveFirst
Do Until rst.EOF
  rst.MoveNext
  rst1.MoveFirst
  Do Until rst1.EOF
      If rst.Fields("编号").Value = rst1.Fields("编号").Value Then
      i = i + 1
      End If
      rst1.MoveNext
  Loop
Loop
rst.Close
Set rst = Nothing
rst1.Close
Set rst1 = Nothing
cnn.Close
Set cnn = Nothing
Debug.Print i
End Sub

zhengjialon

请说明一下错误提示内容.

ysgm1978g

错误提示为:

运行时错误'3021'

BOF或EOF中有一个是"真",或者当前的记录已被删除,所需的操作要求一个当前的记录.

zhengjialon

当RST的指针到最后一条记录时,就会出现这种提示,这说明已经到了"附件"的最后了,不能再比对,可以把rst.MoveNext这一句改放在两个LOOP的中间:

   rst1.MoveNext
  Loop

rst.MoveNext
Loop

ysgm1978g

巨感谢

ysgm1978g

再问一下如果偶要把代码中的i放到一个已有的表《表1》中，且放入前要清空表1，该怎么编写代码？谢谢

andymark

清空表可以用下面的代码

Dim cn As New ADODB.Connection
Set cn = CurrentProject.Connection
cn.Execute "delete * from 表1"
Set cn = Nothing

ysgm1978g

谢谢拉

ysgm1978g

那如果要把i值放入其中该怎么写那

andymark

你那个I主要用来做什么的

你是当rst.Fields("编号").Value = rst1.Fields("编号").Value 时删除这条记录

还是别的意思