Переменная не определена

Question

Привет, мне нужна помощь по этой ошибке, которую я получаю в своем коде. переменная не определена, и после того, как я определил переменную, он выдает еще одну ошибку, в которой говорится, что метод или элемент данных не найден, и он всегда выделяет DataEnvironment1.commands. Я использую календарь для доступа к своим отчетам. в чем может быть проблема, пожалуйста, любая помощь.

Вот мой код:

Private Sub cmdOK_Click()

    On Error GoTo e
        frmDate = txtdate1.Text
        endDate = txtdate2.Text

        DataEnvironment1.Commands("InpatientMaintenanceMaster").Parameters(0) = txtdate1
        DataEnvironment1.Commands("InpatientMaintenanceMaster").Parameters(1) = txtdate2
        With RptInpatientMaster
            .Sections("Section2").Controls("lblDate1").Caption = txtdate1.Text
            .Sections("Section2").Controls("lblDate2").Caption = txtdate2.Text
            .Show
        End With
        DataEnvironment1.rsInpatientMaintenanceMaster.Close  
        Unload Me
    Exit Sub

e:
    If Err.Number <> 3704 Then
        MsgBox Err.Description, vbCritical
    End If
End Sub

Answer 1

Пожалуйста, удалите эту строку:

DataEnvironment1.Commands("InpatientMaintenanceMaster").Parameters(0) = txtdate1

И вместо этого замените ее на эту, а затем сообщите нам, какая строка отображается как ваша ошибка:

Dim dataEnv As Object
Set dataEnv = DataEnvironment1

Dim cmd As Object
Set cmd = dataEnv.Commands("InpatientMaintenanceMaster")

Dim dateString As String
dateString = txtdate1.Text 'assuming this is truly a textbox control?

cmd.Parameters(0) = dateString 'should really be using frmDate instead

Разделив это, это должно сузить именно то, что вам не хватает.