訪問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沒有在記錄集中找到記錄

回答

相關問題