[AccessD] Check Box Problem

How about a repaint before the DoEvents?





"Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
Sent by: accessd-bounces at databaseadvisors.com
09/02/2003 05:49 PM
Please respond to Access Developers discussion and problem solving 

 
        To:     "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
        cc: 
        Subject:        Re: [AccessD] Check Box Problem


Rats.  No soap.  Tried it both before and after the call to the delay 
function, and also as the first statement in the fraYesNo_AfterUpdate() 
sub.  But no check mark.  Any other thoughts?
 
Rocky
 
----- Original Message ----- 
From: Drew Wutka 
To: 'Access Developers discussion and problem solving' 
Sent: Tuesday, September 02, 2003 3:28 PM
Subject: RE: [AccessD] Check Box Problem

Try a DoEvents statement, so that it allows the screen to refresh before 
it moves.
 
Drew
-----Original Message-----
From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com]
Sent: Tuesday, September 02, 2003 5:15 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Check Box Problem

Dear List:
 
I have an app that is basically a questionnaire.  Most questions display 
an option frame with check boxes labeled Yes and No.  After making a 
selection the focus moves to the 'Next Screen' command button. 
 
Then I added an 'Auto Advance' feature where the program automatically 
advances to the next question after a 1/2 second delay.
 
Private Sub fraYesNo_AfterUpdate()
    If fraAutoAdvance = 1 Then
        Call Delay
        Call cmdNextQuestion_Click
    End If
End Sub
where delay is:
 
Public Sub Delay()
 
Dim varstop As Variant
 
varstop = Timer + gdblDelay
 
Do Until Timer > varstop
Loop
 
End Sub
When the question is first displayed, both the Yes and the No check boxes 
have a gray background.  Without the auto advance, the focus moves to the 
Next Screen button and the check mark dutifully appears in the proper box. 
 
 
The problem is that when the user is using the Auto-Advance feature the 
clicked check box remains gray, the unclicked check box turns white, and 
after 1/2 second the next screen appears. So it's a bit confusing to the 
eye.
 
I cannot figure out a way to make the check mark appear in the box. Anyone 
see what' I'm doing wrong?
 
MTIA and regards,
 
Rocky Smolin
Beach Access Software
 

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030902/425756d5/attachment-0001.html>