[Resolvido]Numeração Ano Numero . Assim 18.001

Boa tarde Amigos

Estou a tentar numerar assim:

18.001
18.002
18.003

Mas só consigo o primeiro, depois do Else não funciona.

Código:

If IsNull(Me.Mod) Then
Me.Mod = Right(Year(Date), 2) & "." & Format("1", "000")
Else
Me.Mod = Right(Year(Date), 2) & "." & DMax(Right("mod", "modelos"), 3) + 1
End If

Obrigado

Bom dia Assis,

Em que evento está a colocar, coloque no current.

Abraço

Boas Teixeira

Estou a colocar no receber o foco, é um formulário continuo.

Olá Assis,

Poderia ser, mas não é só para colocar num registo novo.
Pode postar um formulario para se testar?
fica mais fácil para ajudar.

Teixeira resolvi assim, mas este não coloca a numeração como eu queria.

Como seria alterar o ano para dar só 18 ?

Como está dá 2018

Código:

Private Sub DataModelo_AfterUpdate()
If Me.RecordsetClone.RecordCount = 0 Then
  Me.Mod = Format("1", "000") & "." & Year(Date)
End If
If Not IsNull(Me.Mod) Then
Exit Sub
 
Else
  If Val(Right(DMax("[mod]", "Modelos", "Right([mod],4)= " & Year(Date)), 4)) <> Year(Date) Then
     MsgBox "Reiniciando contagem dos registros para o novo ano", vbInformation, "Aviso"
     Me.Mod = Format("1", "000") & "." & Year(Date)
  Else
 
  Me.Mod = Format(Left(DMax("[mod]", "Modelos", "Right([mod],4)= " & Year(Date)), 4) + 1, "000") & "." & Year(Date)

  End If
End If
End

End Sub

Olá Assis,

