Excel 运行时错误424，基于选择的隐藏框

VBA新手。我有一个用户表单的代码，我几乎有工作。。。唯一的问题是（注释）我隐藏的标签和文本框，除非值为“是”会给我一个运行时错误

Private Sub E_EnterInformation_Click()

'----------------------------------------------------
'Check Validation of Completed form
'----------------------------------------------------
If Trim(Me.TextBoxE_RequestBy.Value) = "" Then
    Me.TextBoxE_RequestBy.SetFocus
    MsgBox "Please fill in 'Request By' on form", vbCritical
        Exit Sub
End If

If Trim(Me.TextBoxE_OnSiteContact.Value) = "" Then
    Me.TextBoxE_OnSiteContact.SetFocus
    MsgBox "Please fill in 'On Site Contact' on form", vbCritical
        Exit Sub
End If

If Trim(Me.TextBoxE_OnSiteNumber.Value) = "" Then
    Me.TextBoxE_OnSiteNumber.SetFocus
    MsgBox "Please fill in 'On Site Phone Number' on form"
    Exit Sub
End If

If Trim(Me.TextBoxE_EventName.Value) = "" Then
    Me.TextBoxE_EventName.SetFocus
    MsgBox "Please fill in 'Event Name' on form"
    Exit Sub
End If

If Trim(Me.ComboBoxE_LocationNumber.ListIndex) = -1 Then
  Me.ComboBoxE_LocationNumber.SetFocus
  MsgBox "Please fill in 'Location Number' on form"
  Exit Sub
End If

If Trim(Me.ListBoxE_OffSiteDelivery.ListIndex) = -1 Then
  Me.ListBoxE_OffSiteDelivery.SetFocus
  MsgBox "Please fill in 'Off Site Delivery?' on form"
  Exit Sub
End If

If Trim(Me.ListBoxE_RequestStatus.ListIndex) = -1 Then
  Me.ListBoxE_RequestStatus.SetFocus
  MsgBox "Please fill in 'Request Status' on form"
  Exit Sub
End If

If Trim(Me.TextBoxE_DeliverDate.Value) = "" Then
  Me.TextBoxE_DeliverDate.SetFocus
  MsgBox "Please fill in 'Delivery Date' on form"
  Exit Sub
End If

If Trim(Me.ListBoxE_DeliverTime.ListIndex) = -1 Then
  Me.ListBoxE_DeliverTime.SetFocus
  MsgBox "Please fill in 'Delivery Time' on form"
  Exit Sub
End If

If Trim(Me.TextBoxE_SSDate.Value) = "" Then
  Me.TextBoxE_SSDate.SetFocus
  MsgBox "Please fill in 'Show Start Date' on form"
  Exit Sub
End If

If Trim(Me.ListBoxE_SSTime.ListIndex) = -1 Then
  Me.ListBoxE_SSTime.SetFocus
  MsgBox "Please fill in 'Show Start Time' on form"
  Exit Sub
End If

If Trim(Me.TextBoxE_SEDate.Value) = "" Then
  Me.TextBoxE_SEDate.SetFocus
  MsgBox "Please fill in 'Show End Date' on form"
  Exit Sub
End If

If Trim(Me.ListBoxE_SETime.ListIndex) = -1 Then
  Me.ListBoxE_SETime.SetFocus
  MsgBox "Please fill in 'Show End Time' on form"
  Exit Sub
End If

If Trim(Me.TextBoxE_PickupDate.Value) = "" Then
  Me.TextBoxE_PickupDate.SetFocus
  MsgBox "Please fill in 'Pickup Date' on form"
  Exit Sub
End If

If Trim(Me.ListBoxE_PickupTime.ListIndex) = -1 Then
  Me.ListBoxE_PickupTime.SetFocus
  MsgBox "Please fill in 'Pickup Time' on form"
  Exit Sub
End If

'Hide or show offsite and order number boxes

If Me.ListBoxE_OffSiteDelivery.Value = "Yes" Then
    'EquipmentRequest.LabelE_OffSiteAdd.Visible = True          - Run Time Error 424 when No is selected on Offsite Delivery
    'EquipmentRequest.TextBoxE_OffSiteAdd.Visible = True        - Run Time Error 424 when No is selected on Offsite Delivery
    Else
    'EquipmentRequest.LabelE_OffSiteAdd.Visible = False         - Run Time Error 424 when Yes is selected on Offsite Delivery
    'EquipmentRequest.TextBoxE_OffSiteAdd.Visible = False       - Run Time Error 424 when Yes is selected on Offsite Delivery
    End If

