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]Erro ao visualizar

    avatar
    Aluizo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Erro ao visualizar Empty [Resolvido]Erro ao visualizar

    Mensagem  Aluizo em 21/10/2019, 15:46

    Ex: No formulário frmImprimir -  ao digitar – Matricula: 1 – mês: agosto – ano: 2019.
    Está repetindo o salário, como fazer para só sair o mês solicitado.

    Em anexo o bd para teste.

    Abraços, Aluizo
    Anexos
    [Resolvido]Erro ao visualizar AttachmentbdTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (83 Kb) Baixado 6 vez(es)


    Última edição por Aluizo em 24/10/2019, 13:52, editado 1 vez(es)
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 12/01/2015

    [Resolvido]Erro ao visualizar Empty Re: [Resolvido]Erro ao visualizar

    Mensagem  renpv em 24/10/2019, 00:58

    Não está filtrando por mês e ano. Substitua o código do relatório por esse
    Código:

    Private Sub RodapéDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
    Dim rs As DAO.Recordset
    Dim J As Byte
    Dim ValorDoc As Double
    Dim Contar As Byte
    Dim Item As Byte
    Dim ab
    Dim sql As String
    '----------------------------
    'Montar quadro demonstrativo
    '----------------------------
    'Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblSalario WHERE CodFuncionario = " & Val(CodFuncionario))
    sql = "SELECT * FROM tblSalario WHERE " & _
        " CodFuncionario = " & Forms!frmImprimir!PesquisaMatricula & _
        " AND MesSalario = '" & Forms!frmImprimir!PesquisaMes & _
        "' AND AnoSalario = '" & Forms!frmImprimir!PesquisaAno & "'"

    Set rs = CurrentDb.OpenRecordset(sql)
        

    Do While Not rs.EOF
        J = J + 1
        Contar = Contar + Nz(dm, 0) + 1
        Item = Item + Nz(cn, 0) + 1
        ValorDoc = ValorDoc + Nz(rs!Proventos, 0)
        ab = ab + Nz(rs!Desconto, 0)
        
        Me("dm" & J) = rs!Descricao & " " & String(80 - Len(rs!Descricao), "-")
        Me("vi" & J) = Format(rs!Desconto, "standard")
        Me("nu" & J) = FormatNumber(rs!CodDescricao, 0)
        Me("va" & J) = Format(rs!Proventos, "standard")
        Me("cn" & J) = Format(Item, "00 -")
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!ValorRecibo = Format(ValorDoc, "Standard") - Format(ab, "Standard")
    Me!Cont = Format(Contar, "00 - Itens")
    End Sub

    E segue o arquivo já alterado.

    Espero ter ajudado
    Anexos
    [Resolvido]Erro ao visualizar AttachmentbdTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 2 vez(es)
    avatar
    Aluizo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Erro ao visualizar Empty Re: [Resolvido]Erro ao visualizar

    Mensagem  Aluizo em 24/10/2019, 13:13

    Obriga Mestre Renpv, ficou na medida,
    Abraços, aluizo.
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 12/01/2015

    [Resolvido]Erro ao visualizar Empty Re: [Resolvido]Erro ao visualizar

    Mensagem  renpv em 24/10/2019, 16:36

    O fórum agradece o retorno.

    Sucesso.

    Conteúdo patrocinado

    [Resolvido]Erro ao visualizar Empty Re: [Resolvido]Erro ao visualizar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/11/2019, 03:48