ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Form Description
16 сообщений из 16, страница 1 из 1
Form Description
    #32045959
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Кто подскажет, как программно прочитать описание формы (выводимое в окне БД)?
...
Рейтинг: 0 / 0
26.08.2002, 18:47
| Ответить | Цитировать | Написать  
Form Description
    #32046110
ДиД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДиД
Гость
currentproject.AllForms("ИмяФормы").Properties("Description")
...
Рейтинг: 0 / 0
27.08.2002, 11:57
| Ответить | Цитировать | Написать  
Form Description
    #32046691
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Сорри за "опоздание"...
Вообще-то это именно то, что я пытался использовать.
(Точнее, я обращался к формам в цикле по индексу)
Но получил Run-Time Error 2455.
...
Рейтинг: 0 / 0
29.08.2002, 09:15
| Ответить | Цитировать | Написать  
Form Description
    #32046698
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Сейчас попробовал вот что:
Код: 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, 09:33
| Ответить | Цитировать | Написать  
Form Description
    #32046725
ДиД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДиД
Гость
currentproject.AllForms.Count - вернет количество форм
сurrentdata.AllTables.Count - вернет количество таблиц
...
Рейтинг: 0 / 0
29.08.2002, 10:34
| Ответить | Цитировать | Написать  
Form Description
    #32046781
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Но я-то говорил о 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, 12:41
| Ответить | Цитировать | Написать  
Form Description
    #32046805
ДиД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДиД
Гость
Set frm = Application.CurrentProject.AllForms(0) вы получили ссылку на одну форму, индекс которой 0. Зачем Вам еще
frm.Properties.Count? Что Вы хотите добиться от второго выражения?
...
Рейтинг: 0 / 0
29.08.2002, 13:13
| Ответить | Цитировать | Написать  
Form Description
    #32046812
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Хоть какой-нибудь Проперти, естественно! Но если их количество равно нулю, о каких их наименованиях вообще может идти речь??? При попытке получить description вылезает ошибка, а при попытке пролистать в цикле все свойства ничего вообще не происходит, т.к. их количество оказывается нулевым. Любое обращение к свойству Properties вызывает ошибку. Так может, их и нет?
...
Рейтинг: 0 / 0
29.08.2002, 13:24
| Ответить | Цитировать | Написать  
Form Description
    #32046822
Вакшуль Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вакшуль Сергей
Участник
Debug.Print CurrentDb.Containers("Forms").Documents("Поставщики").Properties("Description").Value
...
Рейтинг: 0 / 0
29.08.2002, 13:41
| Ответить | Цитировать | Написать  
Form Description
    #32046826
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
А ведь когда-то я это знал :-( А сейчас зачем-то стал пробовать через открытие в конструкторе, и ессно, тоже получил облом.
...
Рейтинг: 0 / 0
29.08.2002, 13:48
| Ответить | Цитировать | Написать  
Form Description
    #32046834
Вакшуль Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вакшуль Сергей
Участник
currentproject.AllForms("ИмяФормы").Properties("Description")
вещь классная, но для пользовательских свойств.
...
Рейтинг: 0 / 0
29.08.2002, 14:05
| Ответить | Цитировать | Написать  
Form Description
    #32046835
sFx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sFx
Участник
а в DAO? :)))
...
Рейтинг: 0 / 0
29.08.2002, 14:06
| Ответить | Цитировать | Написать  
Form Description
    #32046853
Вакшуль Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вакшуль Сергей
Участник
что в DAO?
я хотел сказать, что удобно создавать пользовательские свойства форм, используя такой путь:

CurrentProject.AllForms("Поставщики").Properties.Add "ДопСв1", "текст"
Debug.Print CurrentProject.AllForms("Поставщики").Properties("ДопСв1").Value
...
Рейтинг: 0 / 0
29.08.2002, 14:27
| Ответить | Цитировать | Написать  
Form Description
    #32046937
sFx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sFx
Участник
Как в DAO добраться до совойства формы?
...
Рейтинг: 0 / 0
29.08.2002, 17:43
| Ответить | Цитировать | Написать  
Form Description
    #32046948
Вакшуль Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вакшуль Сергей
Участник
Я не пойму в чем собственно вопрос?
Свойства объекта 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
29.08.2002, 18:22
| Ответить | Цитировать | Написать  
Form Description
    #32047026
sFx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sFx
Участник
Да, спасибо
...
Рейтинг: 0 / 0
30.08.2002, 09:36
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Form Description
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=%D0%91%D0%BB%D0%BE%D0%BD%D0%B4%D0%B8%D0%BD%D0%BA%D0%B0+%D0%B2+%D1%88%D0%BE%D0%BA%D0%BE%D0%BB%D0%B0%D0%B4%D0%B5&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 13ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 448ms
total:  596ms
созд. / загр.: 596ms
x
x
Закрыть


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