Форма поверх всех окон (SetWindowPos)

[AdrenalinE]

Доброго времени суток!
Мне требуется сделать так, чтобы при открытии формы она всегда оставалась поверх всех окон в Windows. Я воспользовался функцией SetWindowPos, но никакого эффекта не последовало.

Option Compare Database
Option Explicit
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_SHOWWINDOW = &H40


Private Sub Form_Open()
    Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 100, 0, 100, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)
End Sub

Это на форме, которая должна открываться. А на другой форме просто кнопка и

DoCmd.OpenForm "form"

Еще вчера просто не было никакого результата, а сейчас открываю, а Access ругается, что не может выполнить DoCmd.OpenForm "form".

Подскажите, ЧЯДНТ?

[Teslenko_EA]

Здравствуйте AdrenalinE.
думаю поведение API в А2007 не сильно отличается от поведения в А2003, в котором выполнение подобного кода решает Вашу задачу

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Function startForm()
    DoCmd.OpenForm "FormName"
    SetWindowPos Application.hWndAccessApp, -1, -30, -30, 0, 0, &H40
End Function

Евгений.

[AdrenalinE]

Teslenko_EA, большое спасибо!
Можно еще пару вопрос по параметрам?
В Вашем примере -30 и -30 - это x и y, т.е. смещение позиции окна, а 0 и 0 - cx и cy, т.е. координаты окна? Возможно сделать так, чтобы появившееся окно нельзя было перемещать и изменять размер? Я так понимаю, что надо установить флаги NOMOVE и NOSIZE, но что-то опять безрезультатно. И надо ли возвращать нормальное позиционирование окна при закрытии? А то у меня создается впечатление, что кроме открывшегося окна весь аксес начинает становиться поверх окон, потому что невозможно переключиться на редактор VBA, пока не закроешь форму с кнопкой.

P.S. Кстати, я тожеродом с Сургута, приятно услышать совет от земляка.

UPD: Да, точно, весь Аксес остается поверх всех окон при закрытии формы.

UPD2: Запретить перетаскивание формы нашел. А как запретить изменение размера? Уже понял, что был не прав насчет флагов.

[Teslenko_EA]

AdrenalinE, если проблема с позиционированием окна решена, "..запретить изменение размера.." можно задав свойству формы Тип границы значение - Окна диалога
Евгений.

P.S. все свои сообщения я подписываю в надежде, что обращаться ко мне будут по имени, и я не "..тожеродом с Сургута.." я просто в нём живу.

[AdrenalinE]

Еще раз большое спасибо, Евгений, просто живущий в Сургуте. Все заработало. Теперь буду разбираться, как вернуть аксес в прежнее состояния после закрытия формы.