MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Numeração sequencial para novos registros

    avatar
    Ademilsom
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    [Resolvido]Numeração sequencial para novos registros Empty [Resolvido]Numeração sequencial para novos registros

    Mensagem  Ademilsom em 15/1/2020, 23:56

    Gostaria de adicionar um critério neste código do amigo @CRYSOTOMO, alguém pode me ajudar nesta situação.

    Gostaria que somente fosse acrescentado a numeração sequencial para os novos registros, para os registros existentes ele ignorasse a código.
    Desta forma os registros já existentes não seriam alterados.

    Código:
    If DCount("*", "suaTabela") = 1 Then
           Me.txtNumero = 1
    Else
           Me.txtNumero = DMax("nomeDoCampo", "Sua Tabela") + 1
    End If

    Saudações,
    Kakay
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Numeração sequencial para novos registros Empty Re: [Resolvido]Numeração sequencial para novos registros

    Mensagem  ahteixeira em 16/1/2020, 16:46

    Olá Ademilson

    Para um formulário, poderá ser isto:
    Código:
    If CStr(Me.NewRecord) = -1 Then
        'se novo ...
        If DCount("*", "suaTabela") = 1 Then
               Me.txtNumero = 1
        Else
               Me.txtNumero = DMax("nomeDoCampo", "Sua Tabela") + 1
        End If
    Else
        'se não for novo
        '...
    End If

    Teste se é o pretendido.

    Abraço
    avatar
    Ademilsom
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    [Resolvido]Numeração sequencial para novos registros Empty Re: [Resolvido]Numeração sequencial para novos registros

    Mensagem  Ademilsom em 16/1/2020, 23:15

    ahteixeira, muito obrigado pela ajuda.

    Tive que fazer alguns ajustes com os botões de Adicionar e Salvar registro, funcionou perfeitamente.
    Valeu.........


    Atenciosamente;
    Kakay
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Numeração sequencial para novos registros Empty Re: [Resolvido]Numeração sequencial para novos registros

    Mensagem  ahteixeira em 17/1/2020, 00:44

    Olá Ademilson,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 13/7/2020, 07:16