單擊命令按鈕時出現對象所需的錯誤

Question

嘗試訪問我的用戶表單時收到「Object required」錯誤。它突出顯示以下代碼：

Sub DataEntry() 
    ServiceUpgradesDatEntry.Show 
End Sub 

我已經仔細檢查名稱是否正確。我還是新來的VBA，所以任何幫助將不勝感激！

Answer 1

轉到在VBE和改變錯誤捕獲Tools - Options - General到Break in Class Module。在用戶窗體的Initialize事件中有一個錯誤，但VBE沒有設置爲在用戶窗體的類模塊中斷開，所以它在發送給類模塊（.Show行）的線上斷開。

設置完成後，單擊錯誤上的調試將突出顯示實際產生錯誤的行。

Answer 2

將您的用戶表單視爲一個對象，並相應地聲明並實例化它。

Public Sub DataEntry() 

    Dim dataEntryForm As ServiceUpgradesDatEntry 

    ' Create an instance of the form 
    Set dataEntryForm = New ServiceUpgradesDatEntry 
    ' Show the form 
    dataEntryForm.Show 
    ' If the form was opened as Modal, then the code here will only run 
    ' once the form has been hidden/closed 
    ' Now destroy the object 
    Set dataEntryForm = Nothing 

End Sub