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

    Ordem sequencial

    Compartilhe

    Feitosa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 26/10/2011

    Ordem sequencial

    Mensagem  Feitosa em Sex 17 Jan 2014, 18:46

    Boa tarde, galera

    Gostaria de uma auxílio para complementar a função abaixo no sentido de que assim que mudar ano do calendário a ordem sequencial iniciasse a partir do 1.

    =======================================
    Function PROXIMONUMERO() As String
    Dim STRSQL As String
    Dim RSTDOC As New ADODB.Recordset
    Dim NUMEROENCONTRADO As Integer
    STRSQL = "SELECT CODIGO_SEQ FROM TABELA_DOCUMENTOS_EXPEDIDOS " & _
    "WHERE (CODIGO_SEQ LIKE '%" & "') " & _
    "ORDER BY CODIGO_SEQ DESC"
    RSTDOC.Open STRSQL, CurrentProject.Connection, ADOPENSTATIC, ADLOCKREADONLY
    If RSTDOC.RecordCount > 0 Then
    NUMEROENCONTRADO = CInt(Left(RSTDOC("CODIGO_SEQ"), 99))
    Else
    NUMEROENCONTRADO = 0
    End If
    PROXIMONUMERO = Format(NUMEROENCONTRADO + 1, "00000")
    RSTDOC.Close
    Set RSTDOC = Nothing
    End Function
    =======================================

    Desde já agradeço.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6312
    Registrado : 05/11/2009

    Re: Ordem sequencial

    Mensagem  Alexandre Neves em Sex 17 Jan 2014, 20:04

    Boa noite,
    Escreva de forma normalizada. Facilita a visualização e a compreensão
    Tem de ter um campo de data na tabela e trazê-la para a expressão SQL


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Qua 23 Ago 2017, 03:32