[Resolvido]Como multiplicar Quantidade x Código

Ola pessoal como faço para multiplicar Quantidade* código em enviar para lista.
Segue exemplo para melhor entendimento.
http://speedy.sh/KKGfW/ProjetoPDV.rar

Boas Alexandre.. Forneça-nos mais detalhes.

Cumprimentos.

Ola Amigo Piloto bom te ver aqui de novo!
Bom eu gostaria de fazer o seguinte entrar com a quantidade*o código do produto no mesmo campo é este popular para lista de compra.

Qual Form?

Frmvendas coloquei a duvida no form em vermelho.

Veja se ajuda... abra o FVenda

É exatamente isto que eu quero,já conhecia este exemplo,mas não estou sabendo adaptar ao meu projetoa

Seu Sub form onde apresenta os detalhes da venda está todo bagunçado...
onde é para exibir Quant não tem caixa texto, onde é para exibir o Valor Unit está apresentando a quantidade....

Corrija isto...

Esta feito até onde se inicia a impressão do cupom:

Private Sub CodBarras_AfterUpdate()
Dim Posicao As Integer
Dim codigoProduto As Long
Dim qtdProduto As Double

 Me.Texto52.Visible = True
 
Posicao = InStr(CodBarras, "*")

   If Posicao > 0 Then
        codigoProduto = CLng(Left(CodBarras, Posicao - 1))
        qtdProduto = CDbl(Right(CodBarras, Len(CodBarras) - Posicao))
    Else
      codigoProduto = CLng(CodBarras)
      qtdProduto = 1
    End If
    
If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")) Then
MsgBox "Produto Não Cadastro", vbInformation, "ATENÇÃO"
Exit Sub
End If
DoCmd.GoToControl "detalhevenda"
DoCmd.GoToRecord , , acNewRec
Forms!frmvendas!detalhevenda!Quant = qtdProduto 'Essa linha aqui que está atribuíndo a quantidade
Forms!frmvendas!detalhevenda!ValorUnit = DLookup("valorunit", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Texto3 = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!txtproduto = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Codproduto = DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")
RunCommand acCmdSaveRecord

'===============================================
'Inicia a impressão do cupom
'===============================================

Cumprimentos.

Nao há mais necessidade da caixa texto onde exibe o X bem acima no form... Basta digitar no cod de Barras 1 * 3 e de um tab ou enter

Cumprimentos.

Grande Piloto ,seria isso mesmo porém ao digitar um código de 13 caracteres da a seguinte mensagem de erro.
Erro em tempo de Execução"6"
Estouro
e vai para depurador.

A variável Posicao... coloque como Long:

Dim Posicao As Long


Cumprimentos.

Continua a depurar para seguinte linha
If Posicao > 0 Then
codigoProduto = CLng(Left(CodBarras, Posicao - 1))
qtdProduto = CDbl(Right(CodBarras, Len(CodBarras) - Posicao))
Else
codigoProduto = CLng(CodBarras)
qtdProduto = 1
End If
onde está em amarelo

vejam o código
Private Sub CodBarras_AfterUpdate()
Dim Posicao As Integer
Dim codigoProduto As Long
Dim qtdProduto As Double

Me.Texto52.Visible = True

Posicao = InStr(CodBarras, "*")

If Posicao > 0 Then
codigoProduto = CLng(Left(CodBarras, Posicao - 1))
qtdProduto = CDbl(Right(CodBarras, Len(CodBarras) - Posicao))
Else
codigoProduto = CLng(CodBarras) esta linha da Depuração
qtdProduto = 1
End If

If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")) Then
MsgBox "Produto Não Cadastro", vbInformation, "ATENÇÃO"
Exit Sub
End If
DoCmd.GoToControl "detalhevenda"
DoCmd.GoToRecord , , acNewRec
Forms!frmvendas!detalhevenda!Quant = qtdProduto 'Essa linha aqui que está atribuíndo a quantidade
Forms!frmvendas!detalhevenda!ValorUnit = DLookup("valorunit", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Texto3 = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!txtproduto = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Codproduto = DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")
RunCommand acCmdSaveRecord
End Sub

Mas qual o erro?

Continua a dar erro de execução "6" Estouro
E Depura para esta Linha do código
codigoProduto = CLng(CodBarras)

Private Sub CodBarras_AfterUpdate()
Dim Posicao As Long
Dim codigoProduto As Variant
Dim qtdProduto As Double

Me.Texto52.Visible = True

Posicao = InStr(CodBarras, "*")

If Posicao > 0 Then
codigoProduto = CLng(Left(CodBarras, Posicao - 1))
qtdProduto = CDbl(Right(CodBarras, Len(CodBarras) - Posicao))
Else
codigoProduto = Me.CodBarras
qtdProduto = 1
End If



Cumprimentos.

Não Funcionou deu certo ! da vários erros

Veja....

veja?

Baixe o exemplo na mensagem anterior..

Havia dado erro.

Inte.

Valeu Piloto era isso mesmo!
obrigado mais uma vez.

O Fórum agradece o retorno.