Форум программистов, компьютерный форум, киберфорум
Наши страницы
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
SumraK_kin
0 / 0 / 1
Регистрация: 13.12.2013
Сообщений: 96
1

Группа переключателей и нужный отчет

17.01.2014, 16:40. Просмотров 1186. Ответов 11
Метки нет (Все метки)

Добрый день. Помогите сделать следующее. Есть 2 отчета. (Должники и Ярлыки) На форме отчеты есть Группа переключателей Должники и Ярлыки Есть 2 кнопки открыть и Ярлыки. Кнопка открыть пустая. На кнопке ярлык висит VBA код который делает выборку данных для отчета Ярлыки.
Нужно что бы при установке переключателя и нажатии кнопки открыть открывался нужный отчет. Помогите пожалуйста.

Желательно сделать это на кнопке Ярлыки что бы осталась выборка данных Если выбран отчет Ярлыки,но если это не реально то как реализовать просто выбор отчета на кнопке открыть. Помогите пожалуйста Заренее огромное спасибо! Базу прикладываю
0
Вложения
Тип файла: zip BD.zip (118.1 Кб, 11 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2014, 16:40
Ответы с готовыми решениями:

Группа переключателей
Скажите как оргнизовать открытие отчетов через группу переключателей? Я создаю макрос: !!=1 и т.д,...

группа переключателей >20
Вопрос быть может глупый, но для новичка (ни с Access, ни с другими СУБД ранешь не работал) Как...

Группа переключателей по таблице
Здравствуйте, такой вопрос. Можно ли создать группу переключателей по данным из таблицы....

Группа переключателей, ошибка в коде
Добрый день! Подскажите пожалуйста где ошибка. На форме имеется группа переключателей и в...

Группа переключателей и оператор IIf.
У меня есть форма на которой размещены несколько групп переключателей. В каждой группе есть по два...

11
byte1987
104 / 11 / 0
Регистрация: 15.01.2014
Сообщений: 38
17.01.2014, 16:48 2
Ничего не понял в описании вопроса (чуть не уснул, пока читал).
Так что ли (на какую кнопку вешать так и не понял)?
Visual Basic
1
2
3
4
5
6
7
8
9
10
Select Case Me.Группа5
   Case 1
      DoCmd.OpenReport ("Должники")
   Case 2
      If Len(SelToStr(Me.Список2, 1) & "") > 0 Then
         DoCmd.OpenReport ("Ярлыки"), acViewPreview, , "[Код-Заказчика] IN (" & SelToStr(Me.Список2, 1) & ")"
      Else
         DoCmd.OpenReport ("Ярлыки"), acViewPreview
      End If
End Select
1
SumraK_kin
0 / 0 / 1
Регистрация: 13.12.2013
Сообщений: 96
17.01.2014, 17:02  [ТС] 3
Да так только почему то Отчет Ярлыки открывается а отчет Должники сразу выводиться на печать
0
byte1987
104 / 11 / 0
Регистрация: 15.01.2014
Сообщений: 38
17.01.2014, 17:04 4
Цитата Сообщение от SumraK_kin Посмотреть сообщение
Да так только почему то Отчет Ярлыки открывается а отчет Должники сразу выводиться на печать
Забыл превью..
Visual Basic
1
DoCmd.OpenReport ("Должники"), acViewPreview
1
SumraK_kin
0 / 0 / 1
Регистрация: 13.12.2013
Сообщений: 96
17.01.2014, 17:08  [ТС] 5
Вот спасибо теперь все так.А как на команду
Visual Basic
1
2
3
4
5
6
Case 2
      If Len(SelToStr(Me.Список2, 1) & "") > 0 Then
         DoCmd.OpenReport ("Ярлыки"), acViewPreview, , "[Код-Заказчика] IN (" & SelToStr(Me.Список2, 1) & ")"
      Else
         DoCmd.OpenReport ("Ярлыки"), acViewPreview
      End If
Добавить ещё команду которая будет отображать Список2 (подразумевается что при открытии формы Объект Список2 будет иметь свойство Вывод на экран "нет" Спасибо!
0
byte1987
104 / 11 / 0
Регистрация: 15.01.2014
Сообщений: 38
17.01.2014, 17:11 6
Visual Basic
1
2
3
Private Sub Form_Load()
Me.Список2.Visible=False 'Так что ли?
End Sub
0
SumraK_kin
0 / 0 / 1
Регистрация: 13.12.2013
Сообщений: 96
17.01.2014, 17:14  [ТС] 7
Извините не так поставил вопрос. При открытии формы список скрыт. Если ставится флажок на "Ярлыки" то список должен отобразиться, если флажок снимается то Список скрывается. Данное действие соответственно должно быть на флажке а не на кнопке.
0
byte1987
104 / 11 / 0
Регистрация: 15.01.2014
Сообщений: 38
17.01.2014, 17:17 8
Цитата Сообщение от SumraK_kin Посмотреть сообщение
Если ставится флажок на "Ярлыки" то список должен отобразиться, если флажок снимается то Список скрывается.
Visual Basic
1
2
3
Private Sub Группа5_Click()
Me.Список2.Visible = (Me.Группа5.Value = 2)
End Sub
1
SumraK_kin
0 / 0 / 1
Регистрация: 13.12.2013
Сообщений: 96
17.01.2014, 17:19  [ТС] 9
Не работает Вот выкладываю БД как сделал, Может Сам что наврал
0
Вложения
Тип файла: zip Bd.zip (126.4 Кб, 8 просмотров)
byte1987
104 / 11 / 0
Регистрация: 15.01.2014
Сообщений: 38
17.01.2014, 17:22 10
Цитата Сообщение от SumraK_kin Посмотреть сообщение
Не работает
Смутно верится, но все же выложу на всякий случай.
2
Вложения
Тип файла: rar BD.rar (52.4 Кб, 21 просмотров)
SumraK_kin
0 / 0 / 1
Регистрация: 13.12.2013
Сообщений: 96
17.01.2014, 17:27  [ТС] 11
Щас буду разбираться что не так сделал. Спрошу последний наверное самый глыпый вопрос как в группу можно добавлять переключатели когда она уже создана. Или только удалять и создавать новую?
0
byte1987
104 / 11 / 0
Регистрация: 15.01.2014
Сообщений: 38
17.01.2014, 17:30 12
1. Создать просто флажок
2. Скопировать уже имеющийся в группе и задать ему значение параметра(если не выдаст)
0
17.01.2014, 17:30
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.01.2014, 17:30

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Группа переключателей как условие для выборки данных в запросе Access
Добрый день, уважаемые формучане, требуется ваша помощь. 1. В БД есть две таблицы Сотрудники и...

Код на "Группа переключателей" для родителей
прошу помощи) но есть у меня затруднение, помогите пожалуйста у меня есть форма, на ней данные...

Объединение групп переключателей со списками, с возможностью выбора нескольких позиций в группе переключателей
Форумчане, мне пришлось сделать группу переключателей, где нужно чтобы я мог включить любую...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.