Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Отчет диапазон дат", acNormal, , , , acDialog
Reports![ЕРП  2 ].RecordSource = Reports![ЕРП  2 ].RecordSource  !!!!! здесь валетает ошибка
End Sub

Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
Dim ssr As Recordset
Dim ssd As String

Reports![Е2].RecordSource = "SELECT DISTINCTROW покупатель_реквизиты.тип,….."

DoCmd.Close acForm, "Отчет диапазон дат"

Exit_Кнопка6_Click:
    Exit Sub

Err_Кнопка6_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка6_Click
    
End Sub

Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
Dim ssr As Recordset
Dim ssd As String

Reports![ЕРП  2 ].RecordSource = "SELECT DISTINCTROW покупатель_реквизиты.тип,….."

DoCmd.Close acForm, "Отчет диапазон дат"

Exit_Кнопка6_Click:
    Exit Sub

Err_Кнопка6_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка6_Click
    
End Sub