Onde tem year(date)
Use right(year(date(),2)

Ou pode ser o format

Outra coisa, você ja esta a usar o right com 4, verifique bem como tem na tabela os dados armazenados, no que já tem sera ajustar de 4 para 2

Abraço

Teixeira se puder ajudar está aqui o exemplo

Obrigado

tem este d JPaulo

Obrigado scandinavo

Eu queria era que em vez de 001/2018 fosse :

001/18

Assis, boa tarde a si e a todos !!!

Até fiz ficar o ano no formato desejado, porém agora estou a ver o por que não acrescenta o numerador a frente do ano.

Código:

Private Sub Mod_GotFocus()
If Me.RecordsetClone.RecordCount = 0 Then
    Me.Mod = Format("1", "000") & "." & Format(Date, "yy")
 End If
If Not IsNull(Me.Mod) Then
Exit Sub
 
Else
  If Val(Right(DMax("[mod]", "Modelos", "Right([mod],4)= " & Year(Date)), 2)) <> Format(Date, "yy") Then
      MsgBox "Reiniciando contagem dos registros para o novo ano", vbInformation, "Aviso"
      Me.Mod = Format("1", "000") & "." & Format(Date, "yy")

  Else
 
  Me.Mod = Format(Left(DMax("[mod]", "Modelos", "Right([mod],4)= " & Year(Date)), 2) + 1, "000") & "." & Format(Date, "yy")

  End If
End If
End
End Sub

A luta continua.....

Olá a todos,

O exemplo postado pelo scandinavo é mais simples, é só ajustar.

Assis, para seguir a lógica que tinha iniciado, ajustei da seguinte forma.

Teste assim com exemplo da mensagem nº 7

Código:

Private Sub Mod_GotFocus()
    Dim xContador As String
   
    If IsNull(Me.Mod) Then
       
        xContador = Nz(DMax("[mod]", "Modelos"), 0)
       
        If Left(xContador, 2) <> Right(Year(Date), 2) Then
            MsgBox "Reiniciando contagem dos registros para o novo ano", vbInformation, "Aviso"
            Me.Mod = Right(Year(Date), 2) & "/" & Format("1", "000")
        Else
            Me.Mod = Right(Year(Date), 2) & "/" & Format(Right(xContador, 3) + 1, "000")
        End If
    End If
End Sub


Silvio, respondemos ao mesmo tempo

Abraço a todos

Silvio

Erro na linha abaixo

If Val(Right(DMax("[mod]", "Modelos", "Right([mod],4)= " & Year(Date)), 2)) <> Format(Date, "yy") Then


Obrigado

Teixeira

Certinho

Obrigado

Showww

Olá a todos

Assis, obrigado pelo retorno.
O código foi simplificado, mas a solução como pode verificar foi a sugestão da mensagem nº 6

Hoje com um tempinho, também resolvi demonstrar como fazer a alteração com o exemplo do nosso grande JPaulo, postado na mensagem nº 8 pelo colega Scandinavo.
Para isso criei mais duas funções.

Uma faz com quatro digitos e a outra com dois digitos ambas do ano.

1º - Adicionar as duas funções no módulo:

Código:

Public Function AnoNumeracao() As String
    'By JPaulo@2009
    '2018 - Alterado para Ano/Numercao
    'Exemplo http://www.maximoaccess.com/t34289-resolvidonumeracao-ano-numero-assim-18-001
    Dim fazcodigo(1) As Integer, temporario As Integer
    
    fazcodigo(1) = Nz(DMax("Right(CodigoControle,3)", "tblExemplo", "Left(CodigoControle,4)=Year(Date())"), 0)
    
        For I = 1 To UBound(fazcodigo)
            If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
        Next
    
    AnoNumeracao = year(Date) & "/" & Format(temporario + 1, "000")
End Function

Public Function Ano2DigitosNumeracao() As String
    'By JPaulo@2009
    '2018 - Alterado para Ano/Numercao - ANO com DOIS DIGITOS
    'Exemplo http://www.maximoaccess.com/t34289-resolvidonumeracao-ano-numero-assim-18-001
    Dim fazcodigo(1) As Integer, temporario As Integer
    
    fazcodigo(1) = Nz(DMax("Right(CodigoControle,3)", "tblExemplo", "Left(CodigoControle,2)=Right(Year(Date()),2)"), 0)
    
        For I = 1 To UBound(fazcodigo)
            If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
        Next
    
    Ano2DigitosNumeracao = Right(year(Date), 2) & "/" & Format(temporario + 1, "000")
End Function

2º - Ajustar a chamada da função no campo CodigoControlo



Abraço a todos

Tentei usar essa orientação da Function AnoNumeração pq realmente é o que eu quero que funcione no meu BD.

Só que infelizmente após realizar a adaptação necessária, eu ainda não consegui ver o resultado pretendido que seria o campo Código assumir um valor 0000.2018.

Aguardo ancioso por uma ajuda sua e por isso postei o BD com as partes envovidas



Att,

AMarcos

Boas...

1. Não copiou o módulo todo para teu sistema, foi apenas metade.
2. Se pedir a variável I...coloque Dim I
3. Folha de Propriedades / Aba Dados...valor padrão = ano2DigitosNumeracao() (no que postou, está faltando ), coloque isso na caixa de texto...código.

Olá a todos,

António Marcos, (não vi o seu projeto) no entanto pode seguir a dica do colega Silvio para efeito de estudo.

Como pretende numero/ano, já existe no fórum, veja por exemplo:
https://www.maximoaccess.com/t20018-resolvidonumeracao-muda-conforme-ano-0000-ano-atual

Abraço a todos

Olá Ahteixeira!!!

Eu solicito a você que olhe o extrato do meu BD com as partes envolvidas.

Já fiz as alterações sugeridas, mas mesmo assim nada aconteu.

Preciso muito que o campo Código seja preenchido com o seguinte modelo de valor: "0000.2019"

Fico no seu aguardo mestre!!!


AMarcos

Olá Antonio Marcos,

Iei verificar, no entanto o deve dar retorno ao colega Silvio, que foi o primeiro a dar uma ajuda.

Abraço a todos

Aguardarei o seu retorno, bastante ancioso, pois preciso incluir todas as informações dos anos anteriores num único BD.

Att,


AMarcos

Olá,

Já tentou a dica da mensagem n. 17 do colega Silvio?

Está a ignorar as ajudas à espera que apareça todo o trabalho feito sem perceber como foi feito?
Esse não é o propósito do fórum.

Aguardamos o retorno.
Abraco a todos

Faltando dentro do sistema do colega..

Tabela "serviços"
Tabela "responsáveis"

Sem essas tabelas, não tem como adicionar um novo registro.

Mas pelo jeito, nem a minha mensagem ele viu. Será que quer tudo mastigado e somente copiar e colar e sem ao menos tentar entender a lógica ?

Sem contar que, se salvo engano meu, já tinha avisado ao colega sobre a nomenclatura de tabelas, pelo jeito não mudou nada.

Estou abandonando o tópico.

Boa sorte a todos.

Boa noite nobres amigos!!!

Gostaria de me desculpar deixei parecer que queria algo pronto dos amigos.  Nunca foi essa a minha intenção.  É verdade que não possuo nem 10% do conhecimento em progaramação dos mestres, mas prefiro escrever meus códigos e montar meus projetos mesmo com alguns erros de nomenclatura como observou  o mestre Silvio.

O fórum é uma excelente ferramenta. Foi através dos repositórios que montei quase todo o meu projeto. E quando algo faltava ou não encontrava nos diversos exemplos, ou até mesmo por pouca experiência não compreendia o modo de fazer recorria aos mestres a quem agradeço muito por todas as dicas dadas, na maioria aproveitadas com êxito.

Sobre as dicas do mestre Silvio vamos lá:

"1. Não copiou o módulo todo para teu sistema, foi apenas metade."
O que ele postou foram duas funções que eu entendi ser uma decisão minha escolher um ou outro. Já que os dois fazem a mesma coisa, somente diferem o número de algarismos. Por isso optei por apenas um.

"2. Se pedir a variável I...coloque Dim I"
Em nenhum momento aconteceu ao rodar o programa aparecer o pedido de declaração de variável.  Por isso desconsiderei...

"3. Folha de Propriedades / Aba Dados...valor padrão = ano2DigitosNumeracao() (no que postou, está faltando ), coloque isso na caixa de texto...código."
Agora nessa 3ª dica foi onde pode ter havido uma má interpretação dos mestres quanto as minha intenções no pedido de ajuda. Eu acabei postando o extrato do meu BD justamente o que não tinha a função dentro do Valor Padrão na aba Dados. Foi sinceramente esta a falha.
Mas posso garantir aos Senhores, mesmo no extrato completo já com a função inserida no Valor Padrão, nada aconteceu...

"4. Faltando Tabela serviços e Tabela responsáveis"
Não consegui visualizar de qual exemplo o mestre estava falando, pois em nenhum vi essas tabelas incorporadas.


Agora o que eu pude perceber vendo o exemplo dos mestres Assis e Scandinavo, é que o campo que receberá a NumeraçãoAno, não pode ser do tipo Número ou Automático e sim tipo Texto.
Mas mesmo assim não consegui que o campo assumisse o formato desejado no Formulário e muito menos na Tabela.
Só consigo que isso aconteça, se eu colocar sem Fonte de Controle (não associado), mas mesmo assim na tabela não altera nada.

Peço desculpa mais uma vez pelo tamanho das minhas explicações, mas achei que era necessário dizer que não tive a intenção de ignorar dicas ou conseguir as coisas feitas.
Se os amigos ou outros puderem ainda me ajudar com alguma luz, postarei agora o Extrato completo do meu BD.

Att,

AMarcos