Если флажок установлен, то поле сделать недоступным

@Алёёёнка · Регистрация: 09.06.2013

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

Добрый вечер, подскажите пожалуйста, повесила следующий код на кнопочку

Visual Basic
1
2
3
4
5
6
7
8
9
ZAP.MoveFirst
While Not ZAP.EOF
If ZAP![оплачено] = -1 Then     'если в поле выбор стоит галочка, то блокируем это поле
Me!пф_Произвести_оплату!оплачено.Locked = False
Else
Me!пф_Произвести_оплату!оплачено.Locked = True
End If
ZAP.MoveNext
Wend

По циклу он пробегает, но проблема в том, что блокирует все записи независимо от того стоит галочка или нет, и какое свойство лучше использовать Locked(блокировка) или Enabled(доступ). Заранее спасибо.

@Agapov_stas · 12.06.2013, 15:24

Условное форматирование.

@Алёёёнка · 12.06.2013, 15:33 **[ТС]**

Agapov_stas, очень непонятный ответ, можно поподробнее?

@Agapov_stas · 12.06.2013, 15:42

Можно, конечно.
Все что Вы делаете можно сделать без программирования. А именно через "Условное форматирование".

@Алёёёнка · 12.06.2013, 15:46 **[ТС]**

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

@ltv_1953 · 12.06.2013, 16:28

Сообщение от Алёёёнка

а потом разом заблокировать.

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

@Алёёёнка · 12.06.2013, 16:32 **[ТС]**

ltv_1953, есть подчиненная форма, в ней мы выбираем нужных спортсменов, когда выбрали всех кого надо, нажимаем кнопочку и все, у кого стояли галочки сделать поле "флажок" недоступным.

@ltv_1953 · 12.06.2013, 16:44

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

@Алёёёнка · 12.06.2013, 16:58 **[ТС]**

ltv_1953, не понятно, зачем дубль галочки, в том то и дело мне так и надо, чтобы по нажатии на кнопку нельзя было снять выбор

@ltv_1953 · 12.06.2013, 17:17

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

@GenaY · 12.06.2013, 18:19

Событие "текущая запись" для формы возможно вам поможет.
Туда без цикла

Visual Basic
1
2
3
4
5
If ZAP![оплачено] = -1 Then 'если в поле выбор стоит галочка, то блокируем это поле
Me!пф_Произвести_оплату!оплачено.Locked = False
Else
Me!пф_Произвести_оплату!оплачено.Locked = True
End If

@Agapov_stas · 12.06.2013, 18:50

Ну, кнопка так кнопка, в чем проблема то?

Visual Basic
1
2
3
4
5
6
7
Private Sub Кнопка_Click()
With Me![ПодчиненнаяФорма].Form.Поле
        .FormatConditions.Delete
        .FormatConditions.Add acExpression, acEqual, "[Флажок] <> 0"
        .FormatConditions(0).Enabled = False
End With
End Sub

@Алёёёнка · 13.06.2013, 07:26 **[ТС]**

ltv_1953, а без дублей никак, что то у меня вообще перестало работать, покажите если не сложно скрин, ну или пример кода, если его надо прописать

@ltv_1953 · 13.06.2013, 07:32

Сообщение от Алёёёнка

ну или пример кода, если его надо прописать

Выложите свою базу по минимуму - только две (или три) нужные таблицы, запросы, если нужны для форм, и две формы (основная и подчиненная). Там и пример будет сделан.

@Алёёёнка · 13.06.2013, 07:43 **[ТС]**

ltv_1953, вот эта форма:

@ltv_1953 · 13.06.2013, 08:04

Ваш пример не удачный - ошибки выполнения и данных мало. Посмотрите вложение, собранное на другой базе. В подчиненной ставите галочки, но ничего пока не блокируется. Блокировка активируется двойным кликом по полю основной формы Код клиента.

@Алёёёнка · 13.06.2013, 19:56 **[ТС]**

GenaY, вылезает ошибка 438, может что то не так??

