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


    [Resolvido]Numeração ID automática após exclusão de Registro

    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 08/08/2017

    [Resolvido]Numeração ID automática após exclusão de Registro Empty [Resolvido]Numeração ID automática após exclusão de Registro

    Mensagem  JXAVIER 23/9/2020, 19:53

    Boa tarde, estou precisando da ajuda do Forum...
    tenho criado uma auto-numeração para cadastro, mas desejo que ao excluir o registro cadastrado, a numeração retorne a sequência, o que a auto-numeração do ACCESS não realiza; encontrei aqui no forum modelos de auto-numeração, mas sem a exclusão e continuação numérica: exemplo reg. 1,2,3,4,5, ao excluir o registro 3, desejo que a numeração não fique assim: 1,2,4,5 mas que realize a sequência, é possivel? grato.

    1:   Private Sub Form_BeforeInsert(Cancel As Integer)
       
         If DCount("*", "tblContador") <= 1 Then
           Me.Código = 1
       
         Else
           Me.Código = DMax("Código", "tblContador") + 1
       
          End If
         
        End Sub
    +++++++++++++++++++++++++++++++++++++++++++++

    2:Private Sub btnSalvar_Click()
       'validar campo obrigatório
       If IsNull(Me.Nome) = True Then
           MsgBox "Insira Dados!", vbCritical, "Campo Obrigatório!"
           Me.Nome.SetFocus
           Cancel = True
           
           Exit Sub
       End If
       
       'salvar novo registro
       
       Dim rs As DAO.Recordset
       
           Call Autonumero
           
           Set rs = CurrentDb.OpenRecordset("autonumero", dbOpenDynaset, dbSeeChanges)
           
           With rs
               .AddNew
                   !Código = Me.Código
                   !Nome = Me.Nome
               .Update
               
       'inserir novo registro
       
       If MsgBox("Deseja Novo Registro?", vbQuestion + vbYesNo, "Dados Salvos Com Sucesso!") = vbYes Then
       
           'Call Form_Load
           Call Autonumero
           Me.Nome = Null
           Me.Nome.SetFocus
           
           Else
               DoCmd.Close acForm, Me.Name
       End If
               
           End With
       
    End Sub

    JXAVIER gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2773
    Registrado : 22/11/2016

    [Resolvido]Numeração ID automática após exclusão de Registro Empty Re: [Resolvido]Numeração ID automática após exclusão de Registro

    Mensagem  DamascenoJr. 23/9/2020, 20:46

    Ao excluir o 3, você quer que o 4 vire o 3, e o 5 vire o 4, ou que um novo registro ocupe use a numeração faltante?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    JXAVIER gosta desta mensagem

    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 08/08/2017

    [Resolvido]Numeração ID automática após exclusão de Registro Empty Numeração ID automática após exclusão de Registro

    Mensagem  JXAVIER 24/9/2020, 12:01

    Bom dia, mestre

    correto, eu gostaria que a numeração não tivesse intervalo, como acontece nos codigos e na autonumeração Access. Ex.: 1,2,3,5,7, foi excluido o 4 e o 6, desejo que a numeração dos dados cadastrados sejam sequencial, independente do registro... volte a ser 1,2,3,4,5,6,7. Grato pelo apoio e aprendizado.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2773
    Registrado : 22/11/2016

    [Resolvido]Numeração ID automática após exclusão de Registro Empty Re: [Resolvido]Numeração ID automática após exclusão de Registro

    Mensagem  DamascenoJr. 24/9/2020, 12:31

    O banco de dados terá apenas um utilizador? Pois se houver outro utilizador e for programado para que após a exclusão de um registro todos os demais registros tenham que alterar seu ID para obedecer a uma determinada ordem, então o utilizador receberá uma mensagem de que outra pessoa alterou o registro que ele estava editando, e que, caso fosse da vontade dele, a edição que outra pessoa causou poderia ser descartada.

    A ordem do identificador único de um registro em 99% dos casos é irrelevante. Se for para que saiam em ordem em um relatório, há outras maneiras de conseguir isso. Qual seria a utilidade no seu caso?

    JXAVIER gosta desta mensagem

    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 08/08/2017

    [Resolvido]Numeração ID automática após exclusão de Registro Empty Numeração ID automática após exclusão de Registro

    Mensagem  JXAVIER 24/9/2020, 13:53

    Mestre, neste caso seria utilizar no formulário, mas eu descobri uma forma no campo calculado que vai ajudar sem o VBA, assim que eu concluir o modelo vou disponibilizar no repositório. Grato pelas orientações e dedicação. Muito obrigado.

    Conteúdo patrocinado

    [Resolvido]Numeração ID automática após exclusão de Registro Empty Re: [Resolvido]Numeração ID automática após exclusão de Registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 08:48