[Resolvido]Contador mudar com a passagem de ano

Boa tarde Amigos

Tenho o código abaixo, de numeração que funciona bem. Precisava da vossa ajuda para que quando o Ano 2019 ele reiniciasse

a partir do 001.2019.

Obrigado


If DCount("*", "Modelos") = 0 Then
Me.Mod = Format((Left(Me.Mod, 3)), "001") & "." & Year(Date)
Else
Me.Mod = Format((Left(Forms.Modelos.Ultimo, 3)) + 1, "000") & "." & Year(Date)
End If

Aqui;

https://www.maximoaccess.com/t20019-resolvidonumeracao-automatica-muda-de-ano-conforme-ano-corrente

JPaulo

Queria o meu e tentei aplicar como mostra a imagem.

Com o On Error Resume next , funciona mas executa o MsgBox 2 vezes.

Sem o On Error Resume next

Pinta a linha a amarelo . Onde estou a errar

Obrigado

Código:

Dim x$

    If DCount("*", "Modelos") = 0 Then
        Me.Mod = Format((Left(Me.Mod, 3)), "001") & "." & Year(Date)
        Else
        x = DMax("[Mod]", "Modelos")
            If Val(Right(x, 4)) <> Year(Date) Then
                Me.Mod.Value = "001" & "." & Year(Date)
                Else
                Me.Mod = Format((Left(Forms.Modelos.Ultimo, 3)) + 1, "000") & "." & Year(Date)
            End If
 End If

Boa tarde JPaulo

Funciona.

No seu exemplo coloquei a minha MsgBox. Porque dá duas informações ?
Não está no sitio certo?

Obrigado


Dim x$

If DCount("*", "Modelos") = 0 Then
Me.Mod = Format((Left(Me.Mod, 3)), "001") & "." & Year(Date)
Else
x = DMax("[Mod]", "Modelos")
If Val(Right(x, 4)) <> Year(Date) Then
MsgBox "Reiniciando Contagem dos Registos Para o Novo Ano", vbInformation, "Aviso" ' <----------------- Aqui
Me.Mod.Value = "001" & "." & Year(Date)
Else
Me.Mod = Format((Left(Forms.Modelos.Ultimo, 3)) + 1, "000") & "." & Year(Date)
End If
End If
End If
End If

Código:

Dim x$

    If DCount("*", "Modelos") = 0 Then
        Me.Mod = Format((Left(Me.Mod, 3)), "001") & "." & Year(Date)
        Else
        x = DMax("[Mod]", "Modelos")
            If Val(Right(x, 4)) <> Year(Date) Then
              MsgBox "Reiniciando Contagem dos Registos Para o Novo Ano", vbInformation, "Aviso"
                Me.Mod.Value = "001" & "." & Year(Date)
                Exit Sub
                Else
                Me.Mod = Format((Left(Forms.Modelos.Ultimo, 3)) + 1, "000") & "." & Year(Date)
            End If
 End If

JPaulo

Alterei o x de DMax para DLast e funfa direito

Obrigado

Dim x$

   If DCount("*", "Modelos") = 0 Then
       Me.Mod = Format((Left(Me.Mod, 3)), "001") & "." & Year(Date)
       Else
       x = DLast("[Mod]", "Modelos")
           If Val(Right(x, 4)) <> Year(Date) Then
              MsgBox "Reiniciando Contagem dos Registos Para o Novo Ano", vbInformation, "Aviso"
               Me.Mod.Value = "001" & "." & Year(Date)
              Exit Sub
               Else
               Me.Mod = Format((Left(Forms.Modelos.Ultimo, 3)) + 1, "000") & "." & Year(Date)
           End If
End If

Bom dia.....

Assis me tira um duvida...em qual evento colocou o código ??

Código:

Dim x$

  If DCount("*", "Modelos") = 0 Then
      Me.Mod = Format((Left(Me.Mod, 3)), "001") & "." & Year(Date)
      Else
      x = DLast("[Mod]", "Modelos")
          If Val(Right(x, 4)) <> Year(Date) Then
              MsgBox "Reiniciando Contagem dos Registos Para o Novo Ano", vbInformation, "Aviso"
              Me.Mod.Value = "001" & "." & Year(Date)
              Exit Sub
              Else
              Me.Mod = Format((Left(Forms.Modelos.Ultimo, 3)) + 1, "000") & "." & Year(Date)
          End If
End If

Bom dia Silvio

Está ao carregar o formulário, no Load.

Abraço

Grato Assis.

Certo, tratando-se de uma string, o DLast funciona direito, já o DMax funfa melhor para numérico.

Obrigado pelo retorno o fórum agradece.