|
 |
access thread: Front end
Message #1 by "Stephen Carpenter" <stvc69@n...> on Mon, 29 Oct 2001 19:17:01
|
|
Im trying to create a visual front end to my database so the users can type
a query and see the results without seeing my combo boxes etc. I want to
be able to have the user click buttons to transfer between visuals - i.e.
click to find, click to return to main menu. Also how do i create a
"splashscreen"? -- thanks muchly in anticipation.
Message #2 by "Mike" <mike.day@o...> on Tue, 30 Oct 2001 12:22:27
|
|
Here's a splash screen;
create a form called SPLASHSCREEN, and have it modal & popup set to yes
Create a macro 'AutoExec'
type RunCode - OPENSPLASH("SPLASHSCREEN", 5)
RunCode- CLOSESPLASH()
Minimise
OpenForm- put your main form here
create module:
Option Compare Database
Option Explicit
Dim SPLASHSCREEN
Dim SplashInterval
Dim SplashForm
Function OPENSPLASH(ByVal SplashForm As String, ByVal _
SplashInterval As Integer)
DoCmd.OpenForm "SPLASHSCREEN"
SPLASHSCREEN = Timer
SplashInterval = SplashInterval
'SPLASHSCREEN = SplashForm
End Function
Function CLOSESPLASH()
Dim RetVal
Do Until Timer - SPLASHSCREEN > 5
RetVal = DoEvents()
Loop
DoCmd.Close acForm, "SPLASHSCREEN"
End Function
This will give you a splash screen when you open the database
Ta
Message #3 by "Stephen Carpenter" <stvc69@n...> on Tue, 30 Oct 2001 19:27:12
|
|
Thanks Mike, thats a massive help.
Here's a splash screen;
>
> create a form called SPLASHSCREEN, and have it modal & popup set to yes
>
> Create a macro 'AutoExec'
> type RunCode - OPENSPLASH("SPLASHSCREEN", 5)
> RunCode- CLOSESPLASH()
> Minimise
> OpenForm- put your main form here
>
> create module:
>
> Option Compare Database
> Option Explicit
>
> Dim SPLASHSCREEN
> Dim SplashInterval
> Dim SplashForm
>
> Function OPENSPLASH(ByVal SplashForm As String, ByVal _
> SplashInterval As Integer)
>
> DoCmd.OpenForm "SPLASHSCREEN"
>
> SPLASHSCREEN = Timer
>
> SplashInterval = SplashInterval
> 'SPLASHSCREEN = SplashForm
> End Function
>
>
> Function CLOSESPLASH()
> Dim RetVal
>
> Do Until Timer - SPLASHSCREEN > 5
>
> RetVal = DoEvents()
> Loop
>
>
> DoCmd.Close acForm, "SPLASHSCREEN"
>
> End Function
>
>
>
> This will give you a splash screen when you open the database
>
>
> Ta
|
|
|
View Cart
