当我填写所有领域时，我得到错误3021：没有curent记录

Question

我有一张表，需要通过表单填写一些记录。我使用此代码：

Set rp = CurrentDb.OpenRecordset("table1") 
Do 
    rp.Edit 
    rp!field2 = Text22 
    rp.Update 
    rp.MoveNext 
Loop 

当代码填写表格，并得到该文件的末尾，我得到了3021的错误。

这是怎么发生的？

Answer 1

试试这个：

Set rp = CurrentDb.OpenRecordset("table1") 
Do Until rp.EOF 
    rp.Edit 
    rp!Field2 = Text22 
    rp.Update 
    rp.MoveNext 
Loop 

另一种方法是使用这样的：如果你想在更新每一行

CurrentDb.Execute "UPDATE table1 SET field2='" & Text22 & "'", dbFailOnError 

Answer 2

这将是非常非常快使用SQL一个表格到一个特定的值。

例如：

sSQL= "UPDATE Table1 SET Field2=param" 

Set qdf = db.CreateQueryDef("", sSQL) 

qdf.Parameters!param = Trim(Me.Text22) 
qdf.ReturnsRecords = False 
qdf.Execute dbFailOnError 

intResult = qdf.RecordsAffected 

MsgBox "You updated " & intResult & " records." 

你甚至可以指定参数的类型，例如：

sSQL= "PARAMETERS param Text(150); UPDATE Table1 SET Field2=param" 

这是迄今为止使用更安全，要建立SQL字符串参数。