実行時エラー '424; "オブジェクトケース関数のために必要

Question

私はコードの下にこれを理解することはできません....私は2番目のケースのエラーを押して、フォームの名前をfrmBookingLCL.showフォームが正しい。私はこれを把握することはできません。****私たちエラー行の行を。!!

Public Sub SendBookingEmail() 
    StartTime = Timer 
    With Session 
      'check first 2 letters of shipper's code, if not US raise error 
      If IsStartPositionCorrect(5, 14, 2, "US") <> True Or IsStartPositionCorrect(5, 2, 8, "Customer") <> True And GetDisplayText(4, 20, 1) <> "0" Then 
       If MsgBox("You don't appear to be in Logis ocean export US file. Please enter the file first and then run the macro.", vbOKOnly, "Export file verification....") Then 
        Exit Sub 
       End If 
      End If 

      sTypeOfMessage = "booking" 
      sShipmentType = Trim(.GetDisplayText(9, 61, 3)) 
      sFileType = Trim(.GetDisplayText(4, 32, 1)) 
      bFullVersion = False 

      'On Error GoTo ErrHand 

      'Get Outlook if it's running 
      Set oOutlookApp = GetObject(, "Outlook.Application") 

      'collect data fields for the e-mail body 
      GetAllLogisDataBooking 


      'Blow up the question form 
      Select Case sShipmentType 
       Case "FCL", "CMF", "CCS", "FPR" 
        frmBookingFCL.Show 
       Case "LCL", "GWY", "CLD" 
        frmBookingLCL.Show**********ERROR HERE 
       Case Else 
        frmBookingFCL.Show 
        'frmBookingOthers.Show 
      End Select 


    End With 

    Finish = Timer 
    TimeTook = Finish - StartTime 
    MyMacroStats = GetProcedureStats("Booking Confirmation", TimeTook) 


    Exit Sub 

ErrHand: 

     If Err = 429 Then 
      MsgBox "Please note you must start Microsoft Outlook first." 
      End 
     End If 

End Sub 

Answer 1

ほとんどの場合に役立つ、エラーがユーザーフォームである。コードのコメントを参照してください。

以下の問題を再現しようとしました：

Sub test() 

'/Sub to load the user form. 

Dim x As String 

    x = "a" 

    Select Case x 
    Case "a", "b", "c" 
     UserForm1.Show '/ It Will error-out here during debugging. 
    End Select 
End Sub 

Private Sub UserForm_Initialize() 

    '/ Code from : https://msdn.microsoft.com/en-us/library/office/gg251554.aspx 
    '/ Actually the error happens here. 

    Dim RetVal ' Implicitly a Variant. 
    ' Default property is assigned to Type 8 Variant RetVal. 
    RetVal = CreateObject("Excel.Application") 
    RetVal.Visible = True ' Error occurs here. 
End Sub 

UserForm1で

で210

コードは、だからあなたのintializeコードで行く、どちらかが見つからないか、これらのコントロールのいずれかの間違った名前を持っています。 frTrucker,CheckBox1,txtPickupDate。一度修正すれば、エラーはなくなります。