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 Recomeçar Em Um Novo Mês

    Compartilhe
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 171
    Registrado : 14/03/2011

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

    Mensagem  Ronaldo Costa em Seg 09 Maio 2016, 14:18

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 10 Maio 2016, 08:36

    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
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 171
    Registrado : 14/03/2011

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

    Mensagem  Ronaldo Costa em Qui 12 Maio 2016, 01:13

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

    Obrigado
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 12 Maio 2016, 11:36

    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
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 171
    Registrado : 14/03/2011

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

    Mensagem  Ronaldo Costa em Sab 14 Maio 2016, 00:04

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Sab 14 Maio 2016, 09:43

    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
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 171
    Registrado : 14/03/2011

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

    Mensagem  Ronaldo Costa em Sab 14 Maio 2016, 12:57

    OK!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Dom 15 Maio 2016, 10:46

    cheers

      Data/hora atual: Sex 23 Jun 2017, 02:43