If Me.ListBoxE_OffSiteDelivery.Value = "Yes" And Me.TextBoxE_OffSiteAdd.Value = "" Then
    Me.TextBoxE_OffSiteAdd.SetFocus
    MsgBox "Please fill in 'Enter Off Site Location Name and Address' on form"
  Exit Sub
End If

If Me.ListBoxE_RequestStatus.Value <> "New" Then
    'EquipmentRequest.LabelE_OrderNum.Visible = True         - Run Time Error 424 when No is selected on Offsite Delivery
    'EquipmentRequest.TextBoxE_OrderNum.Visible = True       - Run Time Error 424 when No is selected on Offsite Delivery
    Else
    'EquipmentRequest.LabelE_OrderNum.Visible = False       - Run Time Error 424 when Yes is selected on Offsite Delivery
    'EquipmentRequest.TextBoxE_OrderNum.Visible = False     - Run Time Error 424 when Yes is selected on Offsite Delivery
    End If

If Me.ListBoxE_RequestStatus.Value <> "New" And Me.TextBoxE_OrderNum.Value = "" Then
    Me.TextBoxE_OrderNum.SetFocus
    MsgBox "Please fill in 'Enter Order/Job #' on form"
  Exit Sub
End If


'--------------------------------------------
'Enter Data in Form
'--------------------------------------------

Sheets("Equipment Request").Range("C6") = Me.TextBoxE_RequestBy.Value       'Name of Requester
Sheets("Equipment Request").Range("C7") = Me.TextBoxE_OnSiteContact.Value   'Name of Contact
Sheets("Equipment Request").Range("C8") = Me.TextBoxE_OnSiteNumber.Value    'Phone Number format
Sheets("Equipment Request").Range("F10") = Me.TextBoxE_Comments.Value       'Comments (not required)

Sheets("Equipment Request").Range("I6") = Me.TextBoxE_EventName.Value       'Name of Event
Sheets("Equipment Request").Range("I7") = Me.ComboBoxE_LocationNumber.Value 'Location Number
Sheets("Equipment Request").Range("I8") = Me.ListBoxE_OffSiteDelivery.Value 'Yes or No Selection
Sheets("Equipment Request").Range("I9") = Me.ListBoxE_RequestStatus.Value   'New or revision or cancel selection

Sheets("Equipment Request").Range("C9") = Me.TextBoxE_PWDate.Value          'Short Date Format
Sheets("Equipment Request").Range("D9") = Me.ListBoxE_PWTime.Value          'Time Format
Sheets("Equipment Request").Range("C10") = Me.TextBoxE_DeliverDate.Value    'Short Date Format
Sheets("Equipment Request").Range("D10") = Me.ListBoxE_DeliverTime.Value    'Time Format
Sheets("Equipment Request").Range("C11") = Me.TextBoxE_SSDate.Value         'Short Date Format
Sheets("Equipment Request").Range("D11") = Me.ListBoxE_SSTime.Value         'Time Format
Sheets("Equipment Request").Range("C12") = Me.TextBoxE_SEDate.Value         'Short Date Format
Sheets("Equipment Request").Range("D12") = Me.ListBoxE_SETime.Value         'Time Format
Sheets("Equipment Request").Range("C13") = Me.TextBoxE_PickupDate.Value     'Short Date Format
Sheets("Equipment Request").Range("D13") = Me.ListBoxE_PickupTime.Value     'Time Format

'-----------------------------------------
'Vice Versa for Revisions
'-----------------------------------------

'If Me.TextBoxE_EventName.Value <> "" Then

