Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

создание автоза...

создание автозапускаемого модуля

22.06.2008 9:53:31

vitabios

21 сообщения

создание автозапускаемого модуля

Увидел на одном из форумов функцию как скрыть окно Access чтобы запускалась только форма

Option Compare Database

Option Explicit

Public Declare Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

Declare Function FindWindowEx& Lib "user32" _

Alias "FindWindowExA" (ByVal _

hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassname As String, _

ByVal lpWindowName As String)

'если bHide=True - окно прячется, если False - показывается

Public Function HideDB(Optional bHide As Boolean = True)

Dim s As String

Dim slash As Integer

Dim point As Integer

Dim i As Integer

Dim ret

Dim hwnd As Long

Dim hwndDB As Long

s = Application.CurrentDb.Name

For i = 1 To Len(s)

If Mid(s, i, 1) = "\" Then slash = i

If Mid(s, i, 1) = "." Then point = i

Next i

slash = slash + 1

s = Mid(s, slash, point - slash)

hwnd = FindWindowEx(Application.hWndAccessApp, 0, "MDIClient", "")

If hwnd <> 0 Then

hwndDB = FindWindowEx(hwnd, 0, "ODb", s & " : база данных")

If hwndDB = 0 Then

hwndDB = FindWindowEx(hwnd, 0, "ODb", s & " : Database")

End If

If hwndDB <> 0 Then

If bHide Then

ret = apiShowWindow(hwndDB, 0)

Else

ret = apiShowWindow(hwndDB, 1)

End If

End If

End If

End Function

Вопрос:

Как вставить этот код и куда чтобы он работал.

На форуме с этим кодом мне четкого ответа не дали. Понял что нужно создать модуль а дальше что?.
Расскажите пожалуйста ДЛЯ ЧАЙНИКА пошагово что надо сделать чтобы этот код загружался автоматически при запуске базы?

23.06.2008 9:56:23

Admin1

731 сообщения

Re: создание автозапускаемого модуля

1. Вообще-то лучше этого не делать, если Вы не понимаете, что написано в этом коде. При вставке из буфера все равно придется подчищать информацию.
2. Замый быстрый способ запуска внешней программы - это создание макроса AutoExec. Эта команда макроса заимствована из DOS. Она всегда запускается первой. Далее в нем прописываете запуск программы =HideDB(false) и отображение нужной формы.

P.S. Самое главное - !!! если в коде все правильно, то окно базы данных погаснет (его при запуске можно погасить и более простым способом).

Страница 1 из 1