MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Barra de Progresso

    avatar
    diogojoi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Barra de Progresso Empty Barra de Progresso

    Mensagem  diogojoi 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 : Respeito às Regras 100%

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

    Barra de Progresso Empty Re: Barra de Progresso

    Mensagem  Silvio 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 : Respeito às Regras 100%

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

    Barra de Progresso Empty Barra de Progresso

    Mensagem  diogojoi 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 45 vez(es)

    Conteúdo patrocinado


    Barra de Progresso Empty Re: Barra de Progresso

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:22