運行sql查詢時訪問頁面崩潰

Question

我是VBA和Access的新手，我試圖隱藏一個基於tsql數據庫中的位域的按鈕，當我評論執行查詢的代碼行時，訪問表單加載罰款，當我取消註冊，它崩潰..請幫助！我不確定我做錯了什麼。

Private Sub Form_Activate() 
DoCmd.Maximize 

Dim RecordSt As Recordset 
Dim dbase As Database 
Dim query As String 
query = "select * from tblsetup;" 
Set RecordSt = dbase.OpenRecordset(query) 'Line of code that crashes page 
'If RecordSt.Fields("ValidateChecks").Value = 0 Then 
    'cmdValidate.Visible = False 
'Else 
    'cmdValidate.Visible = True 
'End If 

末次

Answer 1

您沒有設置數據庫經無所不能。如果表是一個鏈接表，你要質數據庫等於CurrentDB：

Set dbase = CurrentDB 

把上面的「設置Recordst」語句