Dado parou de registar na tabela.

Olá pessoal.
No sistema do local onde trabalho tem um formulário onde inserimos dados sobre o movimento de caixa. Estava rodando perfeitamente mas nos últimos tempos tem um erro acontecendo.

No campo FORMA DE PAGAMENTO colocamos o tipo de moeda que foi pago.


O dado que é colocado neste campo deveria ir para tabela na coluna CX_CodMovimento:


Acontece que ele não está mais fazendo isso.

Consegui achar o código aqui:

Código:

Private Sub btn_Confirmar_Click()
    ' * Gravação do s dados *
    'Eliminação dos nulos
    ' Obtenção da data prevista para pagamento
    ' Débito => txt_Movimento + 1 dia últil, Crédito => txt_Dt_Movimento + 30 dias
    ' Caso cair em sab ou domingo passar para próxima segunda
    Dim txt_CodMovimento As String  ' <=* Controle Cartão (Variável local)
    If txt_Entrada > 0 Then
     txt_Saida = 0
    End If
    If txt_Saida > 0 Then
       txt_Entrada = 0
    End If
    
    '*Identificação de Cartão *
    
    If txt_FormaPagamento = "CARTAO DEBITO" Or txt_FormaPagamento = "CARTAO CREDITO" Then
        txt_CodMovimento = 1
       Else
        txt_CodMovimento = 2
    End If
    
    gv = 1 '* GV = 0 Bloqueio da gravação *
    If gv = 0 Then
        MsgBox "Gravação Bloqueada"
    End If
    
    If gv = 1 Then
        Cx_Dt_Registro = txt_DtRegistro
        Cx_Dt_Movimento = txt_DtMovimento
        Cx_NumDoc = txt_NumDoc
        Cx_TipoDoc = txt_TipoDoc
        Cx_Tp_Movimento = txt_TpMovimento
        Cx_Dt_Registro = txt_DtRegistro
        Cx_Dt_Movimento = txt_DtMovimento
        Cx_Classificacao = txt_Classificação
        Cx_TipoDoc = txt_TipoDocumento
        Cx_CodMovimento = txt_CodMovimento ' <=* Controle Cartão
        Cx_OprCartao = txt_OperadoraCartao
        Cx_NumDoc = txt_NumDoc
        Cx_Tp_Movimento = txt_TpMovimento
        Cx_Historico = txt_Historico
        Cx_entrada = txt_Entrada
        Cx_Saida = txt_Saida
        Cx_FormaPagamento = txt_FormaPagamento
        Cx_CodEvento = txt_CodEvento
        Cx_Evento = txt_Evento
        Cx_dthoraRegistro = Date & Time()
        ' * Ocultação caixa "txt_OperadoraCartao"
        txt_OperadoraCartao.Visible = False
        rot_OperadoraCartao.Visible = False
        cmb_Bandeira.Visible = False
        ' * Limpesa de variáveis após gravação *
        txt_DtMovimento = ""
        txt_Classificação = ""
        txt_TipoDocumento = ""
        txt_NumDoc = ""
        txt_TpMovimento = ""
        txt_Historico = ""
        txt_Entrada = 0
        txt_Saida = 0
        'txt_FormaPagamento = ""
        txt_CodEvento = ""
        txt_Evento = ""
        txt_OperadoraCartao = ""
        txt_FormaPagamento = ""
        txt_Entrada = 0
        txt_Saida = 0
        txt_CodMovimento = 2
        
        '* Insercao de dados na tabela [tba_Cartoes] *
        If txt_FormaPagamento = "CARTAO DEBITO" Or txt_FormaPagamento = "CARTAO CREDITO" Then
            CurrentDb.Execute "INSERT INTO tab_Cartoes(CRT_DTREG,CRT_DTMOV,CRT_FORMAPAGAMENTO,CRT_OPERADORACARTAO,CRT_VLRENTRADA,CRT_CODEVENTO,CRT_Dthora) VALUES('" & Me.txt_DtRegistro & "','" & txt_DtMovimento & "','" & Me.txt_FormaPagamento & "','" & Me.txt_OperadoraCartao & "','" & Me.txt_Entrada & "','" & Me.txt_CodEvento & "','" & txt_hora & "')"
        End If
        txt_FormaPagamento = ""
        txt_OperadoraCartao.Visible = False
        rot_OperadoraCartao.Visible = False
        cmb_Bandeira.Visible = False

    Else
        'MsgBox " Gravar Cartão - txt_CodMovimento = " & txt_CodMovimento
        'txt_FormaPagamento = ""
        'Dim txt_hora As String
        txt_hora = Date & Time()
        MsgBox txt_hora
        '* Insercao de dados na tabela [tba_Cartoes] Teste sem gravar no Caixa *
        'If txt_FormaPagamento = "CARTAO DEBITO" Or txt_FormaPagamento = "CARTAO CREDITO" Then
        '    CurrentDb.Execute "INSERT INTO tab_Cartoes(CRT_DTREG,CRT_DTMOV,CRT_FORMAPAGAMENTO,CRT_OPERADORACARTAO,CRT_VLRENTRADA,CRT_CODEVENTO,CRT_Dthora) VALUES('" & Me.txt_DtRegistro & "','" & txt_DtMovimento & "','" & Me.txt_FormaPagamento & "','" & Me.txt_OperadoraCartao & "','" & Me.txt_Entrada & "','" & Me.txt_CodEvento & "','" & txt_hora & "')"
        'End If
        txt_OperadoraCartao.Visible = False
        rot_OperadoraCartao.Visible = False
        cmb_Bandeira.Visible = False

        ' * Limpesa teste sem gravação *
        txt_DtMovimento = ""
        txt_Classificação = ""
        txt_TipoDocumento = ""
        txt_NumDoc = ""
        txt_TpMovimento = ""
        txt_Historico = ""
        txt_Entrada = 0
        txt_Saida = 0
        txt_FormaPagamento = ""
        txt_CodEvento = ""
        txt_Evento = ""
        txt_OperadoraCartao = ""
        txt_FormaPagamento = ""
        txt_Entrada = 0
        txt_Saida = 0
    End If
