РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Асмик Гаряка Статус: Советник Рейтинг: 198 ∙ повысить рейтинг »

mklokov Статус: 3-й класс Рейтинг: 99 ∙ повысить рейтинг »

Megaloman Статус: Академик Рейтинг: 26 ∙ повысить рейтинг »

∙ Basic

Номер выпуска:	1114
Дата выхода:	11.02.2017, 19:15
Администратор рассылки:	Андреенков Владимир (Профессор)
Подписчиков / экспертов:	13 / 11
Вопросов / ответов:	3 / 6

Консультация # 133748:

Здравствуйте!
Подскажите как в access из VBA открыть отчет/форму/запрос поверх других окон?
Есть форма развернутая на весь экран, по нажатию на ней кнопки открываю отчет: "DoCmd.OpenReport DocName, acPreview", но он оказывается за формой (а не повех) и его не видно...
Та-же проблема с запросом, открываю так-же: "DoCmd.OpenQuery DocName, acNormal, acEdit", но оно оказывается за формой, а не перед ней.

Дата отправки: 23.04.2008, 11:36
Вопрос задал: Upgrader
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, Upgrader!
Поэкспериментируйте со свойствами окна Вашей формы.
"Всплывающее окно"
"Модальное окно"
совет не предлагаю, т.к. в разных версиях MS Access, они ведут себя по разному.
Евгений.

Консультировал: Тесленко Евгений Алексеевич Дата отправки: 24.04.2008, 21:42

Рейтинг ответа: 0 поблагодарить эксперта

Консультация # 70729:

Здраствуйте, эксперты.

Я учусь программировать на VB6. Но все написанные мною программки не работают на других ПК, я слышал, что VB6 может создавать установочные файлы, в которых и будут содержаться все необходимые библиотеки. Вопрос таков - как это сделать?

Дата отправки: 13.01.2007, 10:43
Вопрос задал: Alxx
Всего ответов: 3
Страница онлайн-консультации »

Консультирует VLK:

Здравствуйте, Alxx!

При установке VB 6.0 как отдельно, так и в составе Microsoft Visual Studio, устанавливается и Package & Deployment Wizard, отвечающий за создание установочного дистрибутива. Найти его просто: "Пуск" - "Программы" - "Microsoft Visual Basic 6.0 Tools" - "Package & Deployment Wizard" (это для отдельной версии). Если установлена Microsoft Visual Studio, искать следует в "Пуск" - "Программы" - "Microsoft Visual Studio". Запускайте его, нажимайте самую верхнюю кнопку и следуйте указаниям мастера. Добавлю также, что установочный дистрибутив можно создать и с помощью многих других сторонних программ: Inno Setup, Create Install и пр.

