MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Barra de Progresso

    avatar
    diogojoi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 06/04/2016

    Barra de Progresso Empty Barra de Progresso

    Mensagem  diogojoi em 16/1/2019, 14:01

    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
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4480
    Registrado : 20/04/2011

    Barra de Progresso Empty Re: Barra de Progresso

    Mensagem  Silvio em 16/1/2019, 16:29

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    diogojoi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 06/04/2016

    Barra de Progresso Empty Barra de Progresso

    Mensagem  diogojoi em 16/1/2019, 18:09

    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
    Anexos
    Barra de Progresso AttachmentImagem BD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (417 Kb) Baixado 26 vez(es)

    Conteúdo patrocinado

    Barra de Progresso Empty Re: Barra de Progresso

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 03:55