'Me.TextBoxE_RequestBy.Value = Sheets("Equipment Request").Range("C6")
'Me.TextBoxE_OnSiteContact.Value = Sheets("Equipment Request").Range("C7")
'Me.TextBoxE_OnSiteNumber.Value = Sheets("Equipment Request").Range("C8")
'Me.TextBoxE_Comments.Value = Sheets("Equipment Request").Range("F10")
'
'Me.TextBoxE_EventName.Value = Sheets("Equipment Request").Range("I6")
'Me.ComboBoxE_LocationNumber.Value = Sheets("Equipment Request").Range("I7")
'Me.ListBoxE_OffSiteDelivery.AddItem = Sheets("Equipment Request").Range("I8")
'Me.ListBoxE_RequestStatus.AddItem = Sheets("Equipment Request").Range("I9")
'
'Me.TextBoxE_PWDate.Value = Sheets("Equipment Request").Range("C9")
'Me.ListBoxE_PWTime.AddItem = Sheets("Equipment Request").Range("D9")
'Me.TextBoxE_DeliverDate.Value = Sheets("Equipment Request").Range("C10")
'Me.ListBoxE_DeliverTime.AddItem = Sheets("Equipment Request").Range("D10")
'Me.TextBoxE_SSDate.Value = Sheets("Equipment Request").Range("C11")
'Me.ListBoxE_SSTime.AddItem = Sheets("Equipment Request").Range("D11")
'Me.TextBoxE_SEDate.Value = Sheets("Equipment Request").Range("C12")
'Me.ListBoxE_SETime.AddItem = Sheets("Equipment Request").Range("D12")
'Me.TextBoxE_PickupDate.Value = Sheets("Equipment Request").Range("C13")
'Me.ListBoxE_PickupTime.AddItem = Sheets("Equipment Request").Range("D13")
'
'End If

'------------------------------------------------------
'Message box when data has been correctly added
'------------------------------------------------------
'MsgBox "Show Information Added to Form", vbOKOnly + vbInformation, "Show Information Added to Form"

Me.Hide

Call ESaveBook

ThisWorkbook.Sheets("Equipment Request").Visible = True
ThisWorkbook.Sheets("Equipment Request").Select

End Sub

