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


    [Resolvido]Baixar parcela pesquisada

    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Anslu em 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 16 vez(es)
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Anslu em 9/10/2018, 14:05

    No Aguardo!
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  scandinavo em 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 100%

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

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

    Mensagem  Anslu em 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 7 vez(es)
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Anslu em 13/10/2018, 00:34

    No Aguardo!

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. em 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 55 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  scandinavo em 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 100%

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

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

    Mensagem  Anslu em 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: 9/12/2019, 02:06