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

3 participantes

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    avatar
    berninirobs
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 14/09/2012

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  berninirobs 15/6/2021, 18:32

    Boa tarde.
    Preciso de uma sugestão para resolver esta minha ideia.
    Queria uma numeração de protocolo formada pela data, exemplo:

    Me.FrmData = Format(Date, "yyyymmdd") & "." & Format(Time, "hhmm")

    seguida pela numeração sequencial  e no dia seguinte recomece por "001"

    Exemplo:

    20210615.0810.001
    20210615.0911.002
    20210615.1025.003
    20210615.1231.004

    o dia seguinte:

    20210616.0801.001
    20210616.0924.002
    20210616.0955.003
    etc.


    Muito Obrigado....
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  ahteixeira 16/6/2021, 11:53

    avatar
    berninirobs
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 14/09/2012

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  berninirobs 16/6/2021, 22:34

    Olá Teixeira.
    Obrigado pela resposta.
    Encontrei, nos links sugeridos, um código do JPaulo que consegui adaptar as minhas necessidades, mas o problema que estou encontrando acho seja por causa do meu campo data.
    Vou tentar formatando-o num campo numérico.
    Em baixo o código do JPaulo:



    Seguindo o raciocínio deste tópico, é só adicionar o DoCmd.RunCommand acCmdSaveRecord após as instruções IF

    Código:
    Private Sub Command7_Click()
       DoCmd.OpenForm "SeuSegundoFormulario", acNormal
       DoCmd.ApplyFilter "Forms!SeuSegundoFormulario" = Me.CodAbastecimentoMelosa.Value
    End Sub




    Private Sub Equipamento_AfterUpdate()
    Dim numeroencontrado As String, proximoNumero As Integer
    'By JPaulo :registered: Maximo Access
    'encontrar o ultimo numero na tabela
    numeroencontrado = Nz(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA", "[Equipamento] = " & Me.Equipamento.Value), 0)
       If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
       'se não existir numeração, insere o equipamento + 001 para iniciar
           numeroencontrado = Me.Equipamento.Value & "-" & "001"
       'devolve ao campo a nova numeração
           Me.CodAbastecimentoMelosa.Value = numeroencontrado
           DoCmd.RunCommand acCmdSaveRecord
       Else
       'se já existir numeração na tabela, acrescenta +1
           proximoNumero = Right(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA", "[Equipamento] = " & Me.Equipamento.Value), 3) + 1
       'devolve ao campo a nova numeração
           Me.CodAbastecimentoMelosa.Value = Me.Equipamento.Value & "-" & Format(proximoNumero, "000")
           DoCmd.RunCommand acCmdSaveRecord
       End If
    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  ahteixeira 16/6/2021, 22:50

    Olá Roberto,

    Talvez seja melhor partilhar a base de dados com a tabela envolvida na questao e o formulario onde pretende usar a numeracao para se veirifcar.
    Detsa forma fica mais facil para qualquer membro ajuda (e poder testar)

    Abraco
    avatar
    berninirobs
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 14/09/2012

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  berninirobs 16/6/2021, 23:46

    Ok Teixeira.
    Aqui está o banco para o teste.
    Obrigado.
    Anexos
    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Attachmentteste_protocolo_JB.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 7 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1781
    Registrado : 13/12/2016

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  Alexandre Fim 17/6/2021, 01:09

    Olá Roberto,

    É simples de fazer!
    A numeração sequencial muda na virada do dia, verificando sempre a ultima data.
    Se a data atual for maior que a data do ultimo protocolo, então inicia a nova numeração.

    Vou criar uma rotina no modelo que você enviou.

    OBS: A data e a hora devem ser automáticas, correto?


    Ate +

    []'s

    FIM
    avatar
    berninirobs
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 14/09/2012

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  berninirobs 17/6/2021, 01:22

    Olá Alexandre.
    Na realidade horas e minutos não são necessarios, pois poderiam ser visualizados num outro campo.
    O formato no exemplo seria otimo:

    20210616-001
    20210616-002


    Valeu!
    avatar
    berninirobs
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 14/09/2012

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  berninirobs 17/6/2021, 01:26

    Sim....a data deve ser automatica. Wink
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1781
    Registrado : 13/12/2016

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  Alexandre Fim 17/6/2021, 01:28

    Ok...beleza

    VAleu
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1781
    Registrado : 13/12/2016

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  Alexandre Fim 17/6/2021, 02:08

    Roberto,

    Para não descaracterizar o que vc desenvolveu, eu criei uma tabela e um form novo.  Ficou assim:
    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Protoc10

    Segue versão do sistema para sua análise.

    Espero ter ajduado.

    []'s

    FIM
    Anexos
    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" AttachmentProtocolo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (59 Kb) Baixado 16 vez(es)
    avatar
    berninirobs
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 14/09/2012

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  berninirobs 17/6/2021, 02:46

    Esta é a diferença entre um developer e um intermediário.

    Alexandre, você fez um trabalho ótimo, resolveu rapidinho o assunto e criou também um formulário que não esperava.


    Mais uma vez,

    “Muito Obrigado”


    "Generosidade é dar mais do que você pode, e orgulho é receber menos do que você precisa."
                                                                                                                                             Khalil Gibran
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1781
    Registrado : 13/12/2016

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  Alexandre Fim 17/6/2021, 03:00

    Roberto,

    Eu fiz tudo via código VBA e também não comentei o que cada rotina faz.
    Procure estudar e entender o que cada rotina faz.

    Valeu, Roberto.
    O fórum agradece.

    Boa sorte

    []'s

    FIM
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  ahteixeira 17/6/2021, 08:32

    Olá a todos,

    Além da solução do nosso colega Alexandre Fim também ficou demonstrado a importancia em disponibilizar exemplo da parte envolvida na questão.
    Roberto com o MaximoAccess em pouco tempo passa a Developer.
    Deve efetivamente compreender o que o colega fez e como.

    Abraço a todos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1781
    Registrado : 13/12/2016

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  Alexandre Fim 17/6/2021, 14:44

    Grande Mestre ahteixeira,

    Com certeza, nosso amigo Roberto será um developer assim como qualquer outro membro do fórum.
    Tudo depende da dedicação, paixão e determinação em resolver os desafios.

    []'s


    FIM
    avatar
    berninirobs
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 14/09/2012

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  berninirobs 17/6/2021, 16:23

    Eu fui realmente surpreendido quando me promoveram intermediário, não por falsa modéstia, mas porque realmente percebo os grandes limites do meu conhecimento, é por isso, querido Teixeira, que considero o titulo de developer  bastante inapropriado, estou chegando próximo aos 70, assim visão e memoria não ajudam nos estudos.

    Agradeço e parabenizo todos os membros deste importante forum que diariamente proporcionam conhecimento de graça e sobretudo de ótima qualidade, duas condições que normalmente se desconhecem e que quando raramente se encontram viram a cabeça do outro lado.

    Um forte abraço a todos....
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001" Empty Re: [Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

    Mensagem  ahteixeira 17/6/2021, 16:26

    cheers

      Data/hora atual: 23/9/2021, 01:38