Как связать отчет с формой

@kos-625 · Регистрация: 15.02.2014

Author24 — интернет-сервис помощи студентам

Помогите,пожалуйста,связать форму и отчет Выдача книги, по заданным параметрам (для вывода отчетов) .БД прилагаю.

@Eugene-LS · 13.05.2017, 15:26

Примерно так :

Visual Basic

Dim s$
    If Me.FilterOn = True Then
        s = Me.Filter
    End If
    DoCmd.OpenReport "ВыдачаКниги", acViewPreview, , s

Идея в переносе текущего фильтра формы на открываемый отчёт

@kos-625 · 13.05.2017, 17:06 **[ТС]**

Хорошо на примере это увидеть -сам программный код писать не могу и куда его "втыкать" не знаю.

@Eugene-LS · 13.05.2017, 17:23

Сообщение от kos-625

Хорошо на примере это увидеть ...

Вот - пожалуйста!
- см. форму "выдача книг" - там кнопка вывода отчёта

@kos-625 · 13.05.2017, 18:22 **[ТС]**

Спасибо! То,что и надо получилось!

Добавлено через 36 минут
а можно дописать код,чтобы когда этот отчет открывался-форма закрывалась.

@Eugene-LS · 13.05.2017, 18:32

Сообщение от kos-625

а можно дописать код,чтобы когда этот отчет открывался-форма закрывалась.

Можно!

Visual Basic

Private Sub cmdOpenReport_Click()
'Отчёт = ВыдачаКниги
Dim s$
    
    If Me.RecordsetClone.EOF = True Then
        MsgBox "Нечего выводить!", vbExclamation, "Нет записей"
        Exit Sub
    End If
    
    If Me.FilterOn = True Then
        s = Me.Filter
    End If
    DoCmd.Close acForm, Me.Name 'Закрытие формы
    DoCmd.OpenReport "ВыдачаКниги", acViewPreview, , s 'Открытие отчёта с фильтром по форме
    DoCmd.Maximize  'Во весь экран
End Sub

@kos-625 · 13.05.2017, 18:38 **[ТС]**

Отлично! Спасибо!

@kos-625 · 13.05.2017, 18:52 **[ТС]**

Выдает ошибку когда выбираю читателя-

shanemac51 · 13.05.2017, 19:00

Сообщение от kos-625

Выдает ошибку когда выбираю читателя-

возможно имя контрола на форме не соответствует тому имени, что вы написали в запросе)
причин много --опечатка, пробел в имени,......

@Eugene-LS · 13.05.2017, 19:13

Сообщение от kos-625

Выдает ошибку когда выбираю читателя

Так вы фильтр строите по ссылке на поле формы:
[КодЧитателя]=[Forms]![ВыдачаКниги]![ЧитательКниги]

Щас подумаю как быть

@kos-625 · 13.05.2017, 19:21 **[ТС]**

Да,все верно-когда создавал общий фильтр -ЧитательКниги поле назвал.

@Eugene-LS · 13.05.2017, 19:30

Так работает ...

@Eugene-LS · 13.05.2017, 19:32

К сожалению макросами такие вещи я пока делать не умею.
Не постиг их суровой сущности пока.

@kos-625 · 13.05.2017, 19:50 **[ТС]**

Спасибо! Скопировал в БД-все прекрасно заработало.

@Eugene-LS 10896 / 5596 / 1417 Регистрация: 05.10.2016 Сообщений: 15,814
	13.05.2017, 19:13	10
	Сообщение от kos-625 Выдает ошибку когда выбираю читателя Так вы фильтр строите по ссылке на поле формы: [КодЧитателя]=[Forms]![ВыдачаКниги]![ЧитательКниги] Щас подумаю как быть 0

@kos-625 4 / 4 / 1 Регистрация: 15.02.2014 Сообщений: 189
	13.05.2017, 19:21 [ТС]	11
	Да,все верно-когда создавал общий фильтр -ЧитательКниги поле назвал. 0

@kos-625 4 / 4 / 1 Регистрация: 15.02.2014 Сообщений: 189
	13.05.2017, 17:06 [ТС]	3
	Хорошо на примере это увидеть -сам программный код писать не могу и куда его "втыкать" не знаю. 0

@kos-625 4 / 4 / 1 Регистрация: 15.02.2014 Сообщений: 189
	13.05.2017, 18:22 [ТС]	5
	Спасибо! То,что и надо получилось! Добавлено через 36 минут а можно дописать код,чтобы когда этот отчет открывался-форма закрывалась. 0

@kos-625 4 / 4 / 1 Регистрация: 15.02.2014 Сообщений: 189
	13.05.2017, 18:38 [ТС]	7
	Отлично! Спасибо! 0

@kos-625 4 / 4 / 1 Регистрация: 15.02.2014 Сообщений: 189
	13.05.2017, 18:52 [ТС]	8
	Выдает ошибку когда выбираю читателя- Миниатюры 0

shanemac51 Модератор 12088 / 4948 / 791 Регистрация: 07.08.2010 Сообщений: 14,548 Записей в блоге: 4
	13.05.2017, 19:00	9
	Сообщение от kos-625 Выдает ошибку когда выбираю читателя- возможно имя контрола на форме не соответствует тому имени, что вы написали в запросе) причин много --опечатка, пробел в имени,...... 0

@Eugene-LS 10896 / 5596 / 1417 Регистрация: 05.10.2016 Сообщений: 15,814
	13.05.2017, 19:32	13
	К сожалению макросами такие вещи я пока делать не умею. Не постиг их суровой сущности пока. 1

@kos-625 4 / 4 / 1 Регистрация: 15.02.2014 Сообщений: 189
	13.05.2017, 19:50 [ТС]	14
	Спасибо! Скопировал в БД-все прекрасно заработало. 0