|
|
|
Как присвоить объету контрол текстовое значение 7
|
|||
|---|---|---|---|
|
#18+
Вот кусок кода в таблице CTLS список полей к свойствам которых нужно добраться Dim ctl As Control Dim frm As Form Set dbs = CurrentDb() Set rst = dbs.OpenRecordset("CTLS") Do Until rst.EOF With rst Set frm = Screen.ActiveForm s = frm.name MsgBox s & "!" & !NameField Set ctl = s & "!" & !NameField ctl.BorderColor = BC .MoveNext End With Loop rst.Close Set dbs = Nothing ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.10.2004, 10:14:33 |
|
||
|
|
start [/forum/topic.php?fid=45&fpage=1546&tid=1671272]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
25ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
30ms |
get tp. blocked users: |
1ms |
| others: | 210ms |
| total: | 302ms |
| 0 / 0 |
