Progress Bar Issues

[trsisko]

I'm using for following. It works great apart from Today, it seems to rerun an old progress bar from where I had issues. It's almost like it doesn't full clear and reload when required. anyone have any ideas?

Function TotalQuestions() As Integer
    TotalQuestions = Application.CountA(shQuestions.Columns(6))
End Function

    'Load Controls with Data
    Me.Label2.Width = 361.1 * (m_QID / m_TotalUniqueQuestions)
    Me.Label2.Caption = Format((m_QID / m_TotalUniqueQuestions), "0.0%")
    Me.lblQID.Caption = m_QID
    Me.lblQuestion.Caption = m_Question
    Me.LblDesc.Caption = strQInfo(2)

 

[RoryA]

Those 2 pieces of code don't appear to relate to each other and, although I can roughly guess what the second is supposed to do, I don't know how you're calling it or have any idea in what way it is flawed. Can we have a hint or two?

 

[trsisko]

Prior to this code running the Progress Bar doesn't always redraw. Anyone have any ideas how I can get the control to refresh prior to reload?

    Me.Label2.Width = 361.1 * (m_QID / m_TotalUniqueQuestions)
    Me.Label2.Caption = Format((m_QID / m_TotalUniqueQuestions), "0.0%")
    Me.lblQID.Caption = m_QID
    Me.lblQuestion.Caption = m_Question
    Me.LblDesc.Caption = strQInfo(2)

 

[trsisko]

I have tried the above code with no success. Would it not work as well if I somehow cleared the Array on Exit?

Dim m_TotalUniqueQuestions As Integer

    Dim n As Long
For n = 1 To 10
Label2.Visible = Not Label2.Visible
DoEvents
    Me.Repaint
    Me.Label2.Width = 361.1 * (m_QID / m_TotalUniqueQuestions)
    Me.Label2.Caption = Format((m_QID / m_TotalUniqueQuestions), "0.0%")
    Me.lblQID.Caption = m_QID
    Me.lblQuestion.Caption = m_Question
    Me.LblDesc.Caption = strQInfo(2)
Next n