Evento ao apertar tecla

Boa noite pessoal,

Estou precisando de ajuda no seguinte problema...

Criei um formulário com um campo para inserir os códigos dos produtos e escrevi um código que deveria rodar após apertar a tecla enter no evento "ao apertar tecla" mas quando teclo enter o cursor troca de campo e não executa a função. como poderia resolver este problema?

Código:

Private Sub TxtCodigoBarras_KeyDown(KeyCode As Integer, Shift As Integer)

 If ((KeyCode = 13) Or (KeyCode = 9)) Then
   If TxtCodigoBarras.Text <> "" Then
      entrarvalor
   End If
 End If
 
End Sub

-----------------------------------------------------------------------------------------------

Private Sub entrarvalor()

If TxtCodigoBarras.Value <> "" Then

If DCount("*", "DetalhedoPedido", "CodigoProduto = " & Me.TxtCodigoBarras & " AND CodigoPedido = " & Me.CodigoPedido & "") = 0 Then
    CurrentDb.Execute "INSERT INTO DetalhedoPedido(CodigoProduto, CodigoPedido, Quantidade, Retorno) VALUES(" & Me.TxtCodigoBarras & "," & Me.CodigoPedido & ", 1, 0 )"
Else
    CurrentDb.Execute "UPDATE DetalhedoPedido SET Quantidade = Quantidade + 1 WHERE CodigoProduto = " & Me.TxtCodigoBarras & " AND CodigoPedido = " & Me.CodigoPedido & ""
End If

DetalhedoPedidosub.Form.Requery
Me.TxtCodigoBarras = ""
Me.TxtCodigoBarras.SetFocus

End If

End Sub



Olá;

Nas propriedades do formulario tem de colocar "Visualizar Tecla" = SIM

Obrigado pela dica Paulo,

Mas ainda assim não funcionou, estou postando o BD para facilitar.