无效使用 属性 错误。我错过了什么？

Question

我有一个包含预算或实际两个选项的用户窗体。如果我 select Actual 代码有效并调用子例程 Actual 但是如果我 select Budget 我在 Call Budget.

行收到错误 Invalid Use Of 属性

Option Explicit

Private Sub Budget_Click()
    Call Budget
End Sub

Private Sub OptionButtonActual_Click()
    Call Actual
End Sub

预算子程序

子预算()

Dim sys As Object

'Check to see if session is open
 Set sys = CreateObject("BZWhll.WhllObj")
 ResultCode = sys.Connect("B")
 If (ResultCode) Then
 MsgBox "UNABLE TO CONNECT TO  SESSION!"
 MsgBox "MACRO STOPPED!"
 GoTo endM
 End If
  sys.Disconnect


  X203BudgetExtract

  endM:

 End Sub

Answer 1

我将选项按钮的名称更改为：-

OptionButtonBudget，现在我的代码可以工作了！