|
Me.Form.AllowEdits = False
|
||
|---|---|---|
Модератор форума
Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщения: 40 863 |
||
| 07.01.2004, 16:18 |
|
|
|
|
|
Me.Form.AllowEdits = False
|
|||
|---|---|---|---|
|
#18+
После выполнения этого кода изменять все поля в форме становится нельзя. А можно ли после этого разрешить изменять какое-либо одно поле? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.01.2004, 14:03 |
|
||
|
Me.Form.AllowEdits = False
|
|||
|---|---|---|---|
|
#18+
Нет. Вам надо пройти по полям и установить Locked = True для всех, кроме нужного. А почему Me.Form.AllowEdits = False, а не Me.AllowEdits = False? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.01.2004, 14:12 |
|
||
|
Me.Form.AllowEdits = False
|
|||
|---|---|---|---|
|
#18+
To Serge Gavrilov Я так все поля перебираю и блокирую, оставляя только необходимые. Просто полей много. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.01.2004, 14:40 |
|
||
|
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, 15:03 |
|
||
|
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:10 |
|
||
|
Me.Form.AllowEdits = False
|
|||
|---|---|---|---|
Модератор форума
|
|||
|
#18+
Еще надо где-то ctl.Locked = False. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.01.2004, 16:18 |
|
||
|
Me.Form.AllowEdits = False
|
|||
|---|---|---|---|
|
#18+
>Вот так работает как надо! Ну, если у вас только текстбоксы ... Но ведь могут быть и комбобоксы, и чекбоксы, и т.п. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.01.2004, 16:26 |
|
||
|
Me.Form.AllowEdits = False
|
|||
|---|---|---|---|
|
#18+
Наверное так: If ctl.Name <> "ИмяПоля" Then ctl.Locked = True Else ctl.Locked = False End If ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.01.2004, 16:27 |
|
||
|
Me.Form.AllowEdits = False
|
|||
|---|---|---|---|
|
#18+
Только текстбоксы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.01.2004, 16:31 |
|
||
|
Me.Form.AllowEdits = False
|
|||
|---|---|---|---|
|
#18+
Можно и так ctl.Locked= Not (ctl.Name="ИмяПоля") ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.01.2004, 16:33 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32369993&tid=1677325]: |
0ms |
get settings: |
8ms |
get forum list: |
15ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
183ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
34ms |
get tp. blocked users: |
1ms |
| others: | 215ms |
| total: | 470ms |
| 0 / 0 |
