[Resolvido]Erro ao visualizar

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

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

Obriga Mestre Renpv, ficou na medida,
Abraços, aluizo.

O fórum agradece o retorno.

Sucesso.