To make it always on top, I don't know, but by some code it should be
possible.
Brgds
Rolfern
"arenatrdcx" <arena...@yahoo.com> wrote in message
news:972ff87.04031...@posting.google.com...
The following code was supplied courtesy of Dev Ashish. Copy and
paste it into a module:
Function fSetAccessWindow(nCmdShow As Long)
On Error Resume Next
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then 'no Activeform
If nCmdShow = SW_HIDE Then
MsgBox "Cannot hide Access unless " & "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " & (loForm.Caption +
" ") & "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " & (loForm.Caption + " ")
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function
Make sure your form is set to "Popup" in its properties box and then
paste this code to run on the form's "on open" event.
Call fSetAccessWindow(0)
It works beautifully. None of this is mine - I'm a rank amateur. As
stated previously the module comes from Dev Ashish's site and I've
picked up a few kind pointers from this forum.
I haven't worked out how to keep the form on top of other windows. If
you find out how to do that, please post it here.
Regards.
I tried this code and as you suggested, it tiled everytghing but
didn't give the access form the bevhaiour I was looking for...again,
I'm hoping to make the form modal, completely ontop, and as
light-looking as possible, so if anyone has anyother suggestions, I
woudl be greatful...thank you very much in advance.