|
|
|
Изменить свойства полей одним махом???
|
|||
|---|---|---|---|
|
#18+
В форме есть несколько полей «П1», «П2», «П3», «П4» Где-то даже видел, что можно как-то использовать FOR EACH control Требуется при открытии формы чтобы поля, которые не NULL, изменяли свои свойства. Типа if isnull(me![П1])=false then me![П1].visible=false, me![П1].enabled И так для каждого поля. Можно конечно прописать для каждого поля, но у меня их 18, согласитесь не удобно… Надеюсь меня поняли Жизнь не перестает меня удивлять!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2004, 20:37:56 |
|
||
|
Изменить свойства полей одним махом???
|
|||
|---|---|---|---|
Модератор форума
|
|||
|
#18+
Вариант 1. dim c as control for each c in me.controls if typeof c is textbox then Вариант 2. dim c as control for each c in me.controls select case c.name case "П1", "П2", "П3", "П4" Вариант 3. dim c as control, v as variant for each v in array("П1", "П2", "П3", "П4") set c=me(v) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2004, 20:51:12 |
|
||
|
Изменить свойства полей одним махом???
|
|||
|---|---|---|---|
|
#18+
Ukraina FOR EACH control сопсно ты сам уже все и написал dim Bla-Bla-Bla as object for each Bla-Bla-Bla in me.controls if (criteria = SMTNG <Bla-Bla-Bla.Name as Variant>)then do SMTHNG end if next ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2004, 20:56:49 |
|
||
|
Изменить свойства полей одним махом???
|
|||
|---|---|---|---|
|
#18+
As Control of course, sorry if left(bla-bla-bla.name,1) = "П" and isnull (bla-bla-bla) then ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2004, 21:04:30 |
|
||
|
|
start [/forum/topic.php?fid=45&fpage=1557&tid=1671695]: |
0ms |
get settings: |
6ms |
get forum list: |
18ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
43ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
31ms |
get tp. blocked users: |
1ms |
| others: | 224ms |
| total: | 338ms |
| 0 / 0 |
