Got a database that does some back end processing. Client wants a screen to
show what it is doing. (Don't ask me why) Trying the following code,
essentially just trying to get a 4 second pause between the message changing
for testing. When I run it I get the hourglass, no change in the form until
the very end, where it displays the "Sending ALL e-mail group..." message.
What am I doing wrong?

Function TheCA()
On Error GoTo TheCA_Err
'Step 1 - Imports data from MySQL Server to
local---------------------------------------
Forms!frmTest!lblStatus.Caption = "Importing Data From Web"
sSleep 4000


'Step 2 - Transfers records to local
table------------------------------------------------
Forms!frmTest!lblStatus.Caption = "Transferring data to local tables..."
sSleep 4000

'Sets New flag on web database to No
Forms!frmTest!lblStatus.Caption = "Clearing New flag on MySQL server..."
sSleep 4000

'Step 3 - Sends Compliment Autoreply to
customers-------------------------------------
Forms!frmTest!lblStatus.Caption = "Sending Compliment autoresponse to
guests..."
sSleep 4000

'Step 4 - Sends Other Autoreply to
customers--------------------------------------------
Forms!frmTest!lblStatus.Caption = "Sending Other Request autoresponse to
guests..."
sSleep 4000

'Step 5 - Sends All email
group-----------------------------------------------------------
Forms!frmTest!lblStatus.Caption = "Sending ALL e-mail group..."
sSleep 4000


TheCA_Exit:
Exit Function

TheCA_Err:
MsgBox Error$
Resume TheCA_Exit

End Function
--
John Cello
John Cello Consulting
Helping organizations hire, develop, and retain their best employees.
www.johncelloconsulting.com

This may help. After each line where you change the caption, put:
Me.Repaint
--
Dave Hargis, Microsoft Access MVP


"John Cello" wrote:

> Got a database that does some back end processing. Client wants a screen to
> show what it is doing. (Don't ask me why) Trying the following code,
> essentially just trying to get a 4 second pause between the message changing
> for testing. When I run it I get the hourglass, no change in the form until
> the very end, where it displays the "Sending ALL e-mail group..." message.
> What am I doing wrong?
>
> Function TheCA()
> On Error GoTo TheCA_Err
> 'Step 1 - Imports data from MySQL Server to
> local---------------------------------------
> Forms!frmTest!lblStatus.Caption = "Importing Data From Web"
> sSleep 4000
>
>
> 'Step 2 - Transfers records to local
> table------------------------------------------------
> Forms!frmTest!lblStatus.Caption = "Transferring data to local tables..."
> sSleep 4000
>
> 'Sets New flag on web database to No
> Forms!frmTest!lblStatus.Caption = "Clearing New flag on MySQL server..."
> sSleep 4000
>
> 'Step 3 - Sends Compliment Autoreply to
> customers-------------------------------------
> Forms!frmTest!lblStatus.Caption = "Sending Compliment autoresponse to
> guests..."
> sSleep 4000
>
> 'Step 4 - Sends Other Autoreply to
> customers--------------------------------------------
> Forms!frmTest!lblStatus.Caption = "Sending Other Request autoresponse to
> guests..."
> sSleep 4000
>
> 'Step 5 - Sends All email
> group-----------------------------------------------------------
> Forms!frmTest!lblStatus.Caption = "Sending ALL e-mail group..."
> sSleep 4000
>
>
> TheCA_Exit:
> Exit Function
>
> TheCA_Err:
> MsgBox Error$
> Resume TheCA_Exit
>
> End Function
> --
> John Cello
> John Cello Consulting
> Helping organizations hire, develop, and retain their best employees.
> www.johncelloconsulting.com

Quick reply, exactly what I needed. Thanks!
--
John Cello
John Cello Consulting
Helping organizations hire, develop, and retain their best employees.
www.johncelloconsulting.com


"Klatuu" wrote:

> This may help. After each line where you change the caption, put:
> Me.Repaint
> --
> Dave Hargis, Microsoft Access MVP
>
>
> "John Cello" wrote:
>
> > Got a database that does some back end processing. Client wants a screen to
> > show what it is doing. (Don't ask me why) Trying the following code,
> > essentially just trying to get a 4 second pause between the message changing
> > for testing. When I run it I get the hourglass, no change in the form until
> > the very end, where it displays the "Sending ALL e-mail group..." message.
> > What am I doing wrong?
> >
> > Function TheCA()
> > On Error GoTo TheCA_Err
> > 'Step 1 - Imports data from MySQL Server to
> > local---------------------------------------
> > Forms!frmTest!lblStatus.Caption = "Importing Data From Web"
> > sSleep 4000
> >
> >
> > 'Step 2 - Transfers records to local
> > table------------------------------------------------
> > Forms!frmTest!lblStatus.Caption = "Transferring data to local tables..."
> > sSleep 4000
> >
> > 'Sets New flag on web database to No
> > Forms!frmTest!lblStatus.Caption = "Clearing New flag on MySQL server..."
> > sSleep 4000
> >
> > 'Step 3 - Sends Compliment Autoreply to
> > customers-------------------------------------
> > Forms!frmTest!lblStatus.Caption = "Sending Compliment autoresponse to
> > guests..."
> > sSleep 4000
> >
> > 'Step 4 - Sends Other Autoreply to
> > customers--------------------------------------------
> > Forms!frmTest!lblStatus.Caption = "Sending Other Request autoresponse to
> > guests..."
> > sSleep 4000
> >
> > 'Step 5 - Sends All email
> > group-----------------------------------------------------------
> > Forms!frmTest!lblStatus.Caption = "Sending ALL e-mail group..."
> > sSleep 4000
> >
> >
> > TheCA_Exit:
> > Exit Function
> >
> > TheCA_Err:
> > MsgBox Error$
> > Resume TheCA_Exit
> >
> > End Function
> > --
> > John Cello
> > John Cello Consulting
> > Helping organizations hire, develop, and retain their best employees.
> > www.johncelloconsulting.com