Window priority above other apps.

[Hutch]

How do i get my access 2003 Windows to always appear above all other applications running?

[willakawill]

How do i get my access 2003 Windows to always appear above all other applications running?

Hi. I have moved your thread to the access forum

[Hutch]

Do you have any idea on this subject?

[ADezii]

How do i get my access 2003 Windows to always appear above all other applications running?

I should have the answer for you shortly. It involves an API call and the Handle to the Main Access Window. Please be patient.

[ADezii]

How do i get my access 2003 Windows to always appear above all other applications running?

As previously promised, the following code will make the 'Main Access Window' always appear above all other running applications. First the API Declaration:

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

NOTE: Use extreme caution whenever using API Calls and always backup your Database prior to experimenting. The slightest Syntax or other Error could cause a General Protection Fault. This code has been tested on Access 2003 and does, in fact, work:
Now the code:

Private Sub Form_Open(Cancel As Integer)
  Dim wFlags As Long, lngX As Long

  wFlags = &H2 Or &H1 Or &H40 Or &H10
  lngX = SetWindowPos(Application.hWndAccessApp, -1, 0, 0, 0, 0, wFlags)
End Sub

[Hutch]

I get an error message after opening the form saying "Compile error: Expected variable or procedure, not module" it then opens VBA and highlites "SetWindowP os" in the private sub on the form. Any ideas?

[Hutch]

Take that back I got it to work, However the only draw back on this is when an error message appears behind the window you cant get to it.

[ADezii]

Take that back I got it to work, However the only draw back on this is when an error message appears behind the window you cant get to it.

That is a considerable Trade Off.

[Hutch]

That is a considerable Trade Off.

So check it out i am using this code in a command click button now. Sometimes i want it to remain above other apps other times i don't so far i have this

Private Sub Pri_Click_Click ()
If Me.Pri_Click = True Then
Dim wFlags As Long, lngX As Long
wFlags = &H2 Or &H1 Or &H40 Or &H10
lngX = SetWindowPos(Ap plication.hWndA ccessApp, -1, 0, 0, 0, 0, wFlags)
If Me.Pri_Click = False Then GoTo Ext_Pri
End If
Ext_Pri:
End Sub

Do you happen to know the code to take the Window Priority away?
Any help would be amazing, thanks in advance.

[ADezii]

So check it out i am using this code in a command click button now. Sometimes i want it to remain above other apps other times i don't so far i have this

Private Sub Pri_Click_Click ()
If Me.Pri_Click = True Then
Dim wFlags As Long, lngX As Long
wFlags = &H2 Or &H1 Or &H40 Or &H10
lngX = SetWindowPos(Ap plication.hWndA ccessApp, -1, 0, 0, 0, 0, wFlags)
If Me.Pri_Click = False Then GoTo Ext_Pri
End If
Ext_Pri:
End Sub

Do you happen to know the code to take the Window Priority away?
Any help would be amazing, thanks in advance.

Try the following code segment to turn OFF the TopMost Attribute:
[CODE=vb]Dim wFlags As Long, lngX As Long
wFlags = &H10 Or &H40
lngX = SetWindowPos(Ap plication.hWndA ccessApp, -2, 0, 0, 0, 0, wFlags)[/CODE]

[Hutch]

That code take the window minimizes it and move it into the tope left corner of my screen.

[Hutch]

Dim wFlags As Long, lngX As Long
wFlags = &H10 Or &H40
lngX = SetWindowPos(Ap plication.hWndA ccessApp, -2, 0, 0, 0, 0, wFlags)

I figured out that the H10 and H40 was the cause of the screen movement, I changed them to 2 and 1 like in the previouse code but kept the -2. this works great.

[ADezii]

Dim wFlags As Long, lngX As Long
wFlags = &H10 Or &H40
lngX = SetWindowPos(Ap plication.hWndA ccessApp, -2, 0, 0, 0, 0, wFlags)

I figured out that the H10 and H40 was the cause of the screen movement, I changed them to 2 and 1 like in the previouse code but kept the -2. this works great.

Glad you figured it out.