MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [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 Seg 21 Out 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 Qui 24 Out 2019, 13:52, editado 1 vez(es)
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  renpv em Qui 24 Out 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 3 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 Qui 24 Out 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 : 323
    Registrado : 12/01/2015

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

    Mensagem  renpv em Qui 24 Out 2019, 16:36

    O fórum agradece o retorno.

    Sucesso.

      Data/hora atual: Qua 23 Set 2020, 17:56