флажок

@пал палыч · Регистрация: 24.11.2010

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

Visual Basic

Private Sub Флажок_AfterUpdate()
Dim strReport As String
    
        strReport = "Отчет1"
 
                If CurrentProject.AllReports(strReport).IsLoaded = True Then _
                    Reports(strReport).Надпись.Visible = Me.Флажок
End Sub

Форма в ней флажок отчет в нем надпись, задача установка видимости надписи по наличию галочки у флажка при закрытом отчете

Работает при условии

если отчет открыт,

если вы ставите галку в флажке формы при закрытом отчете, то он открывается из расчета
того состояния надписи в котором оно находится для вывода на экран, а перемена состояния надписи возможна при открытом состоянии отчета галочкой флажка

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

вопрос как это сделать....

@пал палыч · 11.04.2011, 17:48 **[ТС]**

Прилагаю рабочий пример базы данны

@Ameli · 11.04.2011, 19:49

Зачем так сложно? оО На кнопку Открыть отчет:

Visual Basic

1
2

DoCmd.OpenReport "Отчет1", acViewPreview
If Forms![Form1]![Флажок] = True Then Reports![Отчет1]![Надпись].Visible = True Else Reports![Отчет1]![Надпись].Visible = False

@пал палыч · 11.04.2011, 21:15 **[ТС]**

Спасибо Ваш вариант работает!

@пал палыч · 13.04.2011, 14:10 **[ТС]**

Visual Basic

Private Sub Кнопка1_Click()
 
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Отчет1", acViewPreview
 
With Reports![Отчет1]
![НадписьГК].Visible = False: ![Надпись13].Visible = False: ![Надпись15].Visible = False
Select Case Me.Группа
   Case 1: ![НадписьГК].Visible = True
   Case 2: ![Надпись13].Visible = True
   Case 3: ![Надпись15].Visible = True
End Select
End With
 
With Reports![Отчет1]
![Надпись2].Visible = False: ![НадписьО].Visible = False: ![Надпись10].Visible = False
Select Case Me.Группа1
   Case 1: ![Надпись2].Visible = True
   Case 2: ![НадписьО].Visible = True
   Case 3: ![Надпись10].Visible = True
End Select
End With
 
End Sub

Добавлено через 5 минут
процедурка когда флажки в группе и надписей тоже много

думаю над другим еще теперь как поставив флажек в одной группе, зделать возможность установки флажка только в одном месте другой группы, то есть наличие флажка в пункте1 группы1 скажем может соответствовать только наличию флажка в пункте 2 группы 2.

@Ameli · 13.04.2011, 14:26

Вот простая процедурка на обновление группы флажков1, которая работает след.образом: если выбран второй элемент группы1, то во второй группе автоматом выбирается второй элемент и группа блокируется, в противном случае блокировка снимается

Visual Basic

1
2
3

Private Sub Группа1_AfterUpdate()
If Группа1 = 2 Then Группа2 = 2: Группа2.Locked = True Else Группа2.Locked = False
End Sub

@пал палыч · 13.04.2011, 14:51 **[ТС]**

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

@Ameli · 13.04.2011, 15:23

тогда так:

Visual Basic

1
2
3

Private Sub Группа1_AfterUpdate()
If Группа1 = 2 Then Гр2Фл1.Locked = True: Гр2Фл3.Locked = True Else Гр2Фл1.Locked = False: Гр2Фл3.Locked = False
End Sub

Гр2Фл1 - первый флажок второй группы, Гр2Фл3 - третий флажок второй группы.

@пал палыч · 13.04.2011, 16:08 **[ТС]**

Это если стоит глка на флажке со значением параметра 2 в группе 1

@Ameli · 13.04.2011, 16:11

да, естественно можешь подставить свои значения

@пал палыч · 13.04.2011, 20:22 **[ТС]**

Ругается, в этом месте или после Then

@ironegg · 14.04.2011, 02:19

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

@Ameli · 14.04.2011, 07:29

