|
Действия ...
|
07.01.2004, 16:18
|
|||
|---|---|---|---|
|
|||
Me.Form.AllowEdits = False |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
07.01.2004, 14:03
|
|||
|---|---|---|---|
Me.Form.AllowEdits = False |
|||
|
#18+
После выполнения этого кода изменять все поля в форме становится нельзя. А можно ли после этого разрешить изменять какое-либо одно поле? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 14:12
|
|||
|---|---|---|---|
|
|||
Me.Form.AllowEdits = False |
|||
|
#18+
Нет. Вам надо пройти по полям и установить Locked = True для всех, кроме нужного. А почему Me.Form.AllowEdits = False, а не Me.AllowEdits = False? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 14:40
|
|||
|---|---|---|---|
Me.Form.AllowEdits = False |
|||
|
#18+
To Serge Gavrilov Я так все поля перебираю и блокирую, оставляя только необходимые. Просто полей много. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 15:03
|
|||
|---|---|---|---|
|
|||
Me.Form.AllowEdits = False |
|||
|
#18+
Какая разница сколько их? Перебирайте все контролы, и если контрол имеет ControlSource то блокируете его Примерно так Dim ctl As Control Dim tmpStr As String On Error Resume Next For Each ctl In Me.Controls tmpStr = ctl.ControlSource If Err.Number = 0 Then If ctl.Name <> "ИмяРедактируемогоПоля" Then ctl.Locked = True Err.Clear Next ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 16:10
|
|||
|---|---|---|---|
Me.Form.AllowEdits = False |
|||
|
#18+
To Serge Gavrilov Спасибо за идею. Вот так работает как надо! Dim ctl As Control For Each ctl In Me.Controls ' Если элемент - поле If ctl.ControlType = acTextBox Then If ctl.Name <> "ИмяПоля" Then ctl.Locked = True End If Next ctl ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 16:18
|
|||
|---|---|---|---|
|
|||
Me.Form.AllowEdits = False |
|||
|
#18+
Еще надо где-то ctl.Locked = False. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 16:26
|
|||
|---|---|---|---|
|
|||
Me.Form.AllowEdits = False |
|||
|
#18+
>Вот так работает как надо! Ну, если у вас только текстбоксы ... Но ведь могут быть и комбобоксы, и чекбоксы, и т.п. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 16:27
|
|||
|---|---|---|---|
Me.Form.AllowEdits = False |
|||
|
#18+
Наверное так: If ctl.Name <> "ИмяПоля" Then ctl.Locked = True Else ctl.Locked = False End If ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 16:31
|
|||
|---|---|---|---|
Me.Form.AllowEdits = False |
|||
|
#18+
Только текстбоксы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.01.2004, 16:33
|
|||
|---|---|---|---|
|
|||
Me.Form.AllowEdits = False |
|||
|
#18+
Можно и так ctl.Locked= Not (ctl.Name="ИмяПоля") ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&tablet=1&tid=1677325]: |
0ms |
get settings: |
5ms |
get forum list: |
10ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
178ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
30ms |
get tp. blocked users: |
1ms |
| others: | 204ms |
| total: | 444ms |
| 0 / 0 |
