Доступ 2016 VBA .FindFirst не находит запись в наборе записей

Question

Я новичок в программировании, и я стараюсь писать код VBA. Я искал различные сайты и форумы, чтобы помочь мне выполнить мою конечную цель, которая заключается в том, чтобы иметь код, который будет проходить через набор записей и обновлять соответствующие записи, соответствующие 3 полям списка критериев, найденным в форме. Эти значения проходят через текстовые поля, найденные в той же форме, где я могу редактировать их значения.

В настоящее время проблема заключается в том, что я получаю сообщение без соответствия, даже если запись находится в наборе записей. Я ищу 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 & "'"