[Resolvido]Pegar numero de Nota fiscal

ola Pessoal

tenho um numero de nota (43190492665611032290550220006911361136412174)

preciso pegar so o numero da nota (691136)

fiz 2 caixas de texto uma com nome txtNota pega o numero todo da nota

e outra para txtnumero da nota mas nao sei como pegar o numero

alguem poderia me ajudar

ola pessoal

consegui com esse codigo mas esta dando erro em tempo de execução "94" uso de null invalido

Dim valor As String
valor = DLookup("txtNota", "tblTeste") erro nessa linha
Me.txtEsquerda = Left(valor, 28)
Me.txtDireita = Right(valor, 10)
Me.txtNumeroNota = Mid(valor, 29, 6)

tambem esta gravando so um numero de nota no txtnumeronota

43190392665611000177550010006981121084081112 = 698112 esse é número
43190392665611000177550010006981091084075095 = 698109
43190392665611000177550010006981101084078109 = 698110

mas grava para todos so esse numero 698109 para todas notas que eu leio no leitor

alguem poderia me ajudar

valor é um nome reservado do access.


Dim NNota As String
NNota = Me.NCodigo
'valor = DLookup("txtNota", "tblTeste") erro nessa linha
'falta o criterio por isto sempre vai buscar o primeiro registro da tabela
'NNota = DLookup("seucampoTabela", "suaTabela", "seucampoTabela='" & Me.seucampoFormulario & "'") 'para texto
'NNota = DLookup("seucampoTabela", "suaTabela", "seucampoTabela=" & Me.seucampoFormulario & ") 'para numero

Me.txtEsquerda = Left(NNota, 28)
Me.txtDireita = Right(NNota, 10)
Me.txtNumeroNota = Mid(NNota, 29, 6)

ola scandinavo

funcionou certinho o seu codigo.

muito obrigado pela sua atenção

Valeu agora de o tópico como resolvido

valeu eu esqueci de clicar no resolvido

obrigado