試圖在Access 2010中打開表格時出現「未定義變量」錯誤

Question

我遇到了一個非常令人沮喪的問題。我想在所存在的currentDB打開一個表（我列出的所有的表名了使用下面的代碼：

Dim tbl As Object 
For Each tbl In CurrentDb.TableDefs 
    Debug.Print tbl.Name 
Next tbl 

該代碼打開其他兩個表沒有問題（雖然我也有這個問題，但是當。我把我的代碼應用到一個新的子區域，它似乎工作??）

我認爲我的問題很容易解決通過做一個修復/壓縮數據庫，因爲這似乎工作在另一個表問題，我有，但這一個doesn不會屈服於那種解決方案

這是我的代碼.....

Dim db As DAO.Database 
Dim rst As DAO.Recordset 

Set db = CurrentDb 

Set rst = db.OpenRecordset(「StkPrdSum」) 

Do While Not rst.EOF 
    debug.Print StkPrdSum![CurYear] 
    rst.MoveNext 
Loop 

當我嘗試編譯時會生成錯誤。我在引號中的表名StkPrdSum上得到「Variable not defined」錯誤。

感謝任何人誰可以幫助！

Answer 1

我沒有時間去測試這個，但我認爲你在「debug.Print StkPrdSum！[CurYear]」中對StkPrdSum的引用是錯誤的。

當你首先聲明爲openrecordset時，你的debug.print應該在它上面。

Do While Not rst.EOF 
     debug.Print rst![CurYear] 
     rst.MoveNext 
    Loop 

我希望這對你有幫助，對不起我的英語。