MS Access Vb如何構建文本字符串以引用Vb SQL查詢中的動態列，然後使用Eval函數執行該文本字符串

Question

在下面的示例中，POOPTrst是一個引用Vb SQL的DAO記錄集（系統對象）查詢或聲明。此代碼返回「運行時錯誤2482」和/或「Microsoft Access無法找到您在表達式中輸入的名稱'POOPTrst'（注意：POOPTVal變量包含日期）。

POOPTWkDmd = Eval("POOPTrst" & "!" & POOPTVal) 

在以下示例中POOPTrst是引用Vb SQL查詢的DAO記錄集。此代碼返回「運行時錯誤3256」和/或「項目這個集合中找不到」（注：帶或不帶圍繞可變POOPTVal括號）

POOPTWkDmd(POOPTCounterInt) = POOPTrst!Eval(POOPTVal) 

如果我刪除eval函數和POOPT日期變量和類型的文字字符到代碼中獲得正確的/預期的返回值和/或響應（注：問題是1/5/2009是在運行時

POOPTWkDmd(POOPTCounterInt) = POOPTrst![1/5/2009]    

Answer 1

使用計算出的動態值此語法：rs("Fieldname")而不是rs!Fieldname

POOPTVal = "1/5/2009" 
POOPTWkDmd = POOPTrst(POOPTVal) 

更多解釋見這樣的回答：https://stackoverflow.com/a/34969410/3820271

Answer 2

一個問題是，​​不知道VBA變量或任何物體，如記錄集。如果要使用這些字符串，請構建一個包含其值的字符串，並給該字符串​​。

但是，我不確定​​是你應該在這裏使用。您似乎想引用POOPTrst記錄集中某個字段的值，並使用一個變量來保存該字段名稱。如果這是正確的，請使用帶有記錄集Fields集合的變量：POOPTrst.Fields(POOPTVal).Value