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]Concatenar Campos - Adicionar Ano apenas ultimos dois digitos

    Compartilhe
    avatar
    igorr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 06/12/2018

    [Resolvido]Concatenar Campos - Adicionar Ano apenas ultimos dois digitos

    Mensagem  igorr em 3/1/2019, 12:44

    Bom dia pessoal!

    Tenho uma tabela com os campos [CodigoProposta] e [Revisao]. Tenho um terceiro campo [NumerodaProposta] em que preciso ter os seguintes dados:
    SP [CodigoProposta].[Revisao].(dois últimos dias do ano)

    Exemplo: SP 0001.00.19

    Coloquei esse campo como calculado e inseri a expressão: ("SP " & [CodigoProposta] & "." & [Revisao] & ".19"). A minha duvida é a seguinte, Como que faço para os dois dígitos do ano serem inseridos de acordo com a data atual?


    Última edição por igorr em 4/1/2019, 10:10, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4244
    Registrado : 20/04/2011

    Re: [Resolvido]Concatenar Campos - Adicionar Ano apenas ultimos dois digitos

    Mensagem  Silvio em 3/1/2019, 13:13


    Algo parecido com isso

    & ( Format([Revisao]),"aa"))







    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 11/05/2012

    Re: [Resolvido]Concatenar Campos - Adicionar Ano apenas ultimos dois digitos

    Mensagem  grbpereira em 3/1/2019, 13:16

    Olá, Igor!

    Bom dia.  Laughing


    Caro Igor, por favor, veja que criei um campo "oculto" na tabela. sunny

    E na consulta criei a concatenação (você pode fazer a festa com as variedades). cyclops


    A Tempo... Veja que foi criado um índice (DUO) e um pequeno código VBA. cheers


    Um forte abraço,
    Guilherme B. Pereira
    Anexos
    Igor (Concatena).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 8 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5815
    Registrado : 15/03/2013

    Re: [Resolvido]Concatenar Campos - Adicionar Ano apenas ultimos dois digitos

    Mensagem  ahteixeira em 3/1/2019, 14:00

    Olá a todos

    Igor Cruz, se pretende que o ano seja da data do sistema, teste assim:

    Código:
    "SP " & [CodigoProposta] & "." & [Revisao] & "." & Right(Year(Date());2))

    Neste caso estamos a usar:
    Date() para ir buscar a data do sistema
    Year(...) para ir buscar o Ano da data dos sistema.
    Right(...,2) para ir buscar dois disgitos a partir da direita (poderiamos usar o format como o colega Silvio sugeriu)

    Nota: o título foi alterado para facilitar as "buscas" no fórum.

    Abraço a todos

      Data/hora atual: 23/3/2019, 13:28