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


    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Williams_2016
    Williams_2016
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/07/2016

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Mensagem  Williams_2016 em 7/7/2016, 16:55

    Olá pessoal estou uma dúvida imensa, eu tenho um sistema de registros, e gostaria que o mesmo me retornasse um número de protocolo, pois serviria para finalização do meu registro.

    Gostaria de preferência que os comandos pelo menos inicia-se com 2016. e que eu pudesse ao menos multiplicar ficando assim:

    Ex: 2016001025463    Ou    OS:20160008543


    Como realizo um procedimento para que possa criar estes números automaticamente para cada novo registro efetuado. Bom eu Tenho uma data de ocorrência em um outro textBox e gostaria que a data da ocorrência fosse uma variável para exibição do protocolo.

    para cada novo registro e para cada nova data o número do protocolo alterasse continuamente.
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 08/10/2012

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Re: Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Mensagem  Sidney em 7/7/2016, 18:46

    Wilians Boa Tarde!!

    Para montar um código de protocolo você pode associar alguns campos por exemplo: o código do registro de chave primaria, datas e outros campos referente, para facilitar o entendimento seria interessante você postar uma pequena parte do seu projeto,

    no aguardo

    Att; Sidney

    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 08/10/2012

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Re: Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Mensagem  Sidney em 7/7/2016, 19:51

    Amigo

    Veja esse exemplo em anexo e ver se atende as suas necessidades, se sim, faça a adaptação ao seu projeto,

    no aguardo...

    Att; sidney
    Anexos
    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox AttachmentDatabase41.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 60 vez(es)
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Re: Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Mensagem  FabioPaes em 8/7/2016, 02:06

    So pra complementar a resposta a cima...


    Amigão, seguindo essa logica, vc pode ficar a vontade e criar seu proprio codigo... Veja uma ideia,

    Me.CodProtocolo = Format(DataServico, "yyyy") & (Me.[Código] & Format(Now, "mmss") * 5) + 2

    Pega o Ano(2016),o Codigo (1), os minutos e segundos e multiplica por 5 (0530*5)05min 30seg e ao final soma mais 2.

    Claro, essa é so pra lhe dar ideias de como pode fazer...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Re: Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Mensagem  FabioPaes em 8/7/2016, 02:07

    Claro, se quer algo mais elaborado, veja esse modulo que cria codigos Alfanumericos de 24 Caracter (com os que vc escolher) Essa funcção e daqui mesmo site...



    *** Gerar codigo Aleatório AlfaNumericos de 24 Caracter:

    Criar um Modulo e colcar:

    '-----------------------Inicio da Função---------------------------------'

    Function Autentica() As String
    alfanumerico = "ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw*/+-@#$%&"
    For I = 1 To 24

    Randomize
    X = Int(Rnd * Len(alfanumerico)) + 1
    If InStr(1, sequencia, Mid(alfanumerico, X, 1)) Then
    I = I - 1
    Else
    sequencia = sequencia & Mid(alfanumerico, X, 1)
    End If
    Next
    Autentica = sequencia
    End Function

    '-----------------------Fim------------------------------------------------'


    Para Chamar a Função em campo do Formulario:

    =Autentica()

    Para aplicar o valor a um campo pelo VBA:

    Me.NomeCampo = Autentica()


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 08/10/2012

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Re: Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Mensagem  Sidney em 8/7/2016, 12:27

    Bom dia!

    Muito bem Fabio, bem colocado.

    Att; Sidney
    Williams_2016
    Williams_2016
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/07/2016

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Ainda estou tendo dificuldades em gerar este protocolo...

    Mensagem  Williams_2016 em 22/7/2016, 23:09

    Os comandos que vocês me enviaram tentei mais não consegui, devo estar fazendo algo de errado. Porém gostaria se tive-se como alguém postar um exemplo bem básico através de vídeo para que eu possa ir acompanhando.

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox 2uehb20

    Desde já estou enviando o meu trabalho para que vocês possam me ajudar a esclarecer mais está dúvida que me atormenta a um certo tempo.


    Obrigado pessoal.



    Whatsapp (82) 98882-1133
    E-mail: williamsrodrigues2013@gmail.com
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Re: Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Mensagem  crysostomo em 15/7/2019, 22:07

    fabio boa noite esse seu não esta dando certo , pode mandar anexo?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado

    Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox Empty Re: Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/12/2019, 18:16