MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Ronaldo Costa 9/5/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 10/5/2016, 08:36

    Olá Ronaldo, será qualquer coisa como mumeracao que muda ao ano.
    Não falta exemplos, Veja:
    https://www.maximoaccess.com/t20018-resolvidonumeracao-muda-conforme-ano-0000-ano-atual

    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
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Ronaldo Costa 12/5/2016, 01:13

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

    Obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 12/5/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
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Ronaldo Costa 14/5/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 14/5/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:
    https://www.maximoaccess.com/t860-resolucao-de-topicos
    Abraço
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Ronaldo Costa 14/5/2016, 12:57

    OK!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 15/5/2016, 10:46

    cheers

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:41