[Resolvido]Registro Duplicado dentro de um período

Bom dia a todos do fórum,

Prezados mestres, gostaria de uma pequena ajuda de vocês.... já verifiquei alguns exemplos aqui no fórum, porém, não consegui resolver ainda meu problema. É o seguinte:

Tenho um formulário de recibo de pagamento, onde o (prestador de serviços) pode receber até mas de uma vez por mês, porém, só pode ser descotado uma vez por mês determinado imposto(DescV), embora ele possa receber pagamentos mas de uma vez no mesmo mês. Bem, meu sistema está funcionando perfeitamente fazendo tudo certo.

a grande questão é: ao fazer um novo recibo, preciso saber se daquele (prestador de serviço) já foi recolhido naquele mês o imposto(DescV), se já tiver sido recolhido, não recolhe mais e avisa que já foi recolhido durante aquele mês... se ainda não tiver, faz o desconto.

nome da tabela é: tblRPA (os mesmos campos do formulário)

formulário : ReciboRPA

campos do formulário para verificação: Dt_emissao, Codprest e DescV

Desde já, agradeço o apoio que sempre tive aqui neste fórum.

Atenciosamente,
Cláudio Ramos

No evento que registraria o imposto coloque

Código:

if dcount("*","tblRPA","Month(Dt_emissao) = " & Month(Me!Dt_emissao) & " and Codprest = " & me!Codprest) > 0 then
  'código sem registrar o imposto
else
  'código registrando o imposto
end if

prezado colega IvanJr, o código está retornando com se todos, não importa a data que eu coloque, como se já tivesse sido descontado.

eu preciso saber se durante o mês a que a Dt_emissao se refere, o prestador ja tenha algum pagamento, se já foi descontado o imposto, o sistema da o alerta, senão o sistema faz o desconta.

Atenciosamente;
Cláudio Ramos

Entendi bem o que queres, mas... Sem o arquivo do banco para análise é difícil resolver pois sempre há algo que se deixa passar na estrutura. Para uma maior precisão na solução do seu problema, anexe aqui seu banco com os objetos envolvidos. Aguardamos.

Segue uma parte do banco para fazer os testes.

Atenciosamente,

Cláudio Ramos

Função criada

Código:

Private Sub fncChecaDesc()

    Dim curDesconto As Currency
   
    curDesconto = Nz(DMax("DescV", "tblRPA", "format(Dt_Emissao,""mm/yyyy"") = """ & Format(Me!Dt_Emissao.Value, "mm/yyyy") & """ and CodPrest = " & Me!CodPrest.Value), 0)

    If curDesconto = 0 Then
        Call MsgBox("desconto ainda não aplicado")
    Else
        Call MsgBox("desconto já aplicado")
    End If
   
End Sub

Evento após atualizar dos controles Dt_Emissao e Codprest usando o código abaixo que verifica se os controles usados como filtros estão preenchidos

Código:

If Nz(Me!Dt_Emissao.Value, 0) = 0 Or Nz(Me!CodPrest.Value, 0) = 0 Or (Not Me.NewRecord) Then Exit Sub
   
Call fncChecaDesc

Bom dia a todos do fórum, gostaria de agradecer ao Mestre IvanJr. pela ajuda. funcionou perfeitamente.

O fórum agradece o retorno. Sucesso.