Консультировал: VLK Дата отправки: 13.01.2007, 14:06

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Залетин Виталий Викторович (мь:

Здравствуйте, Alxx!
Package And Deployment Wizard - это та программка из стандартной поставки VB, которая делает инсталляционные пакеты. Она находится в Пуск-Программы-Microsoft Visual Basic-Tools-Package And Deployment Wizard (по крайней мере, у меня так).
Теперь о грустном: размер инсталляционного пакета, созданного им, легко может превысить 2 МБ. Так что, я ним практически не пользуюсь.

Лучший способ заставить работать программу на ином компьютере - скопировать на него все нужные программе файлы. Обычно это ограничивается файлом MSVBVM60.DLL и файликами, которые вы явно подключали к проекту через Project-References. Хотя проблема с MSVBVM60.DLL (по моим наблюдениям) снята начиная с Windows Me - там он поставляется в составе операционной системы. А вот остальные файлы прийдется копировать и регистрировать самостоятельно. Идеально для этого подходят пакеты сторонних поизводителей (Inno Setup и т. д.).

Есть в сети и написанный на бейсике инсталлятор:
http://www.sources.ru/vb/project_installer.zip
Очень познавательная вещица.

Консультировал: Залетин Виталий Викторович (мь Дата отправки: 13.01.2007, 14:30

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Филатов Евгений Геннадьевич:

Здравствуйте, Alxx!
Я тоже пользуюсь Package & Deployment Wizard, но только для того, чтобы узнать список необходимых DLL и OCX для работоспособности программы. Дело в том, что созданный с помощью этой программы инсталляционный пакет работоспособен только на компьютерах с такой же операционной системой. Т.е. для создания инсталляционных пакетов на различные версии Windows их необходимо создавать в той же версии.
Я поступаю по-другому.
На том же VB6 пишу маленькую прогу, которая копирует необходимые файлы в системный каталог (Windows\system для Win98, WINNT\System32 для WinXP и Win2000) и регистрирует в системе.
Все это организовано как архив. Запускается BAT файл, который распаковывает файлы, в т.ч. и EXE и запускает программу регистрации.
Если необходима работа с базами данных, то для работы через DAO устанавливается из пакета OFFICE97 "доступ к данным", а если через ADO, то из пакета OFFICE2000 устанавливается "EXCEL\источники данных ODBC".
В некоторых инсталляционных пакетах устанавливал и доступ к данным. Программа работает с базами данных даже без установленных пакетов OFFICE, в т.ч. ACCESS.
Помимо регистрации DLL и OCX возможно также создание рабочего каталога программы, копирование в него необходимых справочников, баз данных, отчетов и т.п.
Пользователи моих программ успешно устанавливали сами все необходимые библиотеки по инструкции в электронном письме.
В приложении список файлов для инсталляции (архивы) и отдельно список устанавливаемых программой компонентов и файлов.
С уважением.

Приложение:
Установочные файлы: Содержимое папки O:\OSN_ARJ20.07.93 14:48 115808 ARJ.EXE25.10.02 13:31 1399338 OSN4.A0125.10.02 13:31 1399427 OSN4.A0225.10.02 13:31 1399365 OSN4.A0325.10.02 13:31 1399293 OSN4.A0425.10.02 13:31 1399373 OSN4.A0525.10.02 13:32 1399388 OSN4.A0625.10.02 13:32 702764 OSN4.A0725.10.02 13:31 1399382 OSN4.ARJ25.10.02 13:49 119 SETUP.BATСодержимое файла SETUP.BATarj x -v -y osn4.arjc:\windows\system\regsvr32 /s dao350.dllc:\windows\system\regsvr32 /s msvbvm60.dllsetup.exeПуть в системный каталог "c:\windows\system" для Win98. Для работы с Win2000 или WinXP необходимо поменять на "c:\winnt\system32" или создать каталог "c:\windows\system" и скопировать в него REGSVR32.exeПосле распаковки перед запуском программы: Содер жимое папки O:\OSN_ARJ21.07.07 14:57 <DIR> DLL21.07.07 14:57 <DIR> EXE21.07.07 14:57 <DIR> MDB27.04.98 00:00 570128 DAO350.DLL28.03.03 10:26 102400 LIST.MDB25.09.98 21:09 1409024 MSVBVM60.DLL15.03.01 10:39 24576 SETUP.EXE Содержимое папки O:\OSN_ARJ\DLLФайлы из этой папки копируются в системный каталог и регистрируются в реестре05.05.99 22:22 147728 ASYCFILT.DLL31.05.98 00:00 22288 COMCAT.DLL24.06.98 00:00 609584 COMCTL32.OCX18.06.98 00:00 2496 COMDLG32.DEP18.06.99 12:05 185616 COMDLG32.DLL30.07.01 14:30 35840 COMDLG32.OCA24.06.98 00:00 141571 COMDLG32.OCX13.02.01 07:44 326144 CPCONV32.DLL08.11.98 17:00 320000 CRAXDUI.DLL08.11.98 17:00 229888 CRPAIG32.DLL08.11.98 17 :00 5350912 CRPE32.DLL08.11.98 17:00 60416 CRXLAT32.DLL08.11.98 17:00 993996 CRYSTL32.OCX11.12.98 07:38 73184 DAO2535.TLB27.04.98 00:00 570128 DAO350.DLL24.06.98 00:00 525352 DBGRID32.OCX05.05.99 22:22 379152 EXPSRV.DLL18.11.96 00:00 18944 IMPLODE.DLL04.02.99 13:13 995383 MFC42.DLL24.06.98 00:00 118064 MSADODC.OCX26.06.98 00:00 89600 MSCAL.OCX05.05.99 22:22 1056768 MSJET35.DLL04.02.99 13:13 123664 MSJINT35.DLL04.02.99 13:13 24848 MSJTER35.DLL04.02.99 13:13 252176 MSRD2X35.DLL05.05.99 22:22 430080 MSREPL35.DLL09.08.98 21:07 118784 MSSTDFMT.DLL25.09.98 21:09 1409024 MSVBVM60.DLL29.07.98 21:00 266293 MSVCRT.DLL31.05.98 00:00 326656 MSVCRT40.DL L06.03.01 09:34 155648 OBRAZ.MDB05.05.99 22:22 598288 OLEAUT32.DLL05.05.99 22:22 164112 OLEPRO32.DLL08.11.98 17:00 208127 P2BBDE.DLL08.11.98 17:00 59392 P2BBND.DLL08.11.98 17:00 152576 P2BDAO.DLL08.11.98 17:00 268288 P2BXBSE.DLL08.11.98 17:00 81408 P2CTDAO.DLL08.11.98 17:00 112640 P2IRDAO.DLL08.11.98 17:00 173568 P2SIFMX.DLL08.11.98 17:00 189952 P2SMON.DLL08.11.98 17:00 206848 P2SODBC.DLL08.11.98 17:00 138240 P2SOLEDB.DLL08.11.98 17:00 216064 P2SORA7.DLL08.11.98 17:00 201728 P2SSQL.DLL08.11.98 17:00 160768 P2SSYB10.DLL05.05.99 22:22 17920 STDOLE2.TLB08.11.98 17:00 55808 U252000.DLL08.11.98 17:00 44544 U25DTS.DLL08.11.98 17:00 70144 U2D APP.DLL08.11.98 17:00 58880 U2DDISK.DLL08.11.98 17:00 74240 U2DMAPI.DLL08.11.98 17:00 102912 U2DNOTES.DLL08.11.98 17:00 95232 U2DPOST.DLL08.11.98 17:00 92160 U2DVIM.DLL08.11.98 17:00 64000 U2FCR.DLL08.11.98 17:00 221696 U2FHTML.DLL08.11.98 17:00 93184 U2FODBC.DLL08.11.98 17:00 64000 U2FREC.DLL08.11.98 17:00 113664 U2FRTF.DLL08.11.98 17:00 73728 U2FSEPV.DLL08.11.98 17:00 129024 U2FTEXT.DLL08.11.98 17:00 75264 U2FWKS.DLL08.11.98 17:00 120320 U2FWORDW.DLL08.11.98 17:00 180736 U2FXLS.DLL08.11.98 17:00 56320 U2L2000.DLL08.11.98 17:00 40960 U2LBAR.DLL08.11.98 17:00 24576 U2LCOM.DLL08.11.98 17:00 38400 U2LDTS.DLL08.11.98 17:00 27136 U 2LSAMP1.DLL18.06.98 00:00 89360 VB5DB.DLL18.06.98 00:00 102912 VB6STKIT.DLL05.05.99 22:22 30992 VBAJET32.DLLФайлы из этих папок копируются в каталог программы Содержимое папки O:\OSN_ARJ\EXE12.03.01 19:44 356352 OSN_FOND.EXE Содержимое папки O:\OSN_ARJ\MDB19.12.01 09:22 184320 MAT.MDB19.04.01 13:03 22374 NAZV_SH.TXT06.03.01 09:35 155648 OBRAZ.MDB24.04.01 12:26 257 OSN.DBF25.10.02 13:58 217370 OSN_V3.RAR23.05.01 10:48 124928 OTCHET.MDB08.08.01 11:34 137216 OT_OSN.MDB09.07.01 09:26 167936 PREDPR.MDB15.09.01 18:53 102400 PROV.MDB03.01.96 15:16 14141 SHIFR.TXT25.10.02 14:21 307200 SPRA_OSN.MDB31.07.02 09:48 225 TRAN.DBFСписок DLL большой из-за использования для отчетов CrystalReport. Сейчас я отчеты вы вожу в Word и Excel.

Консультировал: Филатов Евгений Геннадьевич Дата отправки: 15.01.2007, 11:11

Рейтинг ответа: 0 поблагодарить эксперта

Консультация # 144704:

Доброй ночи.
Вопрос о синтаксисе VBA exel.
есть такой вот ряд.
If p2 = "" Then p2 = 0
If p3 = "" Then p3 = 0
If p4 = "" Then p4 = 0
If p5 = "" Then p5 = 0
как сделать подобное присвоение в цикле?

for g=1 to 10
if "p" & g = "" then ...
не работает

через case тоже не получилось. Наверное что то со мной, да?

Дата отправки: 22.09.2008, 23:26
Вопрос задал: Соколов В.В.
Всего ответов: 2
Страница онлайн-консультации »

Консультирует AlexanderZh:

Здравствуйте, Соколов В.В.!
Нужно организвать массив p(n)
тогда:

for i=1 to n
if p(i)="" then p(i)=0
next i

Иначе не получится. В VB нельзя составлять имя переменной из литералов по ходу выполнения программы...

Консультировал: AlexanderZh Дата отправки: 22.09.2008, 23:38

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Шичко Игорь:

Здравствуйте, Соколов В.В.!
Для реализации данного цикла надо использовать массивы.
Примерный код в приложении.

Приложение:
Dim p(10) As String For g = 1 To 10 If p(g) = "" Then p(g) = CInt(0) End If Next g

Консультировал: Шичко Игорь Дата отправки: 23.09.2008, 07:42

Рейтинг ответа: 0 поблагодарить эксперта

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка