访问2016 VBA .FindFirst没有在记录集中找到记录

我是编程新手，我正在努力编写一些VBA代码。我一直在寻找各种网站和论坛来帮助我实现我的最终目标，即让代码循环访问记录集并更新匹配表单上的3个条件列表框的相应记录。这些值会传递给我可以编辑其值的文本框。访问2016 VBA .FindFirst没有在记录集中找到记录

目前的问题是我收到不匹配的消息框，即使记录在记录集中。我在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

来源

2017-02-10 Yuhgno

什么是天的数据类型是数字或文本？如果您需要添加文本，请按照Gustav建议的单引号 –

感谢您的回应。我现在意识到我需要清楚我正在使用的数据类型。 – Yuhgno

首先要做的是使用正确的语法引用您的文本值：

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

来源

2017-02-10 11:23:53 Gustav

这样做！我花了几天的时间寻找解决方案。我有很多要学习的。感谢您的帮助！ – Yuhgno

访问2016 VBA .FindFirst没有在记录集中找到记录

回答

相关问题