Display "Loading" In Label While Loading DataEnvironment

[CAPiTA]

I have a cbo on a form that loads a large dataenvironment. It takes 20-40 seconds to load the data, during which time I want a label on the form to display "Loading Data...". I've tried the following code, but the label goes blank when the data is loading. What did I do wrong?

Dim Str1 as String
Dim Str2 as String

Private Sub Form_Load()
   Str1 = "Ready"
   Str2 = "Loading Data..."
End Sub

Private Sub Combo1_Click()
If Combo1 = 001
   If Not Label1.Caption = Str2 Then
      Label1.Caption = Str2
   End If
   DataEnvironment1.Command1.Open
   If Not Label1.Caption = Str1 Then
      Label1.Caption = Str1
   End If
End If
End Sub

 

[gmmastros]

I recommend you add a DoEvents() after setting the label's caption.

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[CAPiTA]

I tried the following and got the same result. Is the syntax right?

Dim Str1 as String
Dim Str2 as String

Private Sub Form_Load()
   Str1 = "Ready"
   Str2 = "Loading Data..."
End Sub

Private Sub Combo1_Click()
If Combo1 = 001
   If Not Label1.Caption = Str2 Then
      Label1.Caption = Str2
      DoEvents
   End If
   DataEnvironment1.Command1.Open
   If Not Label1.Caption = Str1 Then
      Label1.Caption = Str1
      DoEvents
   End If
End If
End Sub

 

[ChewDoggie]

I think the doevents should come after the open statement:

Private Sub Combo1_Click()
If Combo1 = 001
If Not Label1.Caption = Str2 Then
Label1.Caption = Str2
End If
DataEnvironment1.Command1.Open
doevents
If Not Label1.Caption = Str1 Then
Label1.Caption = Str1
End If
End If
End Sub

HTH



ciao for niao!

AMACycle

American Motorcyclist Association

http://www.ama-cycle.org

 

[gmmastros]

The syntax looks ok.

Try something like this...

Private Sub Combo1_Click()
  If Combo1 = 001
    Label1.Caption = "Loading..."
    DoEvents
 
    DataEnvironment1.Command1.Open
   
    Label1.Caption = "Ready"
    [green]' You probably don't need this one.[/green]
    DoEvents
    
  End If
End Sub

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[strongm]

I'd probably use a .Refresh rather than a DoEvents