Vba 如何遍历记录集并进行查找

我需要遍历一个记录集，但当它到达用户名字段时，我想查找一个用户ID表以获取实际名称。然后在cusip列为null时结束循环？

您可以通过打开SQL语句的记录集来迭代已包含实际名称的记录集，例如：

select * from tblImport inner join tblUser on tblImport.UserID = tblUser.ID

代码可能类似于：

Sub MySub()
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim flg As Boolean

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("select * from tblImport inner join tblUser on tblImport.UserID = tblUser.ID")

    With rst
        If Not .EOF Then
            .MoveFirst
            Do Until .EOF Or flg ' No short-circuit evaluation in VBA
                flg = IsNull(!Cusip)
                .MoveNext
            Loop
        End If
        .Close
    End With
    Set rst = Nothing
    Set dbs = Nothing
End Sub

您需要更改字段和表的名称以适合您的数据

---

你还没有说明你实际上想对循环中的数据做什么。

到目前为止你尝试了什么？私有子OpenRecordset Dim i作为整数Dim db作为数据库Dim rs作为记录集db=CurrentDb Set rs=db。OpenRecordsettblimport在Cusip为空循环之前做什么？Cusip是什么？这不是真正的问题企图这是一堆声明和一个无法工作的循环。这将让你开始。我是VBA新手。但是我要做的是导入一个表。然后上传到SharePoint。但是，我只需要表中的大约5个字段，然后我需要添加另一个名为Processor的列，该列根据执行上载的用户进行拉入。我能够创建VBA来导入表。我知道如何附加到SharePoint列表表。我有两个问题。表中有一堆我不需要的空白记录。2.我需要根据正在进行上载的用户添加一个附加列。循环中的数据我要创建一个可以附加到链接sharepoint列表表的表。这是我必须附加表的查询。我将需要添加新的列，一旦我能够创建它。在[CMO Tracking LOCAL][Receive Date]、[Product Type]、Cusip、[Reduction Date]、[Public Date]、[Total Amount Called]选择日期、[CDO/SFS]、Cusip、[RED Date]、[PUB Date]、[PRINCIPAL PAYMENT]中插入tblimport的[CMO Tracking LOCAL][Receive Date]、[Product Type；