[Resolvido]Novo erro na caixa de combinação Produtos.

Boa noite pessoal

De novo eu aqui com um erro na caixa de combinação do meu detalhes de venda.
Estou enviando um print Screen da tela de vendas com o erro e o código abaixa, qualquer coisa existe mais material no meu tópica passado, senão é só pedir que eu envio.

Código:

Option Compare Database
Option Explicit

Private Sub cmbProdutosDetVendas_AfterUpdate()

Me.DescProduto = Me.cmbProdutosDetVendas.Column(1)
Me.UnidadeMedida = Me.cmbProdutosDetVendas.Column(2)
Me.VlrUnitario_DetVend = Me.cmbProdutosDetVendas.Column(3)
Me.VlrIcms = Me.cmbProdutosDetVendas.Column(4)
Me.VlrIpi = Me.cmbProdutosDetVendas.Column(5)
Me.Qtd_DetVend.SetFocus
Me.cmbProdutosDetVendas = Null

End Sub

Private Sub Qtd_DetVend_AfterUpdate()
Me.VlrTotal_DetVend.Value = Me.Qtd_DetVend * Me.VlrUnitario_DetVend
Me.VlrTotIcms = Me.VlrIcms * Me.Qtd_DetVend
Me.VlrTotIpi = Me.VlrIpi * Me.Qtd_DetVend
End Sub

Boa noite Samuel.

Faltou você postar em que ponto está dando o erro.
Clique no botão depurar e verifique o campo na sua tabela, talvez esteja menor do que precisa ou algum campo está sendo colocado errado no código.

Boa noite Claudio Machado..

O erro esta dando nesta linha:

Código:

Me.UnidadeMedida = Me.cmbProdutosDetVendas.Column(2)

Ja fui na tabela e desde quando montei o banco de dados ja tinha deixado 10 dígitos, sendo que o campo só precisa de dois.

Estou achando que a coluna esta errado no Script.

Bom dia

Problema resolvido, foi só retirar a primeira linha do Script da primeira mensagens e acrescentar alguns campos que faltou na caixa de combinação e deu certo.

Obrigado pela ajuda.

Boa tarde.
Que bom que conseguiu Samuel.  
O fórum agradece o retorno.