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


3 participantes

    [Resolvido]Baixar parcela pesquisada

    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 11/01/2018

    [Resolvido]Baixar parcela pesquisada Empty [Resolvido]Baixar parcela pesquisada

    Mensagem  Anslu 8/10/2018, 14:39

    Bom dia! Tenho um formulário com o nome frm_QuitarParcela. peço uma ajuda a vocês,  para que quando eu clicar no botão baixar do formulário
    apareça um campo para eu pesquisar o numero da parcela. tentei várias vezes com as dicas que vocês me passaram mas não consegui.

    Desde já agradeço!
    Anexos
    [Resolvido]Baixar parcela pesquisada AttachmentSys_Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (510 Kb) Baixado 17 vez(es)
    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 11/01/2018

    [Resolvido]Baixar parcela pesquisada Empty Re: [Resolvido]Baixar parcela pesquisada

    Mensagem  Anslu 9/10/2018, 14:05

    No Aguardo!
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Baixar parcela pesquisada Empty Re: [Resolvido]Baixar parcela pesquisada

    Mensagem  scandinavo 9/10/2018, 19:58

    Ola

    Disponibilize já com as parcelas criadas

    ou você não consegui fazer esta parte funcionar?
    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 11/01/2018

    [Resolvido]Baixar parcela pesquisada Empty Re: [Resolvido]Baixar parcela pesquisada

    Mensagem  Anslu 10/10/2018, 13:58

    Desculpe a demora, segue BD


    Nome do Cliente que gerei parcelas Foi [b]Abílio[b]
    Anexos
    [Resolvido]Baixar parcela pesquisada AttachmentSys_Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (512 Kb) Baixado 8 vez(es)
    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 11/01/2018

    [Resolvido]Baixar parcela pesquisada Empty Re: [Resolvido]Baixar parcela pesquisada

    Mensagem  Anslu 13/10/2018, 00:34

    No Aguardo!

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Baixar parcela pesquisada Empty Re: [Resolvido]Baixar parcela pesquisada

    Mensagem  DamascenoJr. 13/10/2018, 17:56

    Alterações feitas. (... = código que já tinha)

    Nome do controle subformulário alterado para "SubForm"

    Código do botão Baixar
    Código:
    '----------------------------------------------------
    'desenvolvidor por Damasceno Jr. (Fórum MaximoAccess)
    '----------------------------------------------------

        Dim rs As DAO.Recordset
        Dim bytQtdParcelas As Byte
        Dim varValor As Variant
        Dim bytPriNaoQuitada As Byte
        
        Set rs = Me.SubForm.Form.RecordsetClone
        If Not rs.EOF Then
            Do
                If bytPriNaoQuitada = 0 Then If rs!Quitar = 0 Then bytPriNaoQuitada = Mid(rs!Parcelas, 1, InStr(rs!Parcelas, "/") - 1)
                bytQtdParcelas = bytQtdParcelas + 1
                rs.MoveNext
            Loop Until rs.EOF
            rs.MoveFirst
        End If
        rs.Close: Set rs = Nothing
            
        If bytPriNaoQuitada > 0 Then
            
            Do
            
                varValor = InputBox("Informe o número da parcela a ser quitada:" & vbNewLine & _
                                    vbNewLine & _
                                    "(total de parcelas: " & bytQtdParcelas & ")", "Parcelas", bytPriNaoQuitada)
                
                If StrPtr(varValor) = 0 Then Exit Sub 'interceptando botão cancelar da inputbox
                
                If IsNumeric(varValor) Then
                    If Eval(varValor & " between 1 and " & bytQtdParcelas) Then
                        ...
                        Me!SubForm.Form.Filter = "Parcelas = """ & varValor & "/" & bytQtdParcelas & """"
                        Me!SubForm.Form.FilterOn = True
                        Exit Sub
                    Else
                        MsgBox "Parcela informada não existe.", vbInformation, "Aviso"
                    End If
                Else
                    MsgBox "Informe um valor entre 1 e " & bytQtdParcelas & ".", vbInformation, "Aviso"
                End If
            
            Loop
        
        Else
            MsgBox "Não há parcelas a serem quitadas.", vbInformation, "Parcelas A Quitar"
        End If

    Código do evento "Ao Carregar"
    Código:
    ...
    Me.SubForm.Form.Filter = ""
    Me.SubForm.Form.FilterOn = False

    Código do botão Salvar
    Código:
    ...
    Me!SubForm.Form.Filter = ""
    Me!SubForm.Form.FilterOn = False
    ...
    Anexos
    [Resolvido]Baixar parcela pesquisada AttachmentSys_Teste_rev1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (518 Kb) Baixado 108 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Baixar parcela pesquisada Empty Re: [Resolvido]Baixar parcela pesquisada

    Mensagem  scandinavo 14/10/2018, 13:44

    fiz uma solução com imputbox mas não chega nem perto kkkkkkk
    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 11/01/2018

    [Resolvido]Baixar parcela pesquisada Empty Re: [Resolvido]Baixar parcela pesquisada

    Mensagem  Anslu 14/10/2018, 18:25

    Obrigado me ajudou!

    Conteúdo patrocinado


    [Resolvido]Baixar parcela pesquisada Empty Re: [Resolvido]Baixar parcela pesquisada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:45