Show a Progress Bar on Form Loading ...

[Josef P.]

@Josef P. said in Reply #10 to turn the timer on in the FormCurrent Event, then in the timer event to turn the timer off and load the subforms.

It does not have to be Current. It also works in Form.Load if you set the TimerInterval. The timer will still show its effect after Current.
See example in #14.

fix #41

Private Sub Form_Current()
    ' Dim FirstLoad As Integer ' is 0 for each new procedure execution (Content is removed from memory after exiting the procedure)
    static FirstLoad As Integer ' or use as modul variable
    If FirstLoad = 0 Then
        FirstLoad = 1
        Me.TimerInterval = 1
        Unload ufProgress ' Kill progress bar
    Else
        Me.TimerInterval = 0 ' Timer Off
    End If
End Sub

 

[Marshall Brooks]

Moving the timerInterval to Form_Load solved it - thanks for the quick reply!!!

 

[Marshall Brooks]

@Josef P. - I am seeing an issue now where OCCASIONALLY the two subforms that I delayed loading on fail to load at all and I just see white squares where they should be.

I'm not sure what causes this or how to recreate it. It seems like it happens maybe one time out of 10. Closing the form and re-opening it, it seems to work properly.

I used to see this happen if I had one form open in design view and then opened a different form (with the same subform on both forms), but I got a warning then. Now the subforms just aren't loaded.

I'm considered going back to loading the subforms before the main form, but wanted to see if you had suggestions.