Private Sub E_enter information_Click（）
'----------------------------------------------------
'检查已完成表单的有效性
'----------------------------------------------------
如果Trim（Me.TextBoxE_RequestBy.Value）=“”，则
Me.TextBoxE_RequestBy.SetFocus
MsgBox“请在表格上填写请求人”，vbCritical
出口接头
如果结束
如果Trim（Me.TextBoxE\u OnSiteContact.Value）=“”，则
Me.TextBoxE\u onsite contact.SetFocus
MsgBox“请在表格上填写‘现场联系人’”，VBC
出口接头
如果结束
如果Trim（Me.TextBoxE\u OnSiteNumber.Value）=“”，则
Me.TextBoxE\u OnSiteNumber.SetFocus
MsgBox“请在表格中填写“现场电话号码”
出口接头
如果结束
如果Trim（Me.TextBoxE\u EventName.Value）=“”，则
Me.TextBoxE\u EventName.SetFocus
MsgBox“请在表格中填写“事件名称”
出口接头
如果结束
如果Trim（Me.ComboBoxE\u LocationNumber.ListIndex）=-1，则
Me.ComboBoxE\u LocationNumber.SetFocus
MsgBox“请在表格上填写‘位置编号’”
出口接头
如果结束
如果Trim（Me.ListBoxE\u OffSiteDelivery.ListIndex）=-1，则
Me.ListBoxE\u OffSiteDelivery.SetFocus
MsgBox“请在表格中填写“场外交付”
出口接头
如果结束
如果Trim（Me.ListBoxE\u RequestStatus.ListIndex）=-1，则
Me.ListBoxE_RequestStatus.SetFocus
MsgBox“请在表格上填写‘请求状态’”
出口接头
如果结束
如果Trim（Me.TextBoxE\u DeliverDate.Value）=“”，则
Me.TextBoxE\u DeliverDate.SetFocus
MsgBox“请在表格上填写“交货日期”
出口接头
如果结束
如果Trim（Me.ListBoxE\u DeliverTime.ListIndex）=-1，则
Me.ListBoxE\u DeliverTime.SetFocus
MsgBox“请在表格上填写“交货时间”
出口接头
如果结束
如果Trim（Me.TextBoxE\u SSDate.Value）=“”，则
Me.TextBoxE\u SSDate.SetFocus
MsgBox“请在表格上填写“演出开始日期”
出口接头
如果结束
如果Trim（Me.ListBoxE\u SSTime.ListIndex）=-1，则
Me.ListBoxE\u SSTime.SetFocus
MsgBox“请在表格上填写“演出开始时间”
出口接头
如果结束
如果Trim（Me.TextBoxE_state.Value）=“”，则
Me.TextBoxE_state.SetFocus
MsgBox“请在表格上填写“显示结束日期”
出口接头
如果结束
如果Trim（Me.ListBoxE\u SETime.ListIndex）=-1，则
Me.ListBoxE_SETime.SetFocus
MsgBox“请在表格上填写“演出结束时间”
出口接头
如果结束
如果Trim（Me.TextBoxE\u PickupDate.Value）=“”，则
Me.TextBoxE_PickupDate.SetFocus
MsgBox“请在表格上填写“取货日期”
出口接头
如果结束
如果Trim（Me.ListBoxE_PickupTime.ListIndex）=-1，则
Me.ListBoxE\u PickupTime.SetFocus
MsgBox“请在表格上填写“取货时间”
出口接头
如果结束
'隐藏或显示场外和订单编号框
如果Me.ListBoxE\u OffSiteDelivery.Value=“是”，则
'EquipmentRequest.LabelE_OffSiteAdd.Visible=True-在异地交付时选择“否”时出现运行时错误424
'EquipmentRequest.TextBoxE_OffSiteAdd.Visible=True-在异地交付时选择“否”时出现运行时错误424
其他的
'EquipmentRequest.LabelE_OffSiteAdd.Visible=False-在异地交付时选择“是”时出现运行时错误424
'EquipmentRequest.TextBoxE_OffSiteAdd.Visible=False-在异地交付时选择“是”时出现运行时错误424
如果结束
如果Me.ListBoxE\u OffSiteDelivery.Value=“是”和Me.TextBoxE\u OffSiteAdd.Value=“”则
Me.TextBoxE\u OffSiteAdd.SetFocus
MsgBox“请在表格中填写‘输入场外地点名称和地址’”
出口接头
如果结束
如果Me.ListBoxE\u RequestStatus.Value为“新”，则
'EquipmentRequest.LabelE_OrderNum.Visible=True-在异地交付时选择“否”时出现运行时错误424
'EquipmentRequest.TextBoxE_OrderNum.Visible=True-在异地交付时选择“否”时出现运行时错误424
其他的
'EquipmentRequest.LabelE_OrderNum.Visible=False-在异地交付时选择“是”时出现运行时错误424
'EquipmentRequest.TextBoxE_OrderNum.Visible=False-在异地交付时选择“是”时出现运行时错误424
如果结束
如果Me.ListBoxE\u RequestStatus.Value“新建”和Me.TextBoxE\u OrderNum.Value=”“，则
Me.TextBoxE_OrderNum.SetFocus
MsgBox“请在表格上填写“输入订单/工作”
出口接头
如果结束
'--------------------------------------------
'在表单中输入数据
'--------------------------------------------
表格（“设备请求”）.Range（“C6”）=Me.TextBoxE_RequestBy.Value“请求者名称
表（“设备请求”）。范围（“C7”）=Me.TextBoxE_OnSiteContact.Value”联系人姓名
表格（“设备请求”）.Range（“C8”）=Me.TextBoxE\u OnSiteNumber.Value”电话号码格式
表格（“设备请求”）.范围（“F10”）=Me.TextBoxE_Comments.Value”注释（非必需）
表（“设备请求”）.Range（“I6”）=Me.TextBoxE\u EventName.Value”事件名称
表（“设备请求”）。范围（“I7”）=Me.ComboBoxE\u LocationNumber.Value'位置编号
表（“设备请求”）。范围（“I8”）=Me.ListBoxE_OffSiteDelivery.Value“是或否”选项
表格（“设备请求”）.Range（“I9”）=Me.ListBoxE_RequestStatus.Value“新建或修订”或取消选择
表格（“设备请求”）.Range（“C9”）=Me.TextBoxE_PWDate.Value”短日期格式
表格（“设备请求”）.Range（“D9”）=Me.ListBoxE_PWTime.Value”时间格式
表格（“设备请求”）.Range（“C10”）=Me.TextBoxE_DeliverDate.Value“短日期格式”
表格（“设备请求”）.Range（“D10”）=Me.ListBoxE\u DeliverTime.Value”时间格式
表格（“设备请求”）.Range（“C11”）=Me.TextBoxE\u SSDate.Value”短日期格式
表格（“设备请求”）.Range（“D11”）=Me.ListBoxE\u SSTime.Value”时间格式
表格（“设备请求”）.Range（“C12”）=Me.TextBoxE_.Value”短日期格式
表（“设备请求”）.范围（“D12”）=Me.ListBoxE_SETime.Value”时间Fo
Private Sub TextBox1_Change()
    ValidateForm
End Sub

Private Sub ValidateForm()
    Dim validationErrors As Long

    If Trim$(Me.TextBox1.Text) = vbNullString Then
        Me.InvalidIconTextBox1.Visible = True
        validationErrors = validationErrors + 1
    Else
        Me.InvalidIconTextBox1.Visible = False
    End If

    '...

    Me.OkButton.Enabled = (validationErrors = 0)
End Sub