[Resolvido]Ao ler codigo de barra somente considerar os 05 últimos digitos

Bom dia Galera!

Tenho um BD com um formulário de entrada, onde tenho um campo de texto para digitar o código de barra do equipamento.
Eu queria utilizar o leitor de código de barra para automatizar o meu trabalho.
Porém ao ler o código do equipamento ele faz uma viagem até a tabela de produtos cadastrados e copia os dados.
Ao cadastrar o produto no formulário de entrada, eu gostaria que só fosse cadastrado os 05 últimos dígitos do código de barra.

Alguém pode me ajudar?

Boa tarde,

Seucamposócom5ultimos = Left(Campocomtodos;5)


Caso precise mais ajuda poste aqui sua BD.
Abraço....

Bom dia!

Obrigado por sua sugestão!
Resolvi fazer via VBA por que BD vai funcionar em rede por isso ficou assim, conforme abaixo:

Private Sub CodigoNumeroSerie_AfterUpdate()
On Error GoTo Err_CodigoNumeroSerie_AfterUpdate

Me.CodigoNumeroSerie.Visible = True

If IsNull(DLookup("ItemProdutoNumeroSerie", "TabProdutoItem", "ItemProdutoNumeroSerie='" & Forms!FrmEntrada!CodigoNumeroSerie & "'")) Or (DLookup("ItemProdutoCincoNumeroSerie", "TabProdutoItem", "ItemProdutoCincoNumeroSerie='" & Forms!FrmEntrada!CodigoNumeroSerie & "'")) Then
MsgBox "Número de Serie Não Cadastrado", vbInformation, "ATENÇÃO"
Me.CodigoNumeroSerie.SetFocus
Exit Sub
Else

DoCmd.GoToControl "FrmEntradaItem"
DoCmd.GoToRecord , , acNewRec
Forms!FrmEntrada!FrmEntradaItem!EntradaItemQtde = Me.txtQtde 'Essa linha aqui que está atribuíndo a quantidade
Forms!FrmEntrada!FrmEntradaItem!EntradaItemCodigoProduto = DLookup("ItemProdutoCodigoInterno", "TabProdutoItem", "ItemProdutoNumeroSerie='" & Forms!FrmEntrada!CodigoNumeroSerie & "'")
Forms!FrmEntrada!FrmEntradaItem!EntradaItemProdutoNome = DLookup("ItemProdutoNome", "TabProdutoItem", "ItemProdutoNumeroSerie='" & Forms!FrmEntrada!CodigoNumeroSerie & "'")
Forms!FrmEntrada!FrmEntradaItem!EntradaNumeroSerie = Right(DLookup("ItemProdutoNumeroSerie", "TabProdutoItem", "ItemProdutoNumeroSerie='" & Forms!FrmEntrada!CodigoNumeroSerie & "'"), 5)
Forms!FrmEntrada!CodigoNumeroSerie = ""
Forms!FrmEntrada!CodigoNumeroSerie.SetFocus
Me.txtQtde = 1

Exit_CodigoNumeroSerie_AfterUpdate:
Exit Sub

Err_CodigoNumeroSerie_AfterUpdate:
MsgBox Err.Description
Resume Exit_CodigoNumeroSerie_AfterUpdate

End If
End Sub

Bom dia,

Ainda bem que resolveu....
Não se esqueça de marcar tópico como [Resolvido].
O Forum agradece....


Abraço...

Obrigado pela ajuda!