Fullscreen Form

[abhoan]

I would want to make a startup from for the database for users to login. But i'm unable to make the from fullscreen so that it takes up all the space on the screen hiding the menu bar of windows and rest of the background processes. How can i do this that when the database starts off the form is opened in fullscreen?

I can get it to startup but the form for fullscreen is one issue.

 

[shadow9449]

I would want to make a startup from for the database for users to login. But i'm unable to make the from fullscreen so that it takes up all the space on the screen hiding the menu bar of windows and rest of the background processes. How can i do this that when the database starts off the form is opened in fullscreen?

I can get it to startup but the form for fullscreen is one issue.

1) Make the form nice and big
2) Set the border to None
3) Set the form to pop up (this is from the Other tab)

That should work

SHADOW

 

[freakazeud]

re:

Hi,
you could also completely hide the Access shell if you want as described here. However, normally this is not advised in a production environment.
HTH
Good luck

 

[abhoan]

Will Do

Thanks,
will try all that and get back to you..

 

[missinglinq]

Shadow9449 has the right idea, it's what I do on all of my apps. But be aware, that while you can make the form big enough to fill the screen, the underlying Access menus and functions are still there, simply hidden, and can be accessed by your users by utilizing the hotkeys! If you don't want them to do this, just before distribution (don't do it until you're thru with development, and make a backup copy for later use first) goto Tools > Startup and uncheck these items!

BTW, I develope mainly for non-power users, and find that they are intimidated by apps that appear within the Access environment, hence the use of full screens that look more like straight VB programs.

The only probem with full screen is that eventually you'll find that someone using it (maybe even yourself) will buy a new machine where the default screen resolution is set higher than it was when you developed your app, which makes your db less than full screen. The answer to that is a function that can be found at Jamies Software, called Access Form Resizer. It's freeware and can be downloaded at

http://jamiessoftware.tk/resizeform/afr.exe

Good Luck!

 

[fenhow]

Call This Function? How

Hi, I have this code and have created a module, can someone tell me how to call it from a form?

Thanks.

'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
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

'************ Code End **********

 

[ShaneMan]

Hi, I have this code and have created a module, can someone tell me how to call it from a form?

Thanks.

'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
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

'************ Code End **********

Hey fenhow,

the part in red is showing you how to call the function so all you have to do is put Call in front of it (be sure to delete the ' and ? part) so it should look like this:
Call fSetAccessWindow(SW_SHOWMAXIMIZED) 'this would maximize the window.

HTH,
Shane

 

[fenhow]

Great Thanks!

So on a form that I want this to work on where do I place

Call fSetAccessWindow(SW_SHOWMAXIMIZED)

How do I control when this happens?

also if you dont mind...

On this code, how to I call it to show me the Screen Settings? I really appreciat your help.

 

[ShaneMan]

Great Thanks!

So on a form that I want this to work on where do I place

Call fSetAccessWindow(SW_SHOWMAXIMIZED)

How do I control when this happens?

also if you dont mind...

On this code, how to I call it to show me the Screen Settings? I really appreciat your help.

Hey Fen,

I copied this from the website where you got the code from. I think it will give you a hint of one way to use it. If Max or Min the main window I guess you could also use it behind a cmdButton.

This same function can also be used to completely hide Access window and just show your form on the desktop. Make the form popup and from it's Open Event, call the fSetAccessWindow function with SW_HIDE as the argument.

Don't understand your question on "show me the Screen Settings" You do realize this code is manipulating the main Access window don't you?