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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Contador mudar com a passagem de ano Empty [Resolvido]Contador mudar com a passagem de ano

    Mensagem  Assis em 15/11/2018, 13:11

    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 ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 15/11/2018, 13:17



    .................................................................................
    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

    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 15/11/2018, 14:31

    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





    [Resolvido]Contador mudar com a passagem de ano Sem_tz35


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

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 15/11/2018, 16:13

    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

    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 15/11/2018, 17:37

    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 ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 15/11/2018, 17:43

    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

    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 15/11/2018, 21:48

    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 ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 16/11/2018, 10:40

    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

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 16/11/2018, 10:44

    Bom dia Silvio

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

    Abraço


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

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 16/11/2018, 11:57

    Grato Assis.


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

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 16/11/2018, 13:56

    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

    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Contador mudar com a passagem de ano Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2019, 20:52