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]Iniciar numeração automática no inicio de cada ano

    avatar
    Burita
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 122
    Registrado : 03/04/2013

    [Resolvido]Iniciar numeração automática no inicio de cada ano Empty [Resolvido]Iniciar numeração automática no inicio de cada ano

    Mensagem  Burita 4/5/2018, 11:23

    Bom dia.
    Estive a pesquisar aqui no fórum mas não consegui encontrar nenhum exemplo que me ajudasse.
    Como implementar um sistema que iniciasse a numeração automática no inicio de cada ano? Alguém me pode dar alguns exemplo, se possível?
    Obrigado.

    Cumprimentos
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010

    [Resolvido]Iniciar numeração automática no inicio de cada ano Empty Re: [Resolvido]Iniciar numeração automática no inicio de cada ano

    Mensagem  gilberlanio 4/5/2018, 14:23

    Cole essa função em seu formulário e faça as alterações:
    SEUCAMPOID = Seu campo código da tabela que vai receber a informação
    NOMETABELA = Nome de sua tabela
    Código:
    Function proximoNumero() As String
    'Função que busca o último número do mês
    'e acrescenta um para criar o próximo

        Dim strSql As String
        Dim rstDoc As New ADODB.Recordset
        Dim numeroEncontrado As Integer
        
        'Cria a consulta SQL buscando os números do mês atual
        'em ordem descendente para que o último fique em primeiro
        strSql = "Select SEUCAMPOID From NOMETABELA " & _
                    "Where (SEUCAMPOID Like '%" & "-" & Format(Date, "dd") & "/" & Format(Date, "mm") & "/" & Format(Date, "yyyy") & "') " & _
                    "Order By SEUCAMPOID Desc"

        'Abre o recordset
        rstDoc.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly

        'Se encontrou algum pega o primeiro
        'senão retorna zero
        If rstDoc.RecordCount > 0 Then
            numeroEncontrado = CInt(Left(rstDoc("SEUCAMPOID"), 3))
        Else
            numeroEncontrado = 0
        End If

        'Próximo número = numero encontrado +1 mais o mês e ano atual com dois dígitos
        proximoNumero = Format(numeroEncontrado + 1, "000") & "-" & Format(Date, "dd") & "/" & Format(Date, "mm") & "/" & Format(Date, "yyyy")

        'Fecha o recordset
        rstDoc.Close
        Set rstDoc = Nothing

    End Function

    depois chame a função no clique do botão novo:

    SEUCAMPOID = proximoNumero

    Obs. Seu campo código que vai receber a informação precisa ser do tipo Texto
    avatar
    Burita
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 122
    Registrado : 03/04/2013

    [Resolvido]Iniciar numeração automática no inicio de cada ano Empty Re: [Resolvido]Iniciar numeração automática no inicio de cada ano

    Mensagem  Burita 7/5/2018, 11:48

    Obrigado gilberlanio.
    Vou experimentar e testar.

    Cumprimentos
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010

    [Resolvido]Iniciar numeração automática no inicio de cada ano Empty Re: [Resolvido]Iniciar numeração automática no inicio de cada ano

    Mensagem  gilberlanio 7/5/2018, 14:22

    Ficamos no aguardo se resolveu

    Conteúdo patrocinado


    [Resolvido]Iniciar numeração automática no inicio de cada ano Empty Re: [Resolvido]Iniciar numeração automática no inicio de cada ano

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 00:54