
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
15.12.2004, 06:16:19
|
|||
|---|---|---|---|
|
|||
Элементы управления.Enabled (True-False) |
|||
|
#18+
При добавлении записи пользователь жмет на форме соответствующую кнопку при этом всем элементам управления, кроме одного, назначается Enabled = False (это чтобы он не забыл внести туда значение :) . Как только внесет - другой контрол становится Enabled = True (чтобы тоже не забыл). А уж когда и в это внесет по идее все контролы должны становиться Enabled = True, но почему-то не становятся... А первые два - все нормально! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.12.2004, 06:42:22
|
|||
|---|---|---|---|
|
|||
Элементы управления.Enabled (True-False) |
|||
|
#18+
1.Можно код увидеть? 2. А не проще ли поставить в таблице у поля свойство Обязательное поле или проверять заполнение полей на событии BeforeUpdate формы? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.12.2004, 18:33:19
|
|||
|---|---|---|---|
|
|||
Элементы управления.Enabled (True-False) |
|||
|
#18+
>Можно код увидеть? Конечно, можно: контролы 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 формы? "...об этом я как-то не подумал..." А.Милн ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.12.2004, 18:49:15
|
|||
|---|---|---|---|
Элементы управления.Enabled (True-False) |
|||
|
#18+
а циклы по коллекции контролов уже не модно? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.12.2004, 23:59:55
|
|||
|---|---|---|---|
Элементы управления.Enabled (True-False) |
|||
|
#18+
Код: plaintext 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
16.12.2004, 18:21:21
|
|||
|---|---|---|---|
|
|||
Элементы управления.Enabled (True-False) |
|||
|
#18+
Уж не знаю, глюки это или так и надо. Затруднение заключалось в том, что на Private Sub txtDate_AfterUpdate() не выполнялось .Enabled = True для всех обозначенных контролов. Я, наверное, привел неполный код, может, это было важно... Дело в том, что поле txtDate свое значение получало от элемента "Календарь" Active X и когда я вместо txtDate поставил oleCal - все заработало. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
16.12.2004, 18:45:59
|
|||
|---|---|---|---|
Элементы управления.Enabled (True-False) |
|||
|
#18+
мдя уш... жестокий подход вы тут продемонстрировали (извините, не смог удержаться от комментария) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=45&mobile=1&tid=1669712]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
28ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
| others: | 208ms |
| total: | 302ms |

| 0 / 0 |
