MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Contador Recomeçar Em Um Novo Mês

    Compartilhe

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 167
    Registrado : 13/03/2011

    [Resolvido]Contador Recomeçar Em Um Novo Mês

    Mensagem  Ronaldo Costa em Seg 09 Maio 2016, 9:18 am

    Olá pessoal!

    Tenho uma tblRegistro que é alimentada a partir de um formulário. Além do campo "idRegistro" (chave primária) tenho também outro campo chamado "seqMes". Este campo "seqMes" deve recebe, a partir do início de cada mês, uma sequência de número começando de 1. Gostaria que quando o mês virá este número recomeçasse do 1 automaticamente, para eu não precisar colocar manualmente.

    Grato

    Ronaldo Costa

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Contador Recomeçar Em Um Novo Mês

    Mensagem  ahteixeira em Ter 10 Maio 2016, 3:36 am

    Olá Ronaldo, será qualquer coisa como mumeracao que muda ao ano.
    Não falta exemplos, Veja:
    [Você precisa estar registrado e conectado para ver este link.]

    Será adapatar para a inicialiazaçao com a mudsnça de mês (ou data selecionada.)

    Sou da opinião que deve manter o Id do registo (numeraçao automática) e criar um novo campo para a numeração.

    Fica a minha opinião, qualquer coisa estamos cá.

    Abraço

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 167
    Registrado : 13/03/2011

    Re: [Resolvido]Contador Recomeçar Em Um Novo Mês

    Mensagem  Ronaldo Costa em Qua 11 Maio 2016, 8:13 pm

    Ok que, foi o que fiz.
    Mantive o campo numeração automática e consegui o que queria.

    Obrigado

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Contador Recomeçar Em Um Novo Mês

    Mensagem  ahteixeira em Qui 12 Maio 2016, 6:36 am

    Olá, pode partilhar como resolveu.
    Os utilizadores do fórum agradecem.

    Nota, não se esqueça de dar o tópico como resolvido.
    Abraço

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 167
    Registrado : 13/03/2011

    Re: [Resolvido]Contador Recomeçar Em Um Novo Mês

    Mensagem  Ronaldo Costa em Sex 13 Maio 2016, 7:04 pm

    Desculpem-me!

    Na verdade, eu precisava que uma mesma sequência seguisse até o final do mês ao registrar uma saída de caixa ou uma entrada, ou seja, uma mesma sequência para duas tabelas diferentes. Assim: digamos que fiz o registro de 10 entradas, a sequência seguiu de 1 a 10, aí ao fazer o registro de uma saída, esse primeiro registro de saída recebe a sequência 11. Se voltar às entradas será gerado a sequência 12 e assim vai...

    O que fiz:
    -Crie uma consulta união com as duas tabelas usando os campos "seq" (que recebe a sequência) e o campo "refContador" (format(data(),"yyyymm"), capta o Ano/Mês da data do registro); estes campos, comuns às duas tabelas.
    -Criei uma função que capta o maior valor da consulta união e caso o ano/mês da data atual não seja encontrado na consulta, o contador começa do 1 ou se o ano/mês se achar na consulta o contador acrescenta 1 ao ultimo valor encontrado.
    -Coloquei a função na propriedade "valor padrão" de cada formulário e pronto.

    Segue a função que criei.

    Public Function fncContador()
    Dim intContadorRegistro As String
    Dim strSeqMes As Variant

    On Error GoTo erroVazio

    intContadorRegistro = DMax("[seq]", "cstContador")
    strSeqMes = DMax("[refContador]", "cstContador")

    If strSeqMes = Format(Date, "yyyymm") Then
    fncContador = intContadorRegistro + 1
    Else
    fncContador = 1
    End If
    Exit Function

    erroVazio:
    fncContador = 1

    End Function

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Contador Recomeçar Em Um Novo Mês

    Mensagem  ahteixeira em Sab 14 Maio 2016, 4:43 am

    Olá Ronaldo Costa, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.

    Não se esqueça de dar o tópico como resolvido, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 167
    Registrado : 13/03/2011

    Re: [Resolvido]Contador Recomeçar Em Um Novo Mês

    Mensagem  Ronaldo Costa em Sab 14 Maio 2016, 7:57 am

    OK!

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Contador Recomeçar Em Um Novo Mês

    Mensagem  ahteixeira em Dom 15 Maio 2016, 5:46 am

    cheers

      Data/hora atual: Qui 08 Dez 2016, 9:09 am