End Sub

Private Sub btn_Limpar_Click()
  'txt_DtRegistro = ""
  txt_DtMovimento = ""
  txt_Classificação = ""
  txt_TipoDocumento = ""
  txt_NumDoc = ""
  txt_TpMovimento = ""
  txt_Historico = ""
  txt_Entrada = 0
  txt_Saida = 0
  txt_FormaPagamento = ""
  txt_CodEvento = ""
  txt_Evento = ""
  txt_OperadoraCartao = ""
  txt_OperadoraCartao.Visible = False
  rot_OperadoraCartao.Visible = False
  cmb_Bandeira.Visible = False
End Sub

Private Sub cmb_Bandeira_Click()
    txt_OperadoraCartao = cmb_Bandeira.Column(0)
End Sub

Private Sub cmb_Eventos_Click()
    txt_CodEvento = cmb_Eventos.Column(2)
    txt_Evento = cmb_Eventos.Column(3)
End Sub

Private Sub cmb_FormaPagamento_Click()
    txt_FormaPagamento = cmb_FormaPagamento.Column(0)
    If txt_FormaPagamento = "CARTAO DEBITO" Or txt_FormaPagamento = "CARTÃO CREDITO" Then
            rot_OperadoraCartao.Visible = True
            txt_OperadoraCartao.Visible = True
            cmb_Bandeira.Visible = True
    End If
End Sub

Private Sub cmb_Historico_Click()
    txt_Historico = cmb_Historico.Column(2)
End Sub

Private Sub cmb_TpDocumento_Click()
    txt_TipoDocumento = cmb_TpDocumento.Column(0)
End Sub

Private Sub cmb_TpMovimento_Click()
    txt_TpMovimento = cmb_TpMovimento.Column(0)
End Sub

Private Sub Combinação21_Click()
    txt_FormaPagamento = Combinação21.Column(0)
End Sub

Private Sub Combinação65_Click()

End Sub

Private Sub Form_Load()
    txt_DtRegistro = Date
    txt_Entrada = 0
    txt_Saida = 0
End Sub

Meu conhecimento é bem básico e não consigo ver onde pode estar errado...

alguem poderia me ajudar?

Boa noite, e bem-vindo ao fórum
E acontece em todos os registos? Se sim, reveja o que tenha alterado

Se não conseguir solucionar, disponibilize dados significativos para se avaliar