Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / утановка значения поля на форме / 10 сообщений из 10, страница 1 из 1
11.04.2004, 22:56
    #32476908
VBLameR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
в кратце примено так
' функция вынесена в отдельный модуль
public Sub MySet(varMe as Form,str as string)
' в varMe передаем ссылку на форму
' в str находиться имя поля на форме
' мне нужно запихнуть значение в это поле
???
???
End Sub

Все выше перечисленное нужно для работы в аccess
Если я чего-то сморозил, просьба поправить.
...
Рейтинг: 0 / 0
11.04.2004, 23:00
    #32476911
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
Сморожено только одно - в функцию не передано само значение.

public Sub MySet(varMe as Form,str as string,v as variant)
varMe(str)=v
end sub
...
Рейтинг: 0 / 0
11.04.2004, 23:21
    #32476918
VBLameR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
Про значение не написал по той причине, что его я вычисляю в этой функции.
>varMe(str)=v
данный вариант не прокатил т.к. туда необходимо передавать ссылку на сам объект (Object)
Т.е. меня как раз и интересует, как по имени переменной получить ссылку на объект?
Что-то типа того.
...
Рейтинг: 0 / 0
11.04.2004, 23:25
    #32476919
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
Если первый параметр описан как
varMe as Form
то в него и надо передавать форму как объект.

Если его описать как
varMe as String
то в него можно будет передавать имя формы, и тогда надо будет писать так:
Forms(varMe)(str)=v
...
Рейтинг: 0 / 0
12.04.2004, 00:06
    #32476920
Alexander Say
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
Все проще чем кажеться:
varMe.controls(str)=значение
...
Рейтинг: 0 / 0
12.04.2004, 00:09
    #32476922
VBLameR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
все равно вылетает с ошибкой
Run-time error 2448
Невозможно присвоить значение объету
Вообще хотелось получить универсальную функцию, который в качестве параметров передаются Me и имя поля на форме (именно строкой, например 'Поле1'), а внутри самой функции вычисляется значение(всегда целое) и присваивает его, нужному нам полю.
Данная функция используется при открытии формы.

Сделал следующим образом.
вызов происходит следующий образом
Private Sub Form_Open(Cancel As Integer)
MySet Me, "Поле1"
End Sub
public Sub MySet(varMe as Form,str as string)
dim formname as string
dim varint as integer
varint=123'например хотим присвоить значение 123 полю 'Поле1'
formname = varMe.name
'присваиваю специально через переменную,чтоб проверить работу
Forms(formname)(str) = varint
end sub
...
Рейтинг: 0 / 0
12.04.2004, 00:16
    #32476923
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
А зачем так сложно? Если varMe уже содержит ссылку на форму, то зачем брать от него name, а потом опять превращать в ссылку?

Если выдается ошибка, то предлагаю для пробы написать аналогичный код прямо в обработчике события, без этой функции. Если будет такая же ошибка, значит функция ни при чем.
...
Рейтинг: 0 / 0
12.04.2004, 00:20
    #32476924
VBLameR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
To: Alexander Say
Также вылетает вылетает с ошибкой
Run-time error 2448
Невозможно присвоить значение объету
...
Рейтинг: 0 / 0
12.04.2004, 00:42
    #32476931
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
Не на событие Open надо, а на Load
...
Рейтинг: 0 / 0
12.04.2004, 00:45
    #32476933
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
утановка значения поля на форме
Чукча прав, однако.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / утановка значения поля на форме / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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