[Resolvido]Ajuda Ler codigo da balança!!

Amigos do forum,
Eu pegue esse exemplo https://www.maximoaccess.com/download.forum?id=7862, funciona perfeito.
Meu problema é o seguinte, além de usar código com 13 dígitos uso também com 3 ou 4 depende do produto cadastrado, quando cadastro um novo produto com código 123 por exemplo ele não da a quantidade de 1 ele soma 0,123 na quantidade. Como resolvo isso?

Olá Odair Santos, o link que postou do outro tópico não está a funcionar.

No entanto, pode controlar o tratamento do código pelo tamanho, utilizando a função do access Len

Exemplo:

Código:

If Len(codigoBarras) = 13 Then
'... Faz como ja tem
Else
'...faz aqui o tratamento para não ir buscar a quantidade
End If


Abraço

Amigo uso esse código:

If Len(txtCodBarras) = 13 Then
StrPeso = Mid(Me.txtCodBarras.Value, 9, 1) & "," & Right(Me.txtCodBarras.Value, 4)
StrPeso = CDbl(StrPeso)

Me.txtDescricao = DLookup("Descrição", "tblProdutos", "CodBarras ='" & Me.txtCodBarras & "'")
Me.txtValor = Format(DLookup("valorvenda", "tblProdutos", "CodBarras ='" & Me.txtCodBarras & "'"), "#,##0.000")
Me.txtQuant = StrPeso

Else

Me.txtDescricao = DLookup("Descrição", "tblProdutos", "CodBarras ='" & Me.txtCodBarras & "'")
Me.txtValor = Format(DLookup("valorvenda", "tblProdutos", "CodBarras ='" & Me.txtCodBarras & "'"), "#,##0.000")
End If

Até blz, mas ele não reconhece o código que começa com 2 ai é onde ta dando todo erro.

Olá, antes de tudo verifique o link da mensagem nº 1 e corrija p.f., assim ficará mais fácil para os utilizadores poderem ajudar.

Então conseguiu resolver parte!
Só acontece com código que começa por 2 e de que tamanho é?
Esse código existe na tabela, é estranho.
Talvez seja melhor postar base de dados com pequeno exemplo.
Abraço

o programa que vi e estou tentando usar é esse
https://www.dropbox.com/s/pqdz6aeiwxhzpj1/Balanca_13Digitos_new.zip?dl=0

Olá, testei aqui com código que abri 222 e funcionou, veja:

Então amigo funciona perfeito, mas tenho produtos que o códgo é 123, 124 etc e a quantidade é 1 pode ver que ai no seu teste a quantidade foi 0,222.
quero que quando o código começar com 2 ele saiba que é da balança e quando começar com outros numero ele passe normal e reconheça a quantidade 1

[img][/img]

Olá, agora compreendi, teste com este código:

Código:

Private Sub txtCodigoBarras_AfterUpdate()
On Error Resume Next
   
    Me.codProd = Left(Me.txtCodigoBarras.Value, 8)
   
    If IsNull(DLookup("CodigoBarras", "tblProdutos", "CodigoBarras='" & Me.codProd & "'")) Then
        MsgBox "Produto não cadastrado.", vbInformation, "Aviso"
        Me.codProd = ""
        Me.txtDescricao = ""
        Me.txtPrecoUnitario = 0
        Me.txtQtde = 1
        Me.txtCodigoBarras = ""
        Me.txtCodigoBarras.SetFocus
        DoCmd.CancelEvent
       
    Else
        Me.txtDescricao = DLookup("Descricao", "tblProdutos", "CodigoBarras ='" & Me.codProd & "'")
        Me.txtPrecoUnitario = Format(DLookup("PrecoUnitario", "tblProdutos", "CodigoBarras ='" & Me.codProd & "'"), "#,##0.000")
        'inicio alteracao -------------------------------
        If Left(Me.codProd, 1) = 2 Then
            Me.txtQtde = 1
        Else
            Me.txtQtde = Format(Mid(Me.txtCodigoBarras.Value, 9, 2) & "," & Right(Me.txtCodigoBarras.Value, 3), "#,##0.000")
        End If
        'fim -------------------------------------------
        Me.cmdIncluirProduto.Enabled = True
        Me.cmdIncluirProduto.SetFocus
    End If
End Sub


Abraço

Olá Odair Santos,
Estive a ler melhor a sua última mensagem e verifiquei que o exemplo acima, está a fazer ao contrário.
Onde está:
If Left(Me.codProd, 1) = 2 Then

deve alterar para:
If Left(Me.codProd, 1) <> 2 Then

Segue meu teste Balanca_13Digitos_rev.rar

Abraço

Amigo Alvaro Teixeira,
Gostaria de agradecer pela atenção que teve comigo. Era exatamente isso que eu precisava, funcionando 100%

Olá Odair Santos,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço