0

このコードを書きましたが、「実行時エラー '91':」が発生しました。

Private Sub Command1_Click()
    Set rs = New ADODB.Recordset
    openConnection

    If Me.cmbMonth = "" And Me.cmbYear = "" Then
      MsgBox "Please select MONTH and YEAR"
      Exit Sub
    End If

    With crystalrpt

        .ReportFileName = App.Path & "\Report\VariableReport.rpt" <-- ERROR IS HERE
        .SelectionFormula = "{SW.dtaMonth}='" & cmbMonth.Text & "' and {SW.dtaYear}=" & dtaYear.Text & "" & _
        " and {SFW.dtaMonth}='" & cmbMonth.Text & "' and {SFW.dtaYear}=" & dtaYear.Text & "" & _
        " and {OT.dtaMonth}='" & cmbMonth.Text & "' and {OT.dtaYear}=" & dtaYear.Text & "" & _
        " and {CL.dtaMonth}='" & cmbMonth.Text & "' and {CL.dtaYear}=" & dtaYear.Text & "" & _
        " and {RM.dtaMonth}='" & cmbMonth.Text & "' and {RM.dtaYear}=" & dtaYear.Text & "" & _
        " and {EL.dtaMonth}='" & cmbMonth.Text & "' and {EL.dtaYear}=" & dtaYear.Text & "" & _
        " and {TRANS.dtaMonth}='" & cmbMonth.Text & "' and {TRANS.dtaYear}=" & dtaYear.Text & "" & _
        " and {WD.dtaMonth}='" & cmbMonth.Text & "' and {WD.dtaYear}=" & dtaYear.Text & "" & _
        " and {MP.dtaMonth}='" & cmbMonth.Text & "' and {MP.dtaYear}=" & dtaYear.Text & "" & _
        " and {NONSTOCK.dtaMonth}='" & cmbMonth.Text & "' and {NONSTOCK.dtaYear}=" & dtaYear.Text & "" & _
        " and {PACK.dtaMonth}='" & cmbMonth.Text & "' and {PACK.dtaYear}=" & dtaYear.Text & ""
        .WindowTitle = "Report"
        .Action = 1 'Will Show The Report

    End With

End Sub
4

1 に答える 1

0

テストしたマシンに存在するクラスからクラス（オブジェクト）のインスタンスを作成しようとしている可能性がありますが、展開されたマシンにはありません.....たとえば、私は起こりますNero Burning Rom のクラスを使用する VB プログラムを作成できることを知るために.... nero オブジェクトを作成し、そのメソッドとプロパティを使用することができます... しかし、それは Nero を搭載したマシンでのみ機能しますライブラリがインストールされています。インストールされていない場合、オブジェクトを作成しようとすると (new または createobject を使用したアーリー バインディングまたはレイト バインディングによって)、ライブラリが要求されたオブジェクトのインスタンスの作成に失敗したため、オブジェクトを参照する必要がある変数はまだ Nothing に設定されます。クラス.....

于 2012-04-24T13:02:59.203 に答える