Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Элементы управления.Enabled (True-False) / 8 сообщений из 8, страница 1 из 1
15.12.2004, 06:16:19
    #32827706
КД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементы управления.Enabled (True-False)
При добавлении записи пользователь жмет на форме соответствующую кнопку при этом всем элементам управления, кроме одного, назначается Enabled = False (это чтобы он не забыл внести туда значение :) . Как только внесет - другой контрол становится Enabled = True (чтобы тоже не забыл). А уж когда и в это внесет по идее все контролы должны становиться Enabled = True, но почему-то не становятся... А первые два - все нормально!
...
Рейтинг: 0 / 0
15.12.2004, 06:42:22
    #32827714
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементы управления.Enabled (True-False)
1.Можно код увидеть?
2. А не проще ли поставить в таблице у поля свойство Обязательное поле или проверять заполнение полей на событии BeforeUpdate формы?
...
Рейтинг: 0 / 0
15.12.2004, 18:33:19
    #32829233
КД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементы управления.Enabled (True-False)
>Можно код увидеть?
Конечно, можно:

контролы cboPredpr и txt... имеют свойства "Доступ" - "Да", "Блокировка" - "Да"
контролы cmd... "Доступ" - "Да"
контрол oleCal "Доступ" - "Да", "Блокировка" - "Нет"

Private Sub cboPredpr_AfterUpdate()
Me!txtDate.Enabled = True
Me!txtDate.SetFocus
Me!cmdCalOpen.Enabled = True
End Sub

Private Sub cmdNew_Click()
acbMoveNew Me
Me!cboPredpr.SetFocus
Me!txtAmm.Enabled = False
Me!txtNitrit.Enabled = False
Me!txtNitrat.Enabled = False
Me!txtFosf.Enabled = False
Me!txtZhel.Enabled = False
Me!txtApav.Enabled = False
Me!txtMed.Enabled = False
Me!txtChlorid.Enabled = False
Me!txtNeft.Enabled = False
Me!txtSuchOst.Enabled = False
Me!txtVzvV_va.Enabled = False
Me!txtHpk.Enabled = False
Me!txtMarg.Enabled = False
Me!txtPh.Enabled = False
Me!txtSulf.Enabled = False
Me!cboPredpr.Enabled = True
Me!txtDate.Enabled = False
Me!cmdCalOpen.Enabled = False

Me!cmdFirst.Enabled = False
Me!cmdPrev.Enabled = False
Me!cmdNext.Enabled = False
Me!cmdLast.Enabled = False
Me!cmdNew.Enabled = False
Me!oleCal.Visible = False
Me!cmdCalClose.Visible = False
Me!cmdChange.Enabled = False
Me!cmdNotSave.Enabled = False
Me!cmdSave.Enabled = False
Me!cmdSearchRecord.Enabled = False
Me!cmdDelete.Enabled = False
Me!cmdGoTo_frmBegin.Enabled = False

End Sub

'Проверка состояния текущей записи
Private Sub Form_Current()

acbHandleCurrent Me
'если это новая запись:
If Me.NewRecord Then

Me!txtAmm.Locked = False
Me!txtNitrit.Locked = False
Me!txtNitrat.Locked = False
Me!txtFosf.Locked = False
Me!txtZhel.Locked = False
Me!txtApav.Locked = False
Me!txtMed.Locked = False
Me!txtChlorid.Locked = False
Me!txtNeft.Locked = False
Me!txtSuchOst.Locked = False
Me!txtVzvV_va.Locked = False
Me!txtHpk.Locked = False
Me!txtMarg.Locked = False
Me!txtPh.Locked = False
Me!txtSulf.Locked = False
Me!cboPredpr.Locked = False
Me!txtDate.Locked = False
Rem Me!cmdCalOpen.Enabled = True
Rem Me!cmdSearchRecord.Enabled = False

Rem Me!cmdChange.Enabled = False
Rem Me!cmdDelete.Enabled = False
Rem Me!cmdGoTo_frmBegin.Enabled = False

'а если не новая:
Else
Rem Me!cmdFirst.Enabled = True
Rem Me!cmdPrev.Enabled = True
Rem Me!cmdNext.Enabled = True
Rem Me!cmdLast.Enabled = True
Rem Me!cmdNew.Enabled = True

Rem Me!cmdChange.Enabled = True
Rem Me!cmdDelete.Enabled = True
End If
End Sub

Private Sub txtDate_AfterUpdate()

Me!txtAmm.Enabled = True
Me!txtNitrit.Enabled = True
Me!txtNitrat.Enabled = True
Me!txtFosf.Enabled = True
Me!txtZhel.Enabled = True
Me!txtApav.Enabled = True
Me!txtMed.Enabled = True
Me!txtChlorid.Enabled = True
Me!txtNeft.Enabled = True
Me!txtSuchOst.Enabled = True
Me!txtVzvV_va.Enabled = True
Me!txtHpk.Enabled = True
Me!txtMarg.Enabled = True
Me!txtPh.Enabled = True
Me!txtSulf.Enabled = True
Me!cboPredpr.Enabled = True

Me!cmdFirst.Enabled = True
Me!cmdPrev.Enabled = True
Me!cmdNext.Enabled = True
Me!cmdLast.Enabled = True
Me!cmdNew.Enabled = True
Me!cmdChange.Enabled = True
Me!cmdSearchRecord.Enabled = True
Me!cmdDelete.Enabled = True
Me!cmdGoTo_frmBegin.Enabled = True
End Sub

>А не проще ли поставить в таблице у поля свойство Обязательное поле или проверять заполнение полей на событии BeforeUpdate формы?
"...об этом я как-то не подумал..." А.Милн
...
Рейтинг: 0 / 0
15.12.2004, 18:49:15
    #32829255
мдя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементы управления.Enabled (True-False)
а циклы по коллекции контролов уже не модно?
...
Рейтинг: 0 / 0
15.12.2004, 23:59:55
    #32829412
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементы управления.Enabled (True-False)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Sub ufEnabledAllControls(Byval IsEnabled as boolean)
Dim myCtrl as Access.Controls
On error resume next
    For Each myCtrl In Me.Controls
        myCtrl.Enabled = IsEnabled
    Next

END public
...
Рейтинг: 0 / 0
16.12.2004, 18:21:21
    #32831111
КД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементы управления.Enabled (True-False)
Уж не знаю, глюки это или так и надо.
Затруднение заключалось в том, что на
Private Sub txtDate_AfterUpdate()
не выполнялось .Enabled = True для всех обозначенных контролов.
Я, наверное, привел неполный код, может, это было важно...
Дело в том, что поле txtDate свое значение получало от элемента "Календарь" Active X и когда я вместо txtDate поставил oleCal - все заработало.
...
Рейтинг: 0 / 0
16.12.2004, 18:45:59
    #32831140
GUESТ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементы управления.Enabled (True-False)
мдя уш... жестокий подход вы тут продемонстрировали

(извините, не смог удержаться от комментария)
...
Рейтинг: 0 / 0
17.12.2004, 06:04:48
    #32831417
КД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементы управления.Enabled (True-False)
Ну какой бы ни был, однако все промолчали, никто ничего не посоветовал...
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Элементы управления.Enabled (True-False) / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]