My forms won't paint entirely during timer function "pauses". My DBDataform might not be able to be populated til the DB becomes available, so I made a little Please_Wait form. I copied a little Timer function pause from a previous question, .show the Please_Wait while I loop til the DB becomes available (or it times out), but the label in the Please_Wait never shows cause the paint never completes.
Here's the code:
If rsTransaction.Fields("IsBusy") = True Then
PauseTime = 1 ' Set duration.
Start = Timer ' Set start time.
PleaseWait.Label1.Caption = "Waiting for Database to become available"
PleaseWait.Caption = "Database in use Please Wait"
Finish = Timer + 5 ' Set debug end time.
Do While Timer < Start + PauseTime
'debug--Pretend DB is busy 5 secs
If Finish < Timer Then
rsTransaction.Fields("IsBusy") = False
Loop Until (rsTransaction.Fields("IsBusy") = False)
Is there a "Paint-the-dang-form-before-anything-else" function?