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

    [Resolvido]Contador mudar com a passagem de ano

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3652
    Registrado : 06/11/2009

    [Resolvido]Contador mudar com a passagem de ano

    Mensagem  Assis em Qui Nov 15, 2018 1:11 pm

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10357
    Registrado : 04/11/2009

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  JPaulo em Qui Nov 15, 2018 1:17 pm



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3652
    Registrado : 06/11/2009

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  Assis em Qui Nov 15, 2018 2:31 pm

    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







    .................................................................................
    *** Só sei que nada sei ***
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10357
    Registrado : 04/11/2009

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  JPaulo em Qui Nov 15, 2018 4:13 pm

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3652
    Registrado : 06/11/2009

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  Assis em Qui Nov 15, 2018 5:37 pm

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10357
    Registrado : 04/11/2009

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  JPaulo em Qui Nov 15, 2018 5:43 pm

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3652
    Registrado : 06/11/2009

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  Assis em Qui Nov 15, 2018 9:48 pm

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4178
    Registrado : 20/04/2011

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  Silvio em Sex Nov 16, 2018 10:40 am

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3652
    Registrado : 06/11/2009

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  Assis em Sex Nov 16, 2018 10:44 am

    Bom dia Silvio

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

    Abraço


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4178
    Registrado : 20/04/2011

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  Silvio em Sex Nov 16, 2018 11:57 am

    Grato Assis.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10357
    Registrado : 04/11/2009

    Re: [Resolvido]Contador mudar com a passagem de ano

    Mensagem  JPaulo em Sex Nov 16, 2018 1:56 pm

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

      Data/hora atual: Sex Jan 18, 2019 12:20 pm