Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как присвоить объету контрол текстовое значение 7 / 2 сообщений из 2, страница 1 из 1
07.10.2004, 10:14:33
    #32727331
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как присвоить объету контрол текстовое значение 7
Вот кусок кода
в таблице 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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2004, 10:47:58
    #32727413
Пробегал...
Пробегал...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как присвоить объету контрол текстовое значение 7
Set frm = Screen.ActiveForm
s = frm.name
MsgBox frm.controls(!NameField)
frm.controls(!NameField).BorderColor = BC
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как присвоить объету контрол текстовое значение 7 / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 318ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1671272]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 47ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 198ms
total:  318ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]