Question

我是编程新手，我正在努力编写一些VBA代码。我一直在搜索各种网站和论坛，以帮助我实现我的最终目标，即拥有一个循环记录集的代码，并更新匹配表单上找到的3个标准列表框的相应记录。这些值会传递到同一表单上的文本框，我可以在其中编辑它们的值。

当前问题是即使记录在记录集中，我也会收到无匹配消息框。我在Day领域寻找BC2。不幸的是，我还没有在我正在搜索的网站和论坛上发现类似的问题。任何有关这个问题的帮助或帮助我实现我的最终目标将不胜感激！下面是我到目前为止的代码。在代码下方可以找到记录图片的链接。

Private Sub cmdSave_Click()
    Set db = CurrentDb
    Set rs = db.OpenRecordset("LLT_TblDayInfo", dbOpenDynaset, dbSeeChanges)

    Dim strLookupValue1 As String
        strLookupValue1 = "[Day]= " = Me.lstDay.Value
    rs.FindFirst (strLookupValue1)
        If rs.NoMatch Then
            MsgBox "no records found"
        Else
            Do While Not rs.NoMatch
                MsgBox "i found it!!!"
                rs.FindNext (strLookupValue1)
            Loop
            rs.FindNext (strLookupValue1)
        End If
End Sub

enter image description here

Answer 1

要做的第一件事是使用正确的语法引用文本值：

strLookupValue1 = "[Day] = '" & Me!lstDay.Value & "'"

Access 2016 VBA .FindFirst未在记录集中查找记录

1 个答案: