MS ACCESS VBA运行时错误“ 3021”;与.MoveNext

里奇蒙·桑托斯(Richmon Santos)

这是我的代码

Dim Reloc, RelocPrev1, RelocPrev2 As String
Dim Blk, Blk2, Lt, Lt2, PrevDate As String
Dim LotComp, BlockComp As Integer


    Dim DB As Database
    Dim RS As Recordset

Private Sub SearchBtn_Click()

    Reloc = Me.RArea.Value

    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset(Reloc, dbOpenDynaset)

    Blk = RS!Block
    Lt = RS!Lot
    Blk2 = Me.BlockTxt
    Lt2 = Me.LotTxt

    BlockComp = StrComp(Blk, Blk2, 1)
    LotComp = StrComp(Lt, Lt2, 1)

    RS.MoveFirst

    Do Until BlockComp = LotComp
        RS.MoveNext
    Loop

   Call RetrieveData

End Sub

RS!Block和RS!Lot可以正常工作,只有我尝试过的RS.Movenext和RS.Edit不起作用。我的表中填充了50多个行。可以很好地将表中的第一项拉出,而我无法使用RS.MoveNext移至下一行

有什么想法可以使这项工作吗?

六月7

您显然希望只有1条记录才能符合条件。最好将过滤条件应用于记录集SQL,以便仅提取所需的记录,然后测试记录集是否为空。

要转到符合条件的单个记录,而不是循环记录集,请使用FindFirst和NoMatch。

RS.FindFirst "Block='" & Blk2 & "' AND Lot='" & Lt2 & "'"
If Not RS.NoMatch Then

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

rs.movenext 不起作用 - 运行时错误 3021

来自分类Dev

MS ACCESS - VBA 中的错误运行时 3141 SQL

来自分类Dev

VBA运行时错误3021-无当前记录

来自分类Dev

MS Access 2013/365中的ActiveGantt Activex控件-对象方法上的VBA运行时错误

来自分类Dev

带子查询的SQL查询上的MS Access VBA运行时错误3075

来自分类Dev

MS-Access 2007查询运行时错误

来自分类Dev

尝试从Access创建MS Word文档文件时出现运行时错误5981

来自分类Dev

尝试从Access创建MS Word文档文件时出现运行时错误5981

来自分类Dev

MS Access运行时中的Debug.Assert行为

来自分类Dev

MS Access 运行时 - 文件对话框失败

来自分类Dev

Access 2010中的VBA-运行时错误430

来自分类Dev

SolidWorks 2016 SaveAs Access VBA运行时错误438

来自分类Dev

VBA Excel-Access 3251运行时错误

来自分类Dev

MS Access vba,使用参数打开选择查询,运行时3065无法执行选择查询

来自分类Dev

MS Access vba,使用参数打开选择查询,运行时3065无法执行选择查询

来自分类Dev

MS Access VBA 运行查询

来自分类Dev

MS ACCESS vba-错误

来自分类Dev

MS Access编译并运行

来自分类Dev

MS Access VBA IF()

来自分类Dev

如何在运行时使用VBA将按钮添加到MS Access表单并将代码添加到_Click()事件

来自分类Dev

如何使用C#在运行时在MS Access中创建存储的查询

来自分类Dev

MS Access SQL错误

来自分类Dev

运行时错误'3001':在Access VBA中创建表时,参数无效

来自分类Dev

运行时错误'2498'-Access 2010 VBA-DoCmd.TransferSpreadsheet

来自分类Dev

从Access VBA覆盖电子表格时,运行时错误424

来自分类Dev

MS Access运行缓慢的问题?

来自分类Dev

Int()函数MS Access VBA

来自分类Dev

MS Access日期转换错误

来自分类Dev

PtrSafe属性错误MS Access

Related 相关文章

  1. 1

    rs.movenext 不起作用 - 运行时错误 3021

  2. 2

    MS ACCESS - VBA 中的错误运行时 3141 SQL

  3. 3

    VBA运行时错误3021-无当前记录

  4. 4

    MS Access 2013/365中的ActiveGantt Activex控件-对象方法上的VBA运行时错误

  5. 5

    带子查询的SQL查询上的MS Access VBA运行时错误3075

  6. 6

    MS-Access 2007查询运行时错误

  7. 7

    尝试从Access创建MS Word文档文件时出现运行时错误5981

  8. 8

    尝试从Access创建MS Word文档文件时出现运行时错误5981

  9. 9

    MS Access运行时中的Debug.Assert行为

  10. 10

    MS Access 运行时 - 文件对话框失败

  11. 11

    Access 2010中的VBA-运行时错误430

  12. 12

    SolidWorks 2016 SaveAs Access VBA运行时错误438

  13. 13

    VBA Excel-Access 3251运行时错误

  14. 14

    MS Access vba,使用参数打开选择查询,运行时3065无法执行选择查询

  15. 15

    MS Access vba,使用参数打开选择查询,运行时3065无法执行选择查询

  16. 16

    MS Access VBA 运行查询

  17. 17

    MS ACCESS vba-错误

  18. 18

    MS Access编译并运行

  19. 19

    MS Access VBA IF()

  20. 20

    如何在运行时使用VBA将按钮添加到MS Access表单并将代码添加到_Click()事件

  21. 21

    如何使用C#在运行时在MS Access中创建存储的查询

  22. 22

    MS Access SQL错误

  23. 23

    运行时错误'3001':在Access VBA中创建表时,参数无效

  24. 24

    运行时错误'2498'-Access 2010 VBA-DoCmd.TransferSpreadsheet

  25. 25

    从Access VBA覆盖电子表格时,运行时错误424

  26. 26

    MS Access运行缓慢的问题?

  27. 27

    Int()函数MS Access VBA

  28. 28

    MS Access日期转换错误

  29. 29

    PtrSafe属性错误MS Access

热门标签

归档