@Алёёёнка · 13.06.2013, 20:15 **[ТС]**

ltv_1953, на подчиненной форме есть процедурка
Private Sub Form_Current()
Me.Выбрана.Locked = Me.Блокирована
End Sub

Что такое me.Блокирована?? это поле? его дополнительно создать надо или это свойсво для блокировки?? просто у меня при выполнении запрашивает введите значение параметра

Добавлено через 2 минуты

Сообщение от Алёёёнка

GenaY, вылезает ошибка 438, может что то не так??

не тому ответила, это для Agapov_stas,

@GenaY · 13.06.2013, 20:48

Алёёёнка, А какая ошибка вылезает на мое решение? Или Вы не пробовали?
Если флажок установлен, то поле сделать недоступным
Не стал разбираться с ошибкой на обновление поля оплаты, пока закомментировал.
Добавил обработку события текущая запись. Если стоит галочка выбор то галочка оплата блокируется, если не стоит галочка выбор галочка выбор не блокируется.
Посмотрите, может вы этого хотели добиться?

@Алёёёнка · 13.06.2013, 20:54 **[ТС]**

Спасибо огромное!!!! да именно это!!!

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	12.06.2013, 15:24
	Условное форматирование. 1

@Алёёёнка 0 / 0 / 0 Регистрация: 09.06.2013 Сообщений: 24
	12.06.2013, 15:33 [ТС]
	Agapov_stas, очень непонятный ответ, можно поподробнее? 0

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	12.06.2013, 15:42
	Можно, конечно. Все что Вы делаете можно сделать без программирования. А именно через "Условное форматирование". 0

@Алёёёнка 0 / 0 / 0 Регистрация: 09.06.2013 Сообщений: 24
	12.06.2013, 15:46 [ТС]
	мне нужно именно через программирование, так как если так как вы предлагаете, то поле будет блокироваться сразу же после того, как я галочку поставлю, а мне надо сперва проставить все нужные галочки, а потом разом заблокировать. 0

@Алёёёнка 0 / 0 / 0 Регистрация: 09.06.2013 Сообщений: 24
	12.06.2013, 16:32 [ТС]
	ltv_1953, есть подчиненная форма, в ней мы выбираем нужных спортсменов, когда выбрали всех кого надо, нажимаем кнопочку и все, у кого стояли галочки сделать поле "флажок" недоступным. 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	12.06.2013, 16:44
	Сделайте дубль галочки в таблице, заполните его по нажатию кнопки, и, либо условное форматирование по значению дубля, либо обработка дубля в событии текущая запись. А как потом будете снимать галочку, если понадобится? 0

@Алёёёнка 0 / 0 / 0 Регистрация: 09.06.2013 Сообщений: 24
	12.06.2013, 16:58 [ТС]
	ltv_1953, не понятно, зачем дубль галочки, в том то и дело мне так и надо, чтобы по нажатии на кнопку нельзя было снять выбор 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	12.06.2013, 17:17
	Вы хотите, чтобы блокировка происходила не сразу, а только когда поставили все нужные галочки и нажали кнопку. По нажатию кнопки в дубль галочки заносите значения галочки, а блокировка в записях формы уже стоит по значению дубля. 0

@Алёёёнка 0 / 0 / 0 Регистрация: 09.06.2013 Сообщений: 24
	13.06.2013, 07:26 [ТС]
	ltv_1953, а без дублей никак, что то у меня вообще перестало работать, покажите если не сложно скрин, ну или пример кода, если его надо прописать 0

@Алёёёнка 0 / 0 / 0 Регистрация: 09.06.2013 Сообщений: 24
	13.06.2013, 19:56 [ТС]
	GenaY, вылезает ошибка 438, может что то не так?? Миниатюры 0

@Алёёёнка 0 / 0 / 0 Регистрация: 09.06.2013 Сообщений: 24
	13.06.2013, 20:54 [ТС]
	Спасибо огромное!!!! да именно это!!! 0