Modules & VBA :: Splash Screen / Dashboard Progress Bar
Jul 9, 2014
I want a progress bar in a form that will increase from bottom to top . The data will from Access table. The bar will start from 0 to Maxvalue. The Maxvalue will be calculated as below:
Total number of batches in the table/ No. of working days between 14072014 and 31112014 / 2
So the above calculation will define the range of a progress indicator.
And now we have to show the % percentage that means how many batches have been scanned for today. For this the following calculations will be used:
Count total batches where scandate=today and scannedby<>null
Now this will show the percentage in the bar that means hopw much work has been completed.
The progress bar should move from bottom to top when % increases.
View Replies
ADVERTISEMENT
May 25, 2005
i have spash screen that runs for about 10 seconds, would like to reduce to about 4 seconds any ideas
seee script below.
Option Compare Database
Option Explicit
Private Sub Form_Close()
DoCmd.OpenForm "Switchboard"
End Sub
Private Sub Form_Timer()
On Error GoTo Err_Form_Timer
DoCmd.Close
Exit_Form_Timer:
Exit Sub
Err_Form_Timer:
MsgBox Err.Description, , "ASSETSonTRACK"
Resume Exit_Form_Timer
End Sub
Private Sub Command21_Click()
On Error GoTo Err_Command21_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Switchboard"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command21_Click:
Exit Sub
Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click
End Sub
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Switchboard"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command23_Click:
Exit Sub
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click
End Sub
View 1 Replies
View Related
Oct 14, 2005
Hi all,
I was wondering if it is possible to use a splash screen in the middle of your program? Ex. Can I have a splash screeen to display at the beginning of my database and then have another splash screen open during my program. If i click on a command button to display a form, cause I have a splash screen appear before that form load?
Is till possible while using Data Access Pages as well?
thanks in advance
View 3 Replies
View Related
Oct 18, 2005
I have learned how to create animated command buttons within a form. This works out great, but this brought on new ideas.
Currently, all I have is a stand alone picture (our logo) that is stored in the same directory as the db and to my knowledge this has nothing to do with access at all (other then it pulling the .bmp). I would like our Logo to be animated (simple rotating) during the Intro Splash screen.
Is this a possible task?
John
View 2 Replies
View Related
Aug 14, 2007
I need to add another lbl to the following code. Just where to I add the other lbl. I pick this code up somewhere. The code works great. But all I would like to do is add another lbl to the Splash Screen.
Option Compare Database
Dim intEndingRed As Integer
Dim intEndingGreen As Integer
Dim intEndingBlue As Integer
Dim intIncrementRed As Integer
Dim intIncrementGreen As Integer
Dim intIncrementBlue As Integer
Dim sngRemainingDiffRed As Single
Dim sngRemainingDiffGreen As Single
Dim sngRemainingDiffBlue As Single
Private Sub Form_Activate()
'* 4370509 is a shade of green
'* 13883752 is a shade of cyan
bcg_SetColors Me, 14977294, 14098070
End Sub
Private Sub Form_Deactivate()
bcg_SetColors Me, -2147483645, -2147483620
End Sub
Private Sub Form_Load()
Me.lbl1.Width = 0
Me.Image1.Width = 0
DoCmd.Restore
End Sub
Private Sub Form_Open(Cancel As Integer)
'PlaySound ("V:Contractswelworld")
End Sub
Private Sub Form_Timer()
If Me.lbl1.Width = 6000 Then
' I think this is where it should go,
GoTo ImageExpand
Else
Me.lbl1.Width = Me.lbl1.Width + 100
Me.Repaint
Exit Sub
End If
ImageExpand:
If Me.Image1.Width = 4000 Then
Exit Sub
Else
Me.Image1.Width = Me.Image1.Width + 100
Me.Repaint
End If
If Me.Image1.Width = 4000 Then
Me.lbl2.Visible = True
End If
End Sub
Private Sub lbl1_Click()
End Sub
Private Sub lbl2_Click()
MsgBox "Close this splash screen and take user somewhere else."
DoCmd.Close
End Sub
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
stDocName = "MacOpenSwitchboard"
DoCmd.RunMacro stDocName
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
View 1 Replies
View Related
Feb 6, 2006
I have just created a splash screen for my database.
I was wondering if anyone knows anything else that is good to add to this form which would make it look pretty impressive?
I would like to add a loading bar (Similar to the one that appears at the bottom the page on internet explorer). Does anyone know if this is possible? If so how do you do it?
View 5 Replies
View Related
Sep 23, 2006
I've done some searching here, but don't see exactly what I am looking for. I am wanting to attach some code to the timer on a slash screen, or on the close event, to fade the splash screen out. I have looked at the "Cadice Tripp" site. It's fine, but not a fade out. What I want is a simple fade in.... fade out, on the splash screen. Anyone seen any code for this?
Thanks
View 14 Replies
View Related
Sep 5, 2004
I would like to have an animated opening screen when the database opens with the autoexec.
I have an animation package called Xara that makes some wonderful 3d animations. I would like to use this in an Access form. Is this possible? Animated GIF or Flash?
If the answer is no, can I call another application to show the animation?
Thanks in Advance - John
View 1 Replies
View Related
Jan 4, 2014
I have on very large form in my db that takes several seconds to load. I want to optimize things, so I am trying to have it load hidden in the background when the db first starts up, this way it can be immediately called on when it is needed later. Please read further :
I want to have a splash screen that loads as well. I have set the splash screen to the default form when the database opens. However, I am not quite sure how to get the other form to load in the background as hidden, AFTER the splash screen opens and appears. I tried calling it with the oncurrent event of the splash screen, but then splash screen wont appear until after the other (hidden) form has finished loading. I have tried different orders of events, but am having no luck getting the desired results.
Summary: I want the splash screen to show first, then the big form to open (hidden) in the background. The user can click on a continue button on the splash screen and then the main switchboard will open.
View 4 Replies
View Related
Aug 8, 2014
All access application is realized as MDI container. (if I'm right)
In this case it is possible to set the MDI object background image instead develop splash screen. This picture always in background form open another forms or reports, does not depend on the screen resolution, etc, etc ... Splash screen must be removed in order to realize the other forms or reports.
How to set Access 2013 application backgroundimage, and backgroundImageLayout?
View 1 Replies
View Related
Aug 1, 2006
Hello all,
I have this splash screen, which welcomes all the users. It has an OK command button that exits the screen, and a checkbox that says "Do not show this screen again". I still do not have the code behind the checkbox. Thus I was wondering if there is a way where I could entirelly close or "get rid" of the splash screen until the user loggs in again. Because right now there is no code behind it, so everybody that checks it and click OK, leaves the screen. But they can still open it, if they select the "splash form".
View 11 Replies
View Related
Jun 24, 2013
I want to display the message "Processing Record ? of ???..." on the screen while my vba code is running without interruption. Since the msgbox requires the user to click a button to continue, what is the simplest way to display this message on the screen without interrupting the program or requiring user interaction?
View 2 Replies
View Related
Oct 17, 2014
I've changed my splash screen for a database using the method of creating an alternative bitmap.Is there a time setting for this or an alternative?
View 6 Replies
View Related
Dec 16, 2014
I have Access table tblupdate that stores following fields:
Date,Username,To_Be_Updated,TargetDate
Now I want to create a dashboard that will show data of last 7 days from todays dates in 3 charts :
1st chart with Red colour (That means if todays date is greater than TargetDate)
2nd Chart with Green Colour (That means if todays date is less than target date)
3rd chart with AMber colour that means if todays date is equal to Date field.
View 14 Replies
View Related
Aug 22, 2014
How can I do a progress in bar in a do while. I export contract and during the export i want to have a progress bar.
do while
msgbox "the export runs", progress bar
Loop
View 13 Replies
View Related
Mar 27, 2015
I'm making a code to run a Progress Bar from different forms and as per their conditions. Have two forms:
1- Form1="frmProgressMeter"
2- Form2="frmDatabaseStwitcher"
3- Module1=for Functions
On frmDatabaseStwitcher, the code for Progress Bar is:
Option Compare Database
Option Explicit
Private Declare Sub sapiSleep Lib "kernel32" _
Alias "Sleep" _
(ByVal dwMilliseconds As Long)
[code]...
This code is working in two ways:
If I go with "SetProgressBar n / NOS" then progress bar shows 2% and then connecting process time.
Or
If I go with "SetProgressBar n + NOS" then progress works till 100% but then connecting process time.
Also
SetProgressBar (n / NOS) * 100 but then connecting process time.
View 6 Replies
View Related
Nov 8, 2013
Is there any way to modify the progress bar so instead of saying "running query" it states the name of the query?
Like: Running Query [qryFRED] <progress bar>
View 1 Replies
View Related
Jun 21, 2015
Now I use wininet.dll library to get file and calculate progress of downloading action it is something like this:
Code:
Do
If InternetReadFile(hRequest, VarPtr(Buffer(0)), BUF_SIZE, dwBytesRead) Then
If WriteFile(hFile, VarPtr(Buffer(0)), dwBytesRead, dwBytesWritten, 0) Then
' TODO:// calculate progress
dwStatus = (dwStatus + dwBytesWritten)
dwPercent = (dwStatus / dwFileSize) * 100
Debug.Print dwPercent
'form1.Caption = dwPercent '<-- change this
[code]....
View 1 Replies
View Related
Mar 20, 2014
How can I show a msgbox with the text "Update in progress! Please wait a while", when I execute the following make table querye on form load?
Code:
Private Sub Form_Load()
'Turns the Access warning messages off
DoCmd.SetWarnings False
DoCmd.OpenQuery "q_tblUdtrk2"
'Turns the Access warning messages back on
DoCmd.SetWarnings True
[code]...
View 5 Replies
View Related
Jan 3, 2006
I have created an Access Dashboard for a SQL Database. This is secured user Access User Level Security and works fine.
I am now looking to add some data from other Secured Access Databases but these are secured using different Workgroup Files.
Is there a way to do this?
View 3 Replies
View Related
Feb 27, 2008
Hi,
I would like to get pro month and marketing campaign the values of about 12 KPIs. This dashboard will be used by different countries/marks.
My KPIS do not have the same entries. For example :
- the customer satisfaction is calculated on the number of customers "satisfied", "unsatisfied", "acceptable",
- the percentage of corrected and on-time reports is based on the number of reports "total", "late", "with failures", "late and with failures",
- the availability of the is based on the number of hours... etc.
Do you have an idea of the way to proceed?
I created the following tables :
-Tbcampaign (ID_Campaign, Campaign name)
-TbKPI (ID_KPI, KPI Name)
-TbRegion (ID_Region, Region Name)
-TbTime (ID_Time, Month, Year)
-TbFact (ID_KPI, ID_Campaign, ID_Region, ID_Time, Value)
... but how can I proceed with the KPIs?
Thanks a lot in advance!
Co.
View 14 Replies
View Related
Jul 27, 2006
I have tried to make a login screen, I have also searched for information and tried some of the examples but, I just can't get one to work.
Is there someone or somewhere where I can get information on how to build one step by step in simple easy instructions....(access 2003).
Also, how do you get access to open all the windows, tables, queries etc in full screen mode.
I have expaneded them and shut it down and then reopened it but they still want to open out of full screen mode.
Thanks, everyone has been a great help in creating my first Access program.
View 3 Replies
View Related
Apr 3, 2013
I have a dashboard that opens with my main form and it contains many textboxes with Dcounts, Dlookups and Dsums in it. I am hoping that I can put these textboxes on a separate form that is hidden unless a command button is clicked to make it visible.
I know how to do this, but my question is whether or not all of those queries will run whether or not the form is visible. Obviously if the Dsums etc.. are going to run anyway, then I won't bother.
Is there a better way to do this?
View 1 Replies
View Related
Nov 19, 2014
How can I find the middle of the screen, or at least the middle of the Access window? I want my login form to be placed in the middle of the screen.
View 9 Replies
View Related
Jun 5, 2014
I would like to put a message on the screen for informing the user - mostly during some procedures that might take time or when, after a warning, I want to go on with the program but without action from the user.
Msgbox is obviously not the one I'm looking for as it needs customer acknowledge. Is there a solution for this task?
View 1 Replies
View Related
Dec 26, 2013
My form opening with page down screen, how could I open it with page up screen?
View 7 Replies
View Related