Диалоговая форма даты для отчета работает нормально в формате .accdb, но не работает в формате .accde

Question

Я написал эти коды в своем отчете.

Option Compare Database
Option Explicit

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "There is no data for this report. Canceling report..."
    Cancel = -1    '/*If no data cancel report*/
End Sub

Private Sub Report_Close() '/*To close Date dialog form which was hide after report opened*/
    DoCmd.Close acForm, "Report Date Range"
End Sub

Sub Report_Open(Cancel As Integer) '/*To open Date dialog form*/
    DoCmd.OpenForm "Report Date Range", , , , , acDialog, "Select Report Date"
    If Not IsLoaded("Report Date Range") Then
        Cancel = True
    End If
End Sub

Этот код работает нормально в формате .accdb, но не работает, когда я сохраняю свою базу данных в формате .accde.На самом деле, он не открывает диалоговую форму даты, а показывает диалоговое окно «Ввод значения параметра».Пожалуйста, помогите мне решить эту проблему.

Я написал следующий код в форме предварительного просмотра Кнопка даты.

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
    Me.Caption = Me.OpenArgs
End Sub

Private Sub Preview_Click()
    If IsNull([Beginning Date]) Or IsNull([Ending Date]) Then
        MsgBox "You must enter both beginning and ending dates."
        DoCmd.GoToControl "Beginning Date"
    Else
        If [Beginning Date] > [Ending Date] Then
            MsgBox "Ending date must be greater than Beginning date."
            DoCmd.GoToControl "Beginning Date"
        Else
            Me.Visible = False
        End If
    End If
End Sub

изапрос имеет критерии для фильтрации отчета по заданной дате в диалоговой форме даты.

"> = [формы]! [диапазон дат отчета]! [дата начала] и <= [формы]! [отчетДиапазон дат]! [Конечная дата] "</p>

Answer 1

Я удаляю пустой саб из некоторых форм.сейчас работает нормально.

Например:

Option Compare Database

Private Sub Previous_Product_Click()

End Sub