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


4 participantes

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

    Williams_2016
    Williams_2016
    Novato
    Novato


    Respeito às regras : 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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    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 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 89 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    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 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    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 8/7/2016, 12:27

    Bom dia!

    Muito bem Fabio, bem colocado.

    Att; Sidney
    Williams_2016
    Williams_2016
    Novato
    Novato


    Respeito às regras : 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 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    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 15/7/2019, 22:07

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    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: 23/11/2024, 09:49