MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]duvida em montar um codigo

    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]duvida em montar um codigo Empty [Resolvido]duvida em montar um codigo

    Mensagem  crb_sjrp 4/9/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

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]duvida em montar um codigo Empty Re: [Resolvido]duvida em montar um codigo

    Mensagem  Alexandre Neves 4/9/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
    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]duvida em montar um codigo Empty Re: [Resolvido]duvida em montar um codigo

    Mensagem  crb_sjrp 15/6/2014, 03:13

    valew

    Conteúdo patrocinado


    [Resolvido]duvida em montar um codigo Empty Re: [Resolvido]duvida em montar um codigo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:57