Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Form Description / 16 сообщений из 16, страница 1 из 1
26.08.2002, 18:47
    #32045959
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Кто подскажет, как программно прочитать описание формы (выводимое в окне БД)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2002, 11:57
    #32046110
ДиД
ДиД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
currentproject.AllForms("ИмяФормы").Properties("Description")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 09:15
    #32046691
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Сорри за "опоздание"...
Вообще-то это именно то, что я пытался использовать.
(Точнее, я обращался к формам в цикле по индексу)
Но получил Run-Time Error 2455.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 09:33
    #32046698
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Сейчас попробовал вот что:
Код: plaintext
1.
Dim frm As AccessObject, i As Long
Set frm = Application.CurrentProject.AllForms( 0 )

frm.Properties.Count показывает 0!!!
А точно это свойство есть у All...s?
Может быть, только у TableDefs & QueryDefs?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 10:34
    #32046725
ДиД
ДиД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
currentproject.AllForms.Count - вернет количество форм
сurrentdata.AllTables.Count - вернет количество таблиц
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 12:41
    #32046781
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Но я-то говорил о Properties.Count!
Еще раз повторю:

Код: plaintext
1.
2.
Dim frm As AccessObject, i As Long
Set frm = Application.CurrentProject.AllForms( 0 )
Debug.Print frm.Properties.Count

печатает 0!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 13:13
    #32046805
ДиД
ДиД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Set frm = Application.CurrentProject.AllForms(0) вы получили ссылку на одну форму, индекс которой 0. Зачем Вам еще
frm.Properties.Count? Что Вы хотите добиться от второго выражения?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 13:24
    #32046812
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Хоть какой-нибудь Проперти, естественно! Но если их количество равно нулю, о каких их наименованиях вообще может идти речь??? При попытке получить description вылезает ошибка, а при попытке пролистать в цикле все свойства ничего вообще не происходит, т.к. их количество оказывается нулевым. Любое обращение к свойству Properties вызывает ошибку. Так может, их и нет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 13:41
    #32046822
Вакшуль Сергей
Вакшуль Сергей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Debug.Print CurrentDb.Containers("Forms").Documents("Поставщики").Properties("Description").Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 13:48
    #32046826
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
А ведь когда-то я это знал :-( А сейчас зачем-то стал пробовать через открытие в конструкторе, и ессно, тоже получил облом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 14:05
    #32046834
Вакшуль Сергей
Вакшуль Сергей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
currentproject.AllForms("ИмяФормы").Properties("Description")
вещь классная, но для пользовательских свойств.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 14:06
    #32046835
sFx
sFx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
а в DAO? :)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 14:27
    #32046853
Вакшуль Сергей
Вакшуль Сергей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
что в DAO?
я хотел сказать, что удобно создавать пользовательские свойства форм, используя такой путь:

CurrentProject.AllForms("Поставщики").Properties.Add "ДопСв1", "текст"
Debug.Print CurrentProject.AllForms("Поставщики").Properties("ДопСв1").Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 17:43
    #32046937
sFx
sFx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Как в DAO добраться до совойства формы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 18:22
    #32046948
Вакшуль Сергей
Вакшуль Сергей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Я не пойму в чем собственно вопрос?
Свойства объекта Document в DAO:

CurrentDb.Containers("Forms").Documents("Поставщики").Properties("Description").Value

и свойства обьекта AccessObject в Access:

CurrentProject.AllForms("Поставщики").Properties("ДопСв1").Value

это разные вещи.

Код создания св-ва объекта Document в DAO:

Dim db As Database
Dim p As DAO.Property
Set db = CurrentDb
Set p = CurrentDb.CreateProperty("DAO_ДопСв", dbText, "wwww")
CurrentDb.Containers("Forms").Documents("Поставщики").Properties.Append p


Код создания св-ва объекта AccessObject я уже приводил:
CurrentProject.AllForms("Поставщики").Properties.Add "ДопСв1", "текст"

Это вы хотели услышать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2002, 09:36
    #32047026
sFx
sFx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form Description
Да, спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Form Description / 16 сообщений из 16, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 410ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1683363]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 28ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 286ms
total:  410ms
x
x
Закрыть


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