469,645 Members | 1,360 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,645 developers. It's quick & easy.

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


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.. :)

[ 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 Sub

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"

Exit Function

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 Sub

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
countshow = 0
End Select

Exit Sub

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 2481
1,356 Expert 1GB
What kind of animation are you trying to use?

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

You might try:
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

Post your reply

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

Similar topics

3 posts views Thread by Kannan | last post: by
4 posts views Thread by Big D | last post: by
1 post views Thread by Paul | last post: by
9 posts views Thread by John Walker | last post: by
5 posts views Thread by Jeremy | last post: by
1 post views Thread by =?Utf-8?B?Sm9obiBXYWxrZXI=?= | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.