[Resolvido]Problemas com código

Pessoal estou com problema de incompatibilidade neste código.
o problema é que eu uso alem de números , palavras como código e ao entrar com as palavras da erro

Private Sub codbarras_AfterUpdate()
Me.frmimagem.Visible = False
Me.texto52.Visible = True
If Idois = "2" Then
If IsNull(DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")) Then
MsgBox "Produto não Cadastrado ", vbInformation, "ATENÇÃO"

Exit Sub
End If
DoCmd.GoToControl "frmdetalhesvenda"
DoCmd.GoToRecord , , acNewRec
Forms!frmpontodevenda!texto52 = DLookup("PreçoUnitário", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!frmdetalhesvenda!quant = Nz(Idpeso) / (texto52) * 10 'Essa linha aqui que está atribuíndo a quantidade
'Forms!frmpontodevenda!txtqdeII = Nz(Idpeso) / (Texto52) * 10
Forms!frmpontodevenda!frmdetalhesvenda!vlrunitario = DLookup("preçounitário", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
'Forms!frmpontodevenda!frmdetalhesvenda!desc = Me.desc
Forms!frmpontodevenda!frmdetalhesvenda!LucroReal = DLookup("lucroreal", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!frmdetalhesvenda!descricao = DLookup("Descrição", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!frmdetalhesvenda!codbarras = DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!TxtProduto = DLookup("descrição", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!idproduto = DLookup("CódigoProduto", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!frmdetalhesvenda!Codproduto = DLookup("CódigoProduto", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!frmdetalhesvenda!Categoria = DLookup("categoria", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!frmdetalhesvenda!valorimposto = DLookup("valorimposto", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")
Forms!frmpontodevenda!codbarras = ""
Forms!frmpontodevenda!codbarras.SetFocus
'Forms!frmpontodevenda!frmdetalhesvenda!coddetalhevenda = Me.codvenda
DoCmd.RunCommand acCmdSaveRecord

'-------------------------
Dim baixa As Integer
Dim msg1
' On Error GoTo Err_Excluir_Click1
' DoCmd.SetWarnings False
Dim qtd1, qtd22 As Double
Dim sql11 As String

'Pega o valor do estoque atual do produto

qtd1 = DLookup("[QuantidadeEstoque] ", "[Tab_Produto]", "CódigoProduto = " & Me.idproduto & "")

'Exibe questionameto sobre a atualização da quantidade e atualiaza em caso de confirmação

qtd2 = Format(qtd1 - Forms!frmpontodevenda!frmdetalhesvenda!quant, "#,##0.00")

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT CódigoProduto, QuantidadeEstoque FROM Tab_Produto WHERE CódigoProduto=" & Me.idproduto & "")
rs.Edit
rs("QuantidadeEstoque") = qtd2
rs.Update
rs.Close

Me.Undo

' Me.Codproduto.Dropdown


Exit_Err_Excluir_Click1:
Exit Sub
Err_Excluir_Click1:
'msg = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click1
Else
If IsNull(DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras= '" & Int(Forms!frmpontodevenda!codbarras) & "'")) Then
MsgBox "Produto não Cadastro", vbInformation, "ATENÇÃO"
Exit Sub
End If
DoCmd.GoToControl "frmdetalhesvenda"
DoCmd.GoToRecord , , acNewRec

Forms!frmpontodevenda!frmdetalhesvenda!quant = Me.txtQtd 'Essa linha aqui que está atribuíndo a quantidade
'Forms!frmpontodevenda!frmdetalhesvenda!desc = Me.desc
Forms!frmpontodevenda!frmdetalhesvenda!vlrunitario = DLookup("PreçoUnitário", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
'#######################incluí a linha seguinte###################################
Forms!frmpontodevenda!frmdetalhesvenda!LucroReal = DLookup("lucroreal", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!frmdetalhesvenda!descricao = DLookup("Descrição", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!TxtProduto = DLookup("Descrição", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!frmdetalhesvenda!codbarras = DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!frmdetalhesvenda!Codproduto = DLookup("CódigoProduto", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!idproduto = DLookup("CódigoProduto", "Tab_Produto", "CódigoBarras= '" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!texto52 = DLookup("PreçoUnitário", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!frmdetalhesvenda!Categoria = DLookup("categoria", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!frmdetalhesvenda!valorimposto = DLookup("valorimposto", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")
Forms!frmpontodevenda!codbarras = ""

Forms!frmpontodevenda!codbarras.SetFocus
'Forms!frmpontodevenda!frmdetalhesvenda!coddetalhevenda = Me.codvenda
DoCmd.RunCommand acCmdSaveRecord
End If

Dim apaga As Integer
Dim msg
On Error GoTo Err_Excluir_Click
DoCmd.SetWarnings False

'Pega o valor do estoque atual do produto
qtd = Format(DLookup("[QuantidadeEstoque] ", "[Tab_Produto]", "[CódigoProduto] = " & Me.idproduto), "0.00")

'Exibe questionameto sobre a atualização da quantidade e atualiaza em caso de confirmação

qtd2 = qtd - txtQtd
sql1 = "UPDATE Tab_Produto SET QuantidadeEstoque = '" & qtd2 & "' WHERE CódigoProduto=" & Me.idproduto & ""
CurrentDb.Execute sql1

'Me.Undo

'Me.Codproduto.Dropdown


Me.txtQtd = 1

Exit_Err_Excluir_Click:
Exit Sub
Err_Excluir_Click:
msg = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click

End Sub

Bom dia,

Verifique se o campo da tabela está marcado como "Text" ou "Número". Caso esteja como número, passe para tipo texto.

Abraço.

bom dia !
campo é texto, está linha apresenta erro


If IsNull(DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras= '" & Int(Forms!frmpontodevenda!codbarras) & "'")) Then