Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Making an access 97 form stand-alone

9 views
Skip to first unread message

arenatrdcx

unread,
Mar 19, 2004, 5:18:39 PM3/19/04
to
I have an access97 form that I want to make stand alone. I want it to
be always on top and be only the form itself, outside of the rest of
access. Is this possible in 97 and if so how? Thank you very much in
advance for your help.

R.A.Balder

unread,
Mar 19, 2004, 6:53:50 PM3/19/04
to
I don't think you can do it "outside" Access, but you might do it, so it
appears to be outside. Create a front end database (all tables are linked
from the back end).
Set the start up options to open the form automatic, and dont' display the
database windows and other options available. Set the display options in the
form to open in maks size window. Convert the front the end to an .mde
file, and install it.
It will look like the form is on its own.

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...

Wayne Aprato

unread,
Mar 19, 2004, 11:38:28 PM3/19/04
to
"R.A.Balder" <R_A_B...@xhotmail.com> wrote in message news:<iKL6c.50878$BD3.8...@juliett.dax.net>...

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.

arenatrdcx

unread,
Mar 22, 2004, 9:33:18 PM3/22/04
to
cqdi...@promail.com (Wayne Aprato) wrote in message news:<1b0ce521.04031...@posting.google.com>...

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.

0 new messages