Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas Как вариант (для А2002 и выше), в форме:
DoCmd.OpenReport strReportName, acPreview, , , , strSQL
Private Sub Report_Open(Cancel As Integer) Dim strOpenArgs As String strOpenArgs = Nz(Me.OpenArgs) If Len(strOpenArgs) > 0 Then Me.RecordSource = strOpenArgs Else 'Cancel = True - если нет установленного валидного источника End If End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.