MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]duvida em montar um codigo

    Compartilhe

    crb_sjrp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    [Resolvido]duvida em montar um codigo

    Mensagem  crb_sjrp em Qua 04 Set 2013, 08:23

    galera preciso de ajuda no seguinte

    tenho um campo codigo de barras = mascara 0000000000000 que conten 13 digitos


    ai tenho os campos = id, preco venda e preco sugerido


    gostaria que o codigo de barras fosse formado do seguinte



    id + preco sugerido ate ai e facil


    mas quero que fique assim o codigo de barras


    id = 250

    preco sugerido = 896.50



    no codigo de barras ele montasse assim


    2500000089650 = 13 digitos

    ou assim
    id = 129
    preco sugerido = 96.50


    1290000009650 = 13 digitos


    alguem pode me ajudar

    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6441
    Registrado : 05/11/2009

    Re: [Resolvido]duvida em montar um codigo

    Mensagem  Alexandre Neves em Qua 04 Set 2013, 09:08

    Bom dia!
    Function FmtCodBarras(Id As Integer, Preco As Double) As String
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' '
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    ' o código pode ser utilizado livremente, desde que mencionado este cabeçalho e acrescentado o utilizador '
    ' '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'em 2013-09-04 para crb_sjrp
    FmtCodBarras = Format(Preco * 100, "0000000000000")
    FmtCodBarras = Id & Mid(FmtCodBarras, Len(Id) + 2)
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    crb_sjrp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    Re: [Resolvido]duvida em montar um codigo

    Mensagem  crb_sjrp em Dom 15 Jun 2014, 03:13

    valew

      Data/hora atual: Sab 21 Out 2017, 09:42