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

    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.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    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: Sex 09 Dez 2016, 13:24