K
Kay
Two questions if you please.
When my database opens it runs an action query that deletes the records in a
temp table that is used as the record source for a phone indiex form and then
reloads the newest 300,000+ records. This technique really helped to speed
up the form with the phone index however, the end-user has to wait for at
least 20 seconds for the startup form to load. Is this reasonable or is
there a way to speed up the process? The source table does have indexes set
on the fields that are being loaded in the temp table. I have things like
autoname correct deactivated in Options.
Second: The startup form uses the state seal image in place of the command
button to open the entry form for that state. I would like the hourglass to
show once they click. I added code like this but does not work.
Private Sub Image22_Click()
'DoCmd.Close
Application.Screen.MousePointer = 11 ' Hourglass
' Do some background activity.
DoCmd.OpenForm "frmExpenseEntryforOrgs", acNormal
Application.Screen.MousePointer = 0 ' Back to normal
End Sub
would appreciate your help!
When my database opens it runs an action query that deletes the records in a
temp table that is used as the record source for a phone indiex form and then
reloads the newest 300,000+ records. This technique really helped to speed
up the form with the phone index however, the end-user has to wait for at
least 20 seconds for the startup form to load. Is this reasonable or is
there a way to speed up the process? The source table does have indexes set
on the fields that are being loaded in the temp table. I have things like
autoname correct deactivated in Options.
Second: The startup form uses the state seal image in place of the command
button to open the entry form for that state. I would like the hourglass to
show once they click. I added code like this but does not work.
Private Sub Image22_Click()
'DoCmd.Close
Application.Screen.MousePointer = 11 ' Hourglass
' Do some background activity.
DoCmd.OpenForm "frmExpenseEntryforOrgs", acNormal
Application.Screen.MousePointer = 0 ' Back to normal
End Sub
would appreciate your help!