Dim ctr As Object
For Each ctr In Form1
If ctr.Name = "Check" Then ctr.Value = 0
Next
Как убрать все флажки одним нажатием?
Здравствуйте. Помогите пожалуйста чайнику.
У меня форма с таблицей, в таблице два столбца.
1й столбец - наименования, а 2й флажки.
Выше на форме установлена кнопка.
Мне нужно что бы нажатием на эту кнопку все установленные флажки
в наименованиях, убирались.
Заранее благодарю! :rolleyes:
У меня форма с таблицей, в таблице два столбца.
1й столбец - наименования, а 2й флажки.
Выше на форме установлена кнопка.
Мне нужно что бы нажатием на эту кнопку все установленные флажки
в наименованиях, убирались.
Заранее благодарю! :rolleyes:
Покажите ваш способ попытки решения проблемы
Сделайте из флажков массив - дайте всем им одно имя (например "Check") с разными индексами. А в процедуре кнопки напишите:
или в свойство ".Tag" флажков занесите любое ключевое слово (например "ёпрст"). Тогда код:
но лучше первый вариант.
Код:
Код:
Dim ctr As Object
For Each ctr In Form1
On Error GoTo A
If ctr.Tag = "ёпрст" Then ctr.Value = 0
A:
Next
For Each ctr In Form1
On Error GoTo A
If ctr.Tag = "ёпрст" Then ctr.Value = 0
A:
Next
Цитата: Virtuoso
Сделайте из флажков массив - дайте всем им одно имя (например "Check") с разными индексами...
если уж массив checkbox-ов то проще:
Код:
Dim c As CheckBox
For Each c In Check
c.Value = 1
Next c
For Each c In Check
c.Value = 1
Next c
в любом случае, перебором всех нужных checkbox-ов с установкой нужного значения.
Не понятно!
Для того что бы упростить задачу, я выгрузил пример базы
на http://www.x-linux.narod.ru/primer.rar
В этом примере есть Форма "Форма Заказы", которая
состоит из Таблицы "Заказы" и Кнопочки "Убрать все галочки в столбике
Напечатать сейчас".
В Таблице есть Столбики:Заказ №, Наименование, Заказано, ед изм, Уже печаталось, Напечатать сейчас.
ЗАДАЧА ТАКОВА: Мне необходимо что бы при нажании на Кнопочку
"Убрать все галочки в столбике Напечатать сейчас" снимались галочки
во всех строках Столбика "Напечатать сейсас", а в столбике "Уже печаталось" они должны наобарот появиться.
ДЛЯ ЧЕГО МНЕ ЭТО НУЖНО: Я хочу чтобы по указанным в столбике "Напечатать сейчас" позициям, печатался отчет.
Пожалуйста, помогите, очень нужно.
Готовый вариант можете прислать на [email]dosik@list.ru[/email],в теме укажите "Твоя база".
ЗАРАНЕЕ БЛАГОДАРЮ!
Для того что бы упростить задачу, я выгрузил пример базы
на http://www.x-linux.narod.ru/primer.rar
В этом примере есть Форма "Форма Заказы", которая
состоит из Таблицы "Заказы" и Кнопочки "Убрать все галочки в столбике
Напечатать сейчас".
В Таблице есть Столбики:Заказ №, Наименование, Заказано, ед изм, Уже печаталось, Напечатать сейчас.
ЗАДАЧА ТАКОВА: Мне необходимо что бы при нажании на Кнопочку
"Убрать все галочки в столбике Напечатать сейчас" снимались галочки
во всех строках Столбика "Напечатать сейсас", а в столбике "Уже печаталось" они должны наобарот появиться.
ДЛЯ ЧЕГО МНЕ ЭТО НУЖНО: Я хочу чтобы по указанным в столбике "Напечатать сейчас" позициям, печатался отчет.
Пожалуйста, помогите, очень нужно.
Готовый вариант можете прислать на [email]dosik@list.ru[/email],в теме укажите "Твоя база".
ЗАРАНЕЕ БЛАГОДАРЮ!
про Access надо было сразу сказать....
раз все равно все в таблице хранится, можно например так:
или одним запросом:
раз все равно все в таблице хранится, можно например так:
Код:
Private Sub Кнопка2_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [Заказы] SET [Уже печаталось]=True WHERE [Напечатать сейчас]=True"
DoCmd.RunSQL "UPDATE [Заказы] SET [Напечатать сейчас]=False WHERE [Напечатать сейчас]=True"
DoCmd.SetWarnings True
End Sub
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [Заказы] SET [Уже печаталось]=True WHERE [Напечатать сейчас]=True"
DoCmd.RunSQL "UPDATE [Заказы] SET [Напечатать сейчас]=False WHERE [Напечатать сейчас]=True"
DoCmd.SetWarnings True
End Sub
или одним запросом:
Код:
...
DoCmd.RunSQL "UPDATE [Заказы] SET [Уже печаталось]=True ,[Напечатать сейчас]=False WHERE [Напечатать сейчас]=True"
...
DoCmd.RunSQL "UPDATE [Заказы] SET [Уже печаталось]=True ,[Напечатать сейчас]=False WHERE [Напечатать сейчас]=True"
...