ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Имеет ли смысл пользоваться макросами?
45 сообщений из 45, показаны все 2 страниц
  все  
Имеет ли смысл пользоваться макросами?
    #32270432
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Лично у меня макрос в понимании акцесса ( "макрокоманда: замкнутая инструкция <...> определяющая выполняемые в макросе действия" ) ассоциируется с некием SendKeys'ом. С вытекающим отсюда ворохом ненужных фрикций со стороны акцесса. И с замедлением работы программы...

С другой стороны, я часто пользуюсь командой DoCmd:
"Методы, определенные для объекта DoCmd (команда), позволяют запускать макрокоманды Microsoft Access из программ Visual Basic. С помощью макрокоманд выполняют такие действия как закрытие окон, открытие форм и задание значений элементов управления. Например, метод OpenForm объекта DoCmd позволяет открыть форму, а метод Hourglass изменить вид указателя на значок Windows «Занято» (песочные часы)."

Вопрос: стоит ли овчинка выделки. М.б. имеет смысл используемые команды потихоньку заменять своими аналогами или АПИшными вызовами?

Поделитесь, пожалуйста, соображениями.

-----------
ЗЫ. Какой-то из антивирус Касперского называет код на VBA "макросами" :)

ЗЫЫ. С пятницей всех.
...
Рейтинг: 0 / 0
19.09.2003, 15:21
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270452
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
> ЗЫ. Какой-то из антивирус Касперского называет код на VBA "макросами" :)

Ага, а в ворде - экселе кроме вба ничего и нет
тока код вба и называют макросами ;)))
может, в А. наоборот ошиблись? ;)))
у них макросы макросами называются с пеленок - с младших версий...
...
Рейтинг: 0 / 0
19.09.2003, 15:36
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270510
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
Если под "макросами" понимать то, что создается во вкладке "макросы" MS Access, то этим, наверное, пользоваться для серьезных целей не надо. Это совсем уж для тех, кто кода VBA как огня боится. А вот Docmd и т.п., по моему, в коде никому не мешают...
...
Рейтинг: 0 / 0
19.09.2003, 16:02
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270518
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
Полностью поддерживаю Ящериц-Варан (с) Лох
...
Рейтинг: 0 / 0
19.09.2003, 16:04
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270536
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assa
Участник
Если я правильно помню, то в макросе можно (кроме таких непременных вещей, как меню 2-го акса и прочая) смоделировать работу оператора. При этом все события форм будут отрабатывать (если в результате работы макроса произойдут соответсвующие изменения в формах) - в отличие например от VBA, который меняет данные в форме, не вызывая "сопутствующих" действий(событий). Это иногда может быть удобно. (Например вы плохо врубились в логику/да и саму предметную область/, но оператор объяснил, что он делает - тогда срочненько пишете макрос, повторяя действия оператора. Ну а там, со временем, разберетесь, "что к чему")

Опять же если надо прогнать набор запросов на изменение данных - не обязательно писать эту баланду в код.

А в ёкселе были макросы формата ёксель-4! Как счас помню. Еще реализовывал на них "сумму происью" в черт-те каком году.
...
Рейтинг: 0 / 0
19.09.2003, 16:12
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270550
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
DoCmd - это ведь еще и аналог команд меню. Очень мне тоскливо было по началу метода Copy. Периодически возникает желание вместо DoCmd.Close использовать Unload Me. А потом как в анекдоте
- До 35 лет Вы будете страдать от безденежья.
- А потом?
- А потом привыкнете.

А насчет замены своими функциями, не уверен, что будут пахать быстрее и надежнее.
...
Рейтинг: 0 / 0
19.09.2003, 16:25
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270562
Анатолий (Киев)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий (Киев)
Гость
Если говорить о макросах, как об объектах БД, содержащих одну или несколько макрокоманд, то их применение логично (ИМХО) в случаях:
1. "Autoexec" - хоть и можно заменить стартовой формой, но в некоторых
случаях - удобнее;
2. "AutoKeys" - полноценной альтернативы в VBA нет;
3. При настойке импорта/экспорта удобнее сначала создать макрос (например, можно выбрать спецификацию из списка), а затем преобразовать в процедуру.

