[AccessD] Check Box Problem

Thanks but repaint didn't seem to do anything.  No check mark.

Rocky

  ----- Original Message ----- 
  From: KSEABOLT at parkcenter.org 
  To: Access Developers discussion and problem solving 
  Sent: Tuesday, September 02, 2003 4:07 PM
  Subject: Re: [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






------------------------------------------------------------------------------


  _______________________________________________
  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/55606732/attachment-0001.html>