Barra de Progresso

Bom Dia

Alguém poderia me ajudar

Tenho o formulário Venda onde tem botão gerar financeiro que abre a barra de progresso...

Como que eu poderia fazer quando terminar a barra de progresso gerar as parcelas na tela da venda...

a barra de processo está funcionando certinho e as parcelas também mas não sei como colocar os dois pra funcionar

Att
Diogo

Boa tarde....

Ao terminar a barra de progresso,

Private Sub Form_Timer()
On Error GoTo Err_Form_Timer
Call AccessTransparente(0)
Do Until L >= lbarlnth
   Call RunProgressBar(L)
   L = L + Steplth
   Pause 0.01
Loop
Pause 1
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "login"
Exit_Form_Timer:
  Exit Sub

Err_Form_Timer:
   MsgBox Err.Description
   Resume Exit_Form_Timer
End Sub


Uso o código acima, ao terminar a barra de progresso para abrir um formulário de acesso.   Veja após o Pause 1

Por não ter postado código algum, eu suponho que seja esse mesmo.

Troque....DoCmd.OpenForm "login" por...Call botão_Click

Eu estou usando esse código na Barra de Progresso:

Dim Escala As Single, I As Integer

'sngPct = varAmt / varTotal
Escala = (9.206 * 567) / 100

'Me.TimerInterval = 350

For I = 1 To 100
   If I < 100 Then
       'Me.Caption = Int(sngPct * 100) & "%"
       Me!cx2.Width = CLng(Escala * I)
     
       Pausa (0.0625)
   Else
       Me.Caption = "Greater than 100% - Check your amounts"
       Me!cx2.Width = CLng(Me!cx1.Width * 1)
       Me.TimerInterval = 0
   End If
   I = I + 1
Next I
Me.TimerInterval = 0
'Call CompactarBD


MsgBox "Financeiro Gerado!", vbInformation, "Financeiro"

DoCmd.Close acForm, "frm_liberar_financeiro"

End Sub




Aí e agora:  como que eu poderia fazer para ao terminar a barra de progresso gerar as parcelas no formulário ordem de Serviço.

O Cogido de gerar parcelas no formulário ordem de serviço é grande não sei onde colocar

Eu fiz um botão gerar parcelas e coloquei o código ao clicar e funciona certinho...

Mas eu queria que quando terminar a barra de progresso gerar as parcelas no formulário ordem de Serviço.

da uma olhada no Imagem em anexo
Aguardo retorno