Скорей всего ты не задал эти имена флажкам во второй группе. Проверь!

@пал палыч · 22.04.2011, 22:32 **[ТС]**

Visual Basic

Private Sub Группа1_AfterUpdate()
If Группа1 = 1 Then Группа2Флажок1.Locked = True: Группа2Флажок3.Locked = True Else Группа2Флажок1.Locked = False: Группа2Флажок3.Locked = False
If Группа1 = 2 Then Группа2Флажок2.Locked = True: Группа2Флажок3.Locked = True Else Группа2Флажок2.Locked = False: Группа2Флажок3.Locked = False
If Группа1 = 3 Then Группа2Флажок1.Locked = True: Группа2Флажок2.Locked = True Else группа2Флажок1.Locked = False: Группа2Флажок2.Locked = False
End Sub

работает почемуто только вторая половина кода

флажки названы правильно

@пал палыч · 22.04.2011, 22:35 **[ТС]**

базу прилагаю

@Ameli · 23.04.2011, 08:07

Твои строки кода противоречат друг другу
1) если выбран первый фложок, то заблокировать первый и третий, в противном случае разблокировать первый и третий
2) если выбран второй, то заблокировать второй и третий, в противном случае разблокировать второй и третий. Но ведь если не выбран первый, то надо разблокировать первый и третий, и эта строка идет первой, поэтому первый не блокируется
и т.д.

В приложении исправила:
если выбран первый, то заблокировать первый и третий, разблокировать второй и т.д., так будет работать.
Кроме того, я добавила перескакивание на нейтральный 4-ый флажок.

@Menred · 13.03.2012, 08:41

Прошу прощения, а как устанавливаются группы? и что ето вообще такое?

@Ameli · 13.03.2012, 08:44

Группы флажков, переключателей и выключателей для отображения значений логического типа

@Ameli 2095 / 1171 / 39 Регистрация: 05.11.2009 Сообщений: 1,605
	13.03.2012, 08:44	18
	Группы флажков, переключателей и выключателей для отображения значений логического типа 0

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@пал палыч 12 / 12 / 0 Регистрация: 24.11.2010 Сообщений: 100
	11.04.2011, 21:15 [ТС]	4
	Спасибо Ваш вариант работает! 0

@пал палыч 12 / 12 / 0 Регистрация: 24.11.2010 Сообщений: 100
	13.04.2011, 14:51 [ТС]	7
	сейчас буду пробовать, нужно правда без автоматической простановки, а с возможностью постаит флажек токо в том месте или непоставить т.е. на выбор юзера 0

@пал палыч 12 / 12 / 0 Регистрация: 24.11.2010 Сообщений: 100
	13.04.2011, 16:08 [ТС]	9
	Это если стоит глка на флажке со значением параметра 2 в группе 1 0

@Ameli 2095 / 1171 / 39 Регистрация: 05.11.2009 Сообщений: 1,605
	13.04.2011, 16:11	10
	да, естественно можешь подставить свои значения 1

@пал палыч 12 / 12 / 0 Регистрация: 24.11.2010 Сообщений: 100
	13.04.2011, 20:22 [ТС]	11
	Ругается, в этом месте или после Then Миниатюры 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	14.04.2011, 02:19	12
	пал палыч, будьте так любезны, не засорять форум скриншотами окна редактирования кода. выкладывайте текст кода оформленый тегами VB. указывайте номер проблемной строки. этот способ лучше по многим причинам, например, текстовая информация может быть проиндексирована поисковиками. 1

@Ameli 2095 / 1171 / 39 Регистрация: 05.11.2009 Сообщений: 1,605
	14.04.2011, 07:29	13
	Скорей всего ты не задал эти имена флажкам во второй группе. Проверь! 0

@Menred 11 / 8 / 0 Регистрация: 17.02.2012 Сообщений: 88
	13.03.2012, 08:41	17
	Прошу прощения, а как устанавливаются группы? и что ето вообще такое? 0