Что касается DoCmd, то:
Некоторым макрокомандам нет (или я не знаю) альтернативы. Например, как еще можно открыть форму/отчет в режиме конструктора?
Некоторые команды слишком куцые, и их есть смысл заменить процедурами на основе API функций. Например, DoCmd.MoveSize работает с активным окном, или окном, из модуля которого она вызывается. API функция, хоть и посложнее, но может работать с любым окном.
DoCmd.RunSQL аж просится, чтоб ее заменили на CurrentDB.Exequte. Проблемы со ссылками на элементы форм, возникающие при этом, тоже решаемы.
Ну а сочинять замену для "Hourglass" или "Beep", это уже "архитектурные излишества", хотя если есть время и желание...
...
Рейтинг: 0 / 0
19.09.2003, 16:30
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270573
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Кстати, а при чем тут Beep?
Она ж сама по себе есть.
...
Рейтинг: 0 / 0
19.09.2003, 16:32
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270644
Анатолий (Киев)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий (Киев)
Гость
Например API "MessageBeep" может при удалении записи исполнить известное соло на водобачковом инструменте, а "PlaySound" - исполнить "Полонез Огинского" из указанного файла.
...
Рейтинг: 0 / 0
19.09.2003, 17:02
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270660
Nektov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nektov
Участник
А саму менюшку вы как делаете? Я лично делаю ее при помощи макросов. Да и макрос Autoxec очень полезная Штучка. На мой взгляд макросы упрощяют жизнь программиста, но при этом усложняют жизнь процессору.
...
Рейтинг: 0 / 0
19.09.2003, 17:08
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270671
Анатолий (Киев)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий (Киев)
Гость
Начиная с А97 для операций с менюшками и панелями инструментов рекомендуется использовать объект Application.CommandBars.
А для выполнения команды меню - Command "Константа".
...
Рейтинг: 0 / 0
19.09.2003, 17:14
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270687
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Макросы, макросы.... DoCmd это еще фигня (хоть в VBA вставляешь как код и работаешь с ним как с функцией высокого уровня), а вот у меня сестра вчера добила, пристала со своей базой Access, на базе которой им в институте (бывший институ связи, ща называется университет чего там...) читают курс по базам данных.
Так вот им препод парит (и даже методички написаны) про использования в Access МАКРОСОВ - настоящих макросов, которые из пред. версий оставили для удобства пользователей, боявшихся VBA. Вот это я вам скажу полный капец. Вся база работает на макросах, которые открывают формы, фильтруют, проверяют - полчаса с ней искали ошибку в одном из макросов, который не работал из-за переименования поля в таблице... в результате нашли кучу ошибок, макрос себе работает в тихую и молчком: должен выделить объект в соотв. форме, имя формы забыли написать - макрос даже и не пикнул а спокойно передал фокус той форме, которая была, т.к. нужная форма обычно и оставалась всегда открытой, то к ней фокус и возращался, так бы этот макрос и работал дальше с ошибками.... вообщем полный капец, ни остановку не сделать, ни переменные толком не проверить, че-то там намутит и готово, взятки гладки - я конечно чуть не офонорел, когда узнал что в институте по Access'у вместо DAO или ADO, препод их макросами грузит, вот это кадр...

P.S. кстати на счет касперского. Хотел запустить мастер создания формы, так Касперский его сразу глушит, закрывает в момент, я сначала даже не понял: нажал на кнопку, а ничего нет, еще раз нажал, опять ничего нет, смотрю только в углу иконка касперского красным цветом налилась.... приколист однако, неаа правильно люди говорят, что касперский в виндах, это еще куча непонятных глюков в придачу к глюкам самой винды
...
Рейтинг: 0 / 0
19.09.2003, 17:25
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270748
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
правильно люди говорят, что касперский в виндах, это еще куча непонятных глюков в придачу к глюкам самой винды


хорошо сказано!!!!!!!!!
...
Рейтинг: 0 / 0
19.09.2003, 18:18
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270786
Mar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mar
Гость
Точно помню, что или в хелпе 2000 или ХР асеса вычитал, что макросы были необходимостью в ранних версиях, а теперь типа "плохо" их применять при таких возможностях VBA. Мол, вы программисты или кто... раз лазаете в хелп.
И еще там было сказано, что все что могут макросы можно сделать в модуле: это позволит вам ... и т.п. и т.д.
...
Рейтинг: 0 / 0
19.09.2003, 19:15
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270865
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
все что могут макросы можно сделать в модуле
Это вряд-ли. Я, например, действительно не знаю, как, не используя DoCmd (те же макросы, вид в профиль) открыть форму в конструкторе...
...
Рейтинг: 0 / 0
20.09.2003, 01:31
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270879
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Не надо "не используя DoCmd". Эти "макросы в профиль" отличаются от "макросов в лицо" тем, что позволяют поставить On Error, пройти по коду при помощи F8 и т.д.
...
Рейтинг: 0 / 0
20.09.2003, 03:00
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32270901
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Лично я всегда расценивал DoCmd как БИБЛИОТЕКУ управления Аксесом (и не только) от Аксеса, а не как МАКРОСЫ, поэтому отношусь к ней спокойно...
Да и к макросам я тоже отношусь спокойно, ибо даже не знаю как ими и пользоваться то :)
...
Рейтинг: 0 / 0
20.09.2003, 10:41
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271014
Mar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mar
Гость
>> не используя DoCmd (те же макросы, вид в профиль) открыть форму в конструкторе...

Саныч! Ну просто не заметил навена ...
Код: plaintext
1.
  docmd.OpenForm  "NameForm" , acDesign
...
Рейтинг: 0 / 0
20.09.2003, 23:04
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271026
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Чего я не заметил? Эта команда делает требуемое с использованием DoCmd. Geo спросил, как сделать не используя. Я ответил, что это не нужно. И чего я не заметил?
...
Рейтинг: 0 / 0
21.09.2003, 00:06
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271414
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
>правильно люди говорят, что касперский в виндах, это еще куча непонятных глюков в придачу к глюкам самой винды

А кто скажет как DrWeb? Тоже пакостит или лучше?
...
Рейтинг: 0 / 0
22.09.2003, 11:17
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271804
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
За дрВебом лично я такого не замечал.
...
Рейтинг: 0 / 0
22.09.2003, 14:59
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271824
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
У DrWeb есть примочка Spider, с ней тоже (иногда) глючит Access.
...
Рейтинг: 0 / 0
22.09.2003, 15:11
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271860
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
У меня как друг запустил для хохмы на своем компе одновременно DrWeb со спайдером и полный пакет Касперского - через 30 мин. загрузка процессора достигла 100%(других запущенных прог не было), а еще через полчаса комп намертво завис... :-)
...
Рейтинг: 0 / 0
22.09.2003, 15:28
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271872
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
За самим Web'ом не замечалось, Spider не сильно, SpiderMail - тот чаще выеживается. А уж если в ящике пара мегабайт лежит - по модему совсем скушно становится.
...
Рейтинг: 0 / 0
22.09.2003, 15:35
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271878
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
А кто знает как с помощью VB (или макроса) очистить корзину. У меня на команду Kill() пишет, что папка не найдена. В чем может быть проблемма?
...
Рейтинг: 0 / 0
22.09.2003, 15:39
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271888
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
посмотри в WScript, может там будет готовый метод очистки корзины....
...
Рейтинг: 0 / 0
22.09.2003, 15:47
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271895
Jem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jem
Участник
У меня стоит NetShield глюков не замеченно, но говорят слабоват он.
...
Рейтинг: 0 / 0
22.09.2003, 15:50
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32271941
Анатолий (Киев)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий (Киев)
Гость
Корзину чистит API функция SHEmptyRecycleBin из дибл. "shell32.dll" .
А функцией SHUpdateRecycleBinIcon после этого обновляют значек.
Других способов не знаю.
...
Рейтинг: 0 / 0
22.09.2003, 16:25
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32272224
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
по поводу антивирусов..

пользуюсь нортоном, его работы не ощущаю (типа не то что не работает, а работает и еще как!). в почте ловит при входе.

сам все делает и ни кому не мешает! в отличие от касперского.

советую!
...
Рейтинг: 0 / 0
22.09.2003, 20:59
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32272393
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
>Анатолий (Киев)
>SergeySV
Не усёк, а можно попподробнее (как в Access или/и макросом в *.xls). спасибо
...
Рейтинг: 0 / 0
23.09.2003, 08:31
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32272521
Анатолий (Киев)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий (Киев)
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
Private Declare Function apiSHEmptyRecycleBin Lib  "shell32.dll"  _
    Alias  "SHEmptyRecycleBinA"  (ByVal hWnd As Long, _
    ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function apiSHUpdateRecycleBinIcon Lib  "shell32.dll"  _
    Alias  "SHUpdateRecycleBinIcon"  () As Long

Function EmptyRecycleBin(Optional strRootPathOnly As String, _
    Optional fNoConfirm As Boolean, Optional fNoProgress As Boolean, _
    Optional fNoSound As Boolean) As Boolean
'Работает в Win98 и более свежих!
'Очищается корзина на диске, указанном в strRootPathOnly (допускается
' указание полного пути, включающего диск), или всех корзин на всех
' родных дисках.
'fNoConfirm - выполняется без подтверждения;
'fNoProgress - табло выполнения не отражается;
'fNoSound - звуковой сигнал по завершении не выдается.
'Возвращает True, если все благополучно.
On Error Resume Next
Dim lngFlags As Long, lngRet As Long
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

 If fNoConfirm Then lngFlags = SHERB_NOCONFIRMATION
 If fNoProgress Then lngFlags = lngFlags Or SHERB_NOPROGRESSUI
 If fNoSound Then lngFlags = lngFlags Or SHERB_NOSOUND

    lngRet = apiSHEmptyRecycleBin(Me.hWndOwnerWindow, _
                                        strRootPathOnly, lngFlags)
 If Err <>  0  Then
    Err.Clear
    Exit Function
 End If
 If lngRet =  0  Then
    Call apiSHUpdateRecycleBinIcon
    EmptyRecycleBin = True
 End If
End Function
...
Рейтинг: 0 / 0
23.09.2003, 10:06
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32272871
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
>Анатолий (Киев)
СПАСИБОООО!!!
Ну, круто... А я - то думал обойтись типа:
On Error GoTo Exit
ChDir "C:\Recycled"
Kill ("C:\Recycled\*")
Exit:
Exit Sub
только вот не получалось файлы типа папка, *.exe и т.п. удалять.
...
Рейтинг: 0 / 0
23.09.2003, 13:21
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32273698
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
>Анатолий (Киев)
Спасибо за процедуру, но я "совсем зеленый" и не понимаю, как её правильно вставить.
Если вставляю в Accesse в функцию нажатия кноки - пишет, что должно быть (или не должно?) End Sub (End Functoun). Если в макрос Exel - то выделяет как строку ошибки в самом начале. Что я неправильно делаю? Спасибо.
...
Рейтинг: 0 / 0
24.09.2003, 09:52
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32273895
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Не надо вставлять процедуру в процедуру. Они должны идти подряд, вот и все.
...
Рейтинг: 0 / 0
24.09.2003, 12:19
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274077
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
>ВС
У меня должна очиститься Корзина по нажатию кнопки
Private Sub УдК320_Click()


End Sub
Если я вставляю вышеуказанную процедуру в функцию кнопки - то лажа.

Я помимаю, что что-то необходимо убрать и/или дописать, но ЧТО?
...
Рейтинг: 0 / 0
24.09.2003, 13:41
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274098
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Не надо вставлять процедуру в процедуру . Они должны идти подряд , вот и все.
...
Рейтинг: 0 / 0
24.09.2003, 13:51
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274110
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Щас я минус сотню постов наберу. По системе подсчета Саныча

Пытаюсь отвечать по теме топика
Имеет ли смысл пользоваться макросами?
Человеку, не умеющему программировать - имеет смысл пользоваться только макросами.
И ЗАБЫТЬ ПРО ПРОГРАММНУЮ ОЧИСТКУ КОРЗИНЫ!!!
а то случайно винт форматнет :)
...
Рейтинг: 0 / 0
24.09.2003, 13:56
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274117
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лифчик
Участник
Лох: и затянуть здесь надо -
Ой, макроос, макрооооооос!...

и тогда по любой системе +1000 очков!
...
Рейтинг: 0 / 0
24.09.2003, 14:01
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274125
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Неправильно:

Код: plaintext
1.
2.
3.
4.
5.
6.
Function
...
Sub
...
End Sub
...
End Function

Правильно:

Код: plaintext
1.
2.
3.
4.
5.
6.
Function
...
End Function
...
Sub
...
End Sub
...
Рейтинг: 0 / 0
24.09.2003, 14:06
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274158
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
>2 ВС
Но если делаю так:
Private Sub УдК320_Click()
End Sub
Private Declare Function apiSHEmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, _
ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function apiSHUpdateRecycleBinIcon Lib "shell32.dll" _
Alias "SHUpdateRecycleBinIcon" () As Long

Function EmptyRecycleBin(Optional strRootPathOnly As String, _
Optional fNoConfirm As Boolean, Optional fNoProgress As Boolean, _
Optional fNoSound As Boolean) As Boolean
On Error Resume Next
Dim lngFlags As Long, lngRet As Long
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

If fNoConfirm Then lngFlags = SHERB_NOCONFIRMATION
If fNoProgress Then lngFlags = lngFlags Or SHERB_NOPROGRESSUI
If fNoSound Then lngFlags = lngFlags Or SHERB_NOSOUND

lngRet = apiSHEmptyRecycleBin(Me.hWndOwnerWindow, _
strRootPathOnly, lngFlags)
If Err <> 0 Then
Err.Clear
Exit Function
End If
If lngRet = 0 Then
Call apiSHUpdateRecycleBinIcon
EmptyRecycleBin = True
End If
End Function
ТО в ответ получаю при переходе формы из конструктора в режим формы:
1. запрос значений полей списка(кот.сами обновляются)
2. вот это:
Выражение Открытие, введенное в поле свойства события, вызывает ошибку:
Only comments may appear after End Sub, End Function, or End Property

Если я убираю процедуру на открытие формы (хотя там у меня скрытие кнопок и полей), всё равно происходит тоже самое, но после нажатия кнопки на удаление...
...
Рейтинг: 0 / 0
24.09.2003, 14:20
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274169
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Private Sub УдК320_Click()
End Sub

- это ваще лишнее.

Private Declare Function apiSHEmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, _
ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function apiSHUpdateRecycleBinIcon Lib "shell32.dll" _
Alias "SHUpdateRecycleBinIcon" () As Long

- а это надо перенести в начало модуля.
...
Рейтинг: 0 / 0
24.09.2003, 14:23
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274175
Анатолий (Киев)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий (Киев)
Гость
Private Declare ... - нужно вставить в заголовок модуля формы;
Function EmptyRecycleBin ... End Function - в любом месте модуля (лишь бы не внутри другой процедуры;
Выражение внутри функции "Me.hWndOwnerWindow" нужно заменить на "Me.hWnd";
В своей процедуре делаешь:
Private Sub УдК320_Click()
EmptyRecycleBin
или
Call EmptyRecycleBin
или
If EmptyRecycleBin Then
MsgBox "Корзина очищена"
End If
End Sub
...
Рейтинг: 0 / 0
24.09.2003, 14:24
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274216
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
КЛааааааССССС!!!_____________________________________________ВС и Анатолий (Киев)
разобрался, понял, что куда не лепил
. Спасибо вам Большущее....
...
Рейтинг: 0 / 0
24.09.2003, 14:43
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32274364
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Проблеммммма!!
Хоть в функции прописано не запрашивать об удалении из корзины, всё равно постоянновыпрыгивает окно с подтверждением об удалении... Как этого избежать ?
...
Рейтинг: 0 / 0
24.09.2003, 15:47
| Ответить | Цитировать | Написать  
Имеет ли смысл пользоваться макросами?
    #32275854
АлексейЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейЕ
Участник
Так, из спортивного интереса.
Очистка корзины с помощью Windows Shell.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
 0  - Открыть
 1  - Проводник
 2  - Очистить корзину
 3  - Создать ярлык
 4  - Свойства


Private Sub fnFolderItemVerbDoItVB()
    Dim objShell
    Dim objFolder2
    Dim ssfPROGRAMS
            
    ssfPROGRAMS = &HA&
    Set objShell = CreateObject( "Shell.Application" )
    Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
    If (Not objFolder2 Is Nothing) Then
        Dim objVerbs As Object
        
        Set objVerbs = objFolder2.Self.Verbs
            If (Not objVerbs Is Nothing) Then
                objVerbs.Item( 2 ).DoIt                 'Здесь указываем что делать
            End If
        Set objVerbs = Nothing
    End If
    Set objFolder2 = Nothing
    Set objShell = Nothing
End Sub


Т.е. мы программно нажимаем на иконку корзины правой клавишей мыши и выбираем "Очистить корзину".
При этом она спросит - "А ты хорошо подумал?"
...
Рейтинг: 0 / 0
25.09.2003, 17:08
| Ответить | Цитировать | Написать  
45 сообщений из 45, показаны все 2 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Имеет ли смысл пользоваться макросами?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1679234]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 80ms
get tp. blocked users:
 1ms
others: 241ms
total:  407ms
созд. / загр.: 407ms
x
x
Закрыть


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