ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Че то я не понял( про юзер-дефайнед-тайпс в VBA )
13 сообщений из 13, страница 1 из 1
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32607947
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
Всем привет.

MDB AccessXP(формат базы A2000)

Возникла необходимость в user-defined types. Написал парочку. А передавать их между станд.модулями и модулями формы не получаеться.. :(

... почитал тут форум и так и не понял, что обязательно для этого делать классы? Без них никак? Бред какой-то...

Или мож я что неправильно делаю?

в станд. модуле unit1...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Type MyType
   field1 As Byte
   ...
End Type

Public Function func1( theVar As MyType ) As Byte
' смотрю че же к нам пришло в theVar
' !! Ахтунг!  А там ничего незаполнено! Все по нулям.
End Function

в модуле формы
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim myVar As Mytype
'.... заполняю myVar
'
myVar.field1 =  11 

'вызываю ф-ю ст.модуля
' ! myVar заполнена как надо
v = unit1.funct1( myVar )

Что не так?
...
Рейтинг: 0 / 0
16.07.2004, 13:03:28
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32607983
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
>' смотрю че же к нам пришло в theVar
Напиши, как ты вызываешь свою функцию.
...
Рейтинг: 0 / 0
16.07.2004, 13:14:33
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32607993
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
Shark, я же написал - вызываю в модуле ФОРМЫ. См выше.
...
Рейтинг: 0 / 0
16.07.2004, 13:17:15
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608004
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
хз, вроде ты все правильно делаешь. Только названия модуля я никогда не писал, может, это оно мешается:-)
...
Рейтинг: 0 / 0
16.07.2004, 13:21:16
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608007
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
А option explicit ты пишешь в начале модулей? Может у тебя ашипка в имени переменной?
...
Рейтинг: 0 / 0
16.07.2004, 13:22:22
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608033
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
Да пишу

Option Explicit везде, типа так быстрее работает)
...
Рейтинг: 0 / 0
16.07.2004, 13:28:22
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608190
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
Такое молчание ... аж складывается ощущение, что никто не работает со своими типами в VBA ... ??!!
...
Рейтинг: 0 / 0
16.07.2004, 14:14:51
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608217
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
Из всекобщего молчания я делаю вывод, что
ЭТО ГЛЮК АЦЕССА!!
...
Рейтинг: 0 / 0
16.07.2004, 14:21:36
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608239
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Рачаев ОлегPublic Function func1( theVar As MyType ) As Byte
v = unit1.funct1( myVar )
Почему один раз написано func1, а другой funct1? Если бы так было в программе, то она бы просто не зашла в функцию. Если заходит - значит нам подлинную программу не показывают. И как нам гадать?
...
Рейтинг: 0 / 0
16.07.2004, 14:27:34
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608275
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
Саныч, эта очепятка) которая сути вопроса все равно не меняет ... в программе написано именно так как я описал
...
Рейтинг: 0 / 0
16.07.2004, 14:38:33
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608281
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Рачаев ОлегСаныч, эта очепятка) которая сути вопроса все равно не меняет ... в программе написано именно так как я описал
Вот я к этому и клоню. Сильно подозреваю, что там есть еще очепятки, из-за которых мы тут в форуме не видим и не увидим никогда, почему программа не работает.
...
Рейтинг: 0 / 0
16.07.2004, 14:42:05
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608398
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
Каюсь)) Саныч ... дебаг-точку не в том месте поставил ..ю невнимательность ... снимаю свои обвинения с ацеса )))
...
Рейтинг: 0 / 0
16.07.2004, 15:16:15
| Ответить | Цитировать | Написать  
Че то я не понял( про юзер-дефайнед-тайпс в VBA )
    #32608412
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
:^) Ура. Сейчас то же самое будет в соседнем топике.
/topic/88262#813441
Я там человеку 4-й раз один и тот же вопрос задаю.
...
Рейтинг: 0 / 0
16.07.2004, 15:18:38
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Че то я не понял( про юзер-дефайнед-тайпс в VBA )
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1673149]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 28ms
get topic data:
 6ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 205ms
total:  291ms
созд. / загр.: 291ms
x
x
Закрыть


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