Question

我有一个UserForm有两个选项Budget或Actual。如果我选择实际代码可以工作并调用子例程实际但是如果我选择预算我会收到错误无效使用属性在线路呼叫预算。

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，现在我的代码可以使用了！

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

1 个答案: