Блокировка

@deiman12 · Регистрация: 14.06.2013

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

имеются 8 полей,которые должны быть блокированны при запускеформы. Для каждого поля прописан одинаковый код на блокировку, первые 3 блокируются нормально, а остальные 5 запускаются разблокированными (блокировка срабатывает только после постановки и последующего снятия флажка). Вот код

T-SQL

Private Sub ЛогическоеПоле_AfterUpdate
On Error GoTo Err_ЛогическоеПоле_AfterUpdate
If Nz ([ЛогическоеПоле]) = 0 Then
Me.Поле.Enabled = False
Else
Me.Поле.Enabled = True
End If
Exit_ЛогическоеПоле_AfterUpdate:
Exit Sub
Err_ЛогическоеПоле_AfterUpdate:
MsgBox Err.Description
Resume Exit_ЛогическоеПоле_AfterUpdate
End Sub

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

@Agapov_stas · 17.06.2013, 16:14

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

Кликните здесь для просмотра всего текста

Visual Basic

1
2
3

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

@deiman12 · 17.06.2013, 17:58 **[ТС]**

какой именно, а то они у меня не работают

@GenaY · 17.06.2013, 21:12

Сообщение от deiman12

..а остальные 5 запускаются разблокированными (блокировка срабатывает только после постановки и последующего снятия флажка)

А если у этих элементов в свойство доступ сделать нет, то они при запуске формы тоже будут не доступны. После снятия флажка блокировка будет сниматься.

@deiman12 · 17.06.2013, 21:44 **[ТС]**

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

@Волшебник 307 · 17.06.2013, 22:00

deiman12,

Вам GenaY сказал,
Сделайте в конструкторе
всем полям доступ - нет.

Это Что? Разве так? Эх!
If Nz ([ЛогическоеПоле]) = 0 Then

if Me![Флажок1]=True then
Me![Поле1].Enabled=True
else
Me![Поле1].Enabled=False
end if

@deiman12 · 17.06.2013, 22:16 **[ТС]**

Волшебник 307
абсолютно таже проблема, запускается разблокированным

@GenaY · 17.06.2013, 22:22

deiman12, Если у вас все хорошо, значит вы что-то не заметили. Если плохо, тоже актуально.

@Волшебник 307 · 17.06.2013, 22:27

deiman12,

Как kmv-puh говорит,
Давай сюда своего трупа.

@deiman12 · 17.06.2013, 23:15 **[ТС]**

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

@alvk · 18.06.2013, 03:37

Сообщение от deiman12

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

и имеет другое имя?

@deiman12 · 18.06.2013, 13:34 **[ТС]**

на всех полях пробывал, все равно часть не правильно работает

@deiman12 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 20
	17.06.2013, 23:15 [ТС]	10
	нет возможности скинуть базу , ибо с телефона кусок кода ведь есть, я заного все также переписал , теперь работает половина при запуске 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,032
	18.06.2013, 03:37	11
	Сообщение от deiman12 абсолютно таже проблема, запускается разблокированным и имеет другое имя? 0

@deiman12 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 20
	17.06.2013, 17:58 [ТС]	3
	какой именно, а то они у меня не работают 0

@GenaY 383 / 209 / 5 Регистрация: 29.05.2013 Сообщений: 337
	17.06.2013, 21:12	4
	Сообщение от deiman12 ..а остальные 5 запускаются разблокированными (блокировка срабатывает только после постановки и последующего снятия флажка) А если у этих элементов в свойство доступ сделать нет, то они при запуске формы тоже будут не доступны. После снятия флажка блокировка будет сниматься. 0

@deiman12 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 20
	17.06.2013, 21:44 [ТС]	5
	вся суть в том, что при поставленном флажке поле должно быть разблокированно 0

@Волшебник 307 1390 / 325 / 45 Регистрация: 16.04.2013 Сообщений: 775 Записей в блоге: 2
	17.06.2013, 22:00	6
	deiman12, Вам GenaY сказал, Сделайте в конструкторе всем полям доступ - нет. Это Что? Разве так? Эх! If Nz ([ЛогическоеПоле]) = 0 Then if Me![Флажок1]=True then Me![Поле1].Enabled=True else Me![Поле1].Enabled=False end if 0

@deiman12 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 20
	17.06.2013, 22:16 [ТС]	7
	Волшебник 307 абсолютно таже проблема, запускается разблокированным 0

@GenaY 383 / 209 / 5 Регистрация: 29.05.2013 Сообщений: 337
	17.06.2013, 22:22	8
	deiman12, Если у вас все хорошо, значит вы что-то не заметили. Если плохо, тоже актуально. 0

@Волшебник 307 1390 / 325 / 45 Регистрация: 16.04.2013 Сообщений: 775 Записей в блоге: 2
	17.06.2013, 22:27	9
	deiman12, Как kmv-puh говорит, Давай сюда своего трупа. 1

@deiman12 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 20
	18.06.2013, 13:34 [ТС]	12
	на всех полях пробывал, все равно часть не правильно работает 0