G
Guest
When the DB opens a splash screen opens and I have some code to update some
tables using ADO.
As this can take some time in some instances, I thought it would be a good
idea for a progress meter to be displayed using the SysCmd function.
Unfortunately, the progress meter doesn't appear. I have stepped through
the code but have been unable to figure out why it doesn't appear to work.
At present the border style is set to Dialog, but I have tried the other
options without any success.
See the code below:
Option Compare Database
Option Explicit
Private Sub Form_Current()
Dim dteLastStdDate As Date
Dim varReturn As Variant
'=========================================================
'update the table zstlkpStdDates
'display progress meter
varReturn = Application.SysCmd(acSysCmdInitMeter, "Updating System
Tables", 200)
'get the last date in that table
dteLastStdDate = GetLastDateInStdDates()
'update progress meter to 25%
varReturn = Application.SysCmd(acSysCmdUpdateMeter, , 50)
'now update the table from the next day
Call InsStdDates(DateAdd("d", 1, dteLastStdDate))
'update progress meter to 100%
varReturn = Application.SysCmd(acSysCmdUpdateMeter, , 200)
'remove progress meter
varReturn = Application.SysCmd(acSysCmdRemoveMeter)
'=========================================================
End Sub
Private Sub Form_Load()
DoCmd.Maximize
End Sub
Private Sub Form_Timer()
DoCmd.Close
DoCmd.OpenForm "fdlgMainSwitchboard", , , , acFormReadOnly
End Sub
tables using ADO.
As this can take some time in some instances, I thought it would be a good
idea for a progress meter to be displayed using the SysCmd function.
Unfortunately, the progress meter doesn't appear. I have stepped through
the code but have been unable to figure out why it doesn't appear to work.
At present the border style is set to Dialog, but I have tried the other
options without any success.
See the code below:
Option Compare Database
Option Explicit
Private Sub Form_Current()
Dim dteLastStdDate As Date
Dim varReturn As Variant
'=========================================================
'update the table zstlkpStdDates
'display progress meter
varReturn = Application.SysCmd(acSysCmdInitMeter, "Updating System
Tables", 200)
'get the last date in that table
dteLastStdDate = GetLastDateInStdDates()
'update progress meter to 25%
varReturn = Application.SysCmd(acSysCmdUpdateMeter, , 50)
'now update the table from the next day
Call InsStdDates(DateAdd("d", 1, dteLastStdDate))
'update progress meter to 100%
varReturn = Application.SysCmd(acSysCmdUpdateMeter, , 200)
'remove progress meter
varReturn = Application.SysCmd(acSysCmdRemoveMeter)
'=========================================================
End Sub
Private Sub Form_Load()
DoCmd.Maximize
End Sub
Private Sub Form_Timer()
DoCmd.Close
DoCmd.OpenForm "fdlgMainSwitchboard", , , , acFormReadOnly
End Sub