473,320 Members | 1,949 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

"Please Wait Form" did not show my animation.. need help ..

hi..

my english maybe wrong.. but hope somebody can understand me :)

[ The scenario]
I did created 3 forms. "MainForm" , "CalForm" , "WaitForm".

On "MainForm", I did put a command button called "Run".

On "CalForm", there were some unbound "text box" which have some calculation
to be done..

On "WaitForm", I did created 5 boxes that will be showed and animated base on timer event
that I set on the form.
I also did put a text labelled " Please Wait" ..
Basically this "WaitForm" will pop up, when "CalForm" is making the calculation

[ The Output/Return Requirement ]
When I click "Run" button at "MainForm", "WaitForm" will pop up
and showed the animated boxes.And at the same time will start open "CalForm"
"WaitForm" will be close when "CalForm" finished the calculation and showed the value

[ Actual output ]
Everything was follow the plan.. :)
But..............

[ The problem facing ]
The box did not animated..

Anybody can help to solve the problem ?

Below are the code that I put on "MainForm" and "WaitForm".
Btw, the timer interval for "WaitForm" is 250 .


----- MainForm ---------------
Option Compare Database
Option Explicit

Private Sub Run_Click()
On Error GoTo Err_iq_Click

DoCmd.Close acForm, "MainForm"
PlsWaitForm ("CalForm")

Exit_Run_Click:
Exit Sub

Err_Run_Click:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Run_Click
End Sub


Function PlsWaitForm(docz As String)
On Error GoTo PlsWaitForm_Err

DoCmd.OpenForm "WaitForm"
DoCmd.RepaintObject acForm, "WaitForm"
DoCmd.OpenForm docz
DoCmd.Close acForm, "WaitForm"

PlsWaitForm_Exit:
Exit Function

PlsWaitForm_Err:
MsgBox Err.Number & " - " & Err.Description
Resume PlsWaitForm_Exit

End Function
------- end MainForm code -------------


----- WaitForm ---------------
Option Compare Database
Option Explicit
Dim countshow As Single


Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

countshow = 0


Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Form_Open

End Sub



Private Sub Form_Timer()
On Error GoTo Err_Form_Timer

Select Case countshow
Case 0
bx1.Visible = True
countshow = countshow + 1
Case 1
bx2.Visible = True
countshow = countshow + 1
Case 2
bx3.Visible = True
countshow = countshow + 1
Case 3
bx4.Visible = True
countshow = countshow + 1
Case 4
bx5.Visible = True
countshow = countshow + 1
Case 5
ini
countshow = 0
End Select


Exit_Form_Timer:
Exit Sub

Err_Form_Timer:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Form_Timer

End Sub

Function ini()
bx1.Visible = False
bx2.Visible = False
bx3.Visible = False
bx4.Visible = False
bx5.Visible = False
End Function

------- end WaitForm code -------------

thanks in advance
Apr 19 '07 #1
2 2633
Denburt
1,356 Expert 1GB
What kind of animation are you trying to use?

You might try:
dbEngine.Idle
or
DoEvents
Apr 19 '07 #2
What kind of animation are you trying to use?

You might try:
dbEngine.Idle
or
DoEvents
hi..
the box should be visible by sequence when the timer event trigger..
and unvisible again later
* like progress bar .. :)

any idea ?

anyway, will try to learn/search the idea you give...
( since I'm still new with msaccess )
Apr 19 '07 #3

Sign in to post your reply or Sign up for a free account.

Similar topics

4
by: mvr | last post by:
Hi all Can some one give me a sample code to display a "please wait" message while retrieving results from the database in ASP. Thanks mvr
3
by: Kannan | last post by:
Hello, I have a requirement that specifies that I display a "Please Wait..." window (preferably modal) along with a gif that mimics a progress bar during a save operation. The dialog needs to be...
1
by: metsymani | last post by:
In my web application, I have a search screen coded in ASP.Net. The Search process takes lot of time. So, I need to show a wait page informing the user that "Search is in progress. Please wait" along...
3
by: John Dalberg | last post by:
Hi I have a form that opens a new window for the results. Because the results might take a few seconds due to server processing, I would like to display a message "please wait" in the new...
4
by: Big D | last post by:
I recently got a new system, and re-installed studio. It was working fine, but now whenever I start it I get a prompt that says: "Please wait while windows configures visual studio .net -...
1
by: Paul | last post by:
Hi I have a pretty simple VB.NET which contains some dropdown lists, a QUERY button, UPDATE button and datagrid. The page works great accept sometimes the database access behind the QUERY and...
9
by: John Walker | last post by:
Hi, I have a datagrid with a radiobutton template column, with AutoPostBack set to TRUE. When the user clicks on a radiobutton the application will PostBack, and in the PostBack there will be...
5
by: Jeremy | last post by:
Hi all, I have database actions that will potentially take several seconds to complete. My normal page uses AJAX so keeping the user informed of what is happening is not a problem. ...
1
by: =?Utf-8?B?Sm9obiBXYWxrZXI=?= | last post by:
Hi, I have a webpage designed with asp.net 2.0. Is there a way to display a "please wait" message to the screen horizontally centered and veritcally 20px from the VISIBLE top of the page,...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.