[Resolvido]Verificar Lançamento Duplicado

Prezados,

Boa noite tudo bem?

Preciso verificar quando o Subgrupo for igual a DIZIMOS o Dizimista e o valor dentro do mês de lançamento não poderá ser lançado 2 vezes.

O Sistema irá dar mensagem de "Registro Duplicado" e irá perguntar se confirma o lançamento.

Exemplo :

01/03/2022 - DIZIMOS - Antônio Carlos - 25,63
02/03/2021 - DIZIMOS - Antônio Carlos - 25,63 (Mensagem Registro Duplicado, Confirma ?)

Porém, quando o valor lançado é inteiro, funciona (Ex: 25,00) se for (Ex: 25,63) com centavos dá o seguinte ERRO :

"Erro em tempo de Execução "3077" Erro de Sintaxe (Vírgula) na Expressão"

Alguém poderia me dar uma luz ou apresentar outra forma de identificar quando o registro for duplicado ?

Segue o código :

Private Sub CxEntrada_AfterUpdate()
Dim rstConta As DAO.Recordset
Dim strConta As String
Dim rstValDizimo As DAO.Recordset
Dim strValDizimo As String
Dim intResp As Integer

If Me.SubGrupo = "Dizimos" Then
Set rstConta = CurrentDb.OpenRecordset("tbl_Caixa")
strConta = "[CCCodi]='" & Me.CCCodi & "'" & " And [CxMesRef] =#" & Me!CxMesRef & "#"
rstConta.FindFirst strConta

Set rstValDizimo = CurrentDb.OpenRecordset("tbl_Caixa")
strValDizimo = "[CxEntrada]=" & Me.CxEntrada & " And [CxMesRef] =#" & Me!CxMesRef & "#" & " And [CCCodi] ='" & Me!CCCodi & "'"
rstValDizimo.FindFirst strValDizimo ======> aqui apresenta ERRO quando o valor contém "Centavos"

If rstConta.NoMatch = True And rstValDizimo.NoMatch = True Then
MsgBox "O Lançamento já foi Realizado para este Dizimista", vbCritical, "Atenção !!!"
intResp = MsgBox("Confirma o Lançamento ?", vbYesNo, "Atenção !!!")
Select Case intResp
Case vbYes
CxSaida.SetFocus
Case vbNo
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord , , acFirst
DoCmd.SetWarnings True
End Select
End If
End If
End Sub

Muitíssimo grato,

Grande Abraço a todos,

Regis Borda

Na linha anterior tente trocando Me.CxEntrada, por

Código:

Replace(Replace(Me.CxEntrada, ".", ""), ",", ".")

Prezado Damasceno Jr.

Troquei a linha e agora qualquer lançamento de DIZIMO com valor com centavos dá mensagem que lançamento está duplicado mesmo que só tenha 1 registro.

Quando o valor é inteiro mesmo que tenha 2 registros iguais ele passa. Não dá mensagem de Registro Duplicado.

Grato,

Abs,

Regis Borda

Boa tarde
Será que tem o campo CxEntrada como número ou como texto?
Se fôr como texto, tem de envolver a expressão com pelicas

Prezado Alexandre,

O campo CxEntrada é número.

Não sei o que acontece só funciona com valor inteiro.

Com valor quebrado dá ERRO.

Tá complicado acertar isso

Abs

Regis Borda

Se é número deve alterar para aceitar 2 decimais tipo moeda, caso contrário não aceitará 25,63

Prezados,

Tentei esse código, porém não está funcionando.

Private Sub CxEntrada_BeforeUpdate(Cancel As Integer)
Dim intResp As Integer
Dim Contador As Integer

If Me.SubGrupo = "Dizimos" Then
Contador = DCount("[CCCodi] + [CxEntrada]", "tbl_Caixa", "[CxMesRef]=#" & Me.CxMesRef & "#" & " And [CCCodi]='" & Me.CCCodi & "'" & " And [CxEntrada]=" & Me.CxEntrada)
If Contador > 0 Then
MsgBox "O Lançamento já foi Realizado para este Dizimista", vbCritical, "Atenção !!!"
intResp = MsgBox("Confirma o Lançamento ?", vbYesNo, "Atenção !!!")
Select Case intResp
Case vbYes
CxSaida.SetFocus
Case vbNo
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord , , acFirst
DoCmd.SetWarnings True
End Select
End If
End If

End Sub

A função DCount não está funcionando não sei porque.

Alguém pode me dar um Help ? ou sugerir outra opção ?

Muito Grato,

Abs,

Regis

Prezados,

O Código final ficou assim :

Private Sub CxEntrada_LostFocus()
Dim intResp As Integer
Dim Contador As Integer
Dim Contador2 As Integer

If Me.SubGrupo = "Dizimos" Then
Contador = DCount("CCCodi", "tbl_Caixa", "CxMesRef=#" & Format(Me.CxMesRef, "mm/yyyy") & "#" & " And CCCodi='" & Me.CCCodi & "'" & " And CxEntrada=" & Str(Me.CxEntrada))
Contador2 = DCount("CxEntrada", "tbl_Caixa", "CxMesRef=#" & Format(Me.CxMesRef, "mm/yyyy") & "#" & " And CCCodi='" & Me.CCCodi & "'" & " And CxEntrada=" & Str(Me.CxEntrada))

If Contador > 0 And Contador2 > 0 Then
MsgBox "O Lançamento já foi Realizado para este Dizimista", vbCritical, "Atenção !!!"
intResp = MsgBox("Confirma o Lançamento ?", vbYesNo, "Atenção !!!")
Select Case intResp
Case vbYes
CxSaida.SetFocus
Contador = 0
Case vbNo
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord , , acFirst
Contador = 0
DoCmd.SetWarnings True
End Select
End If
End If
End Sub

Testei e está funcionando.

Muito grato pela ajuda,

Abs,

Regis Borda