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


    [Resolvido]Atualizar Numeração após excluir algum registro

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Atualizar Numeração após excluir algum registro Empty [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  Ismael Silva em 13/1/2020, 10:58

    Bom dia,

    Como poderia fazer o seguinte:
    Tenho uma chave primária do Tipo Número(Não numeração automática). Tenho 120 registros no meu Formulário, e supondo que eu tenho que excluir um registro, digamos o 9º registro, então para não deixar falha na numeração, gostaria de saber se existe alguma rotina, que eu possa renumerar os registros, de forma que se tiver que excluir, não fique falha, e sim, na sequência, 123456... e assim por diante.

    Obrigado.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4564
    Registrado : 20/04/2011

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  Silvio em 13/1/2020, 11:41



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  Ismael Silva em 13/1/2020, 12:21

    Sílvio, obrigado, mas não está mais disponível o link.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4564
    Registrado : 20/04/2011

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  Silvio em 13/1/2020, 12:30

    Eita....

    Crie um novo tópico ( link quebrado - Error 404 ). Coloque o link nele para que possam avisar o JPaulo.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  DamascenoJr. em 13/1/2020, 23:03

    O banco é compartilhado? Se sim, dará problema se outros usuários estiverem usando a tabela ou tabelas relacionadas à esta primeira.

    Outra coisa, você gostaria que a um novo registro fosse adicionado a numeração faltante ou que no momento da exclusão de um registro a numeração se refizesse?


    .................................................................................
    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.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  Ismael Silva em 14/1/2020, 00:40

    Boa noite DamascenoJr

    o BD não é compartilhado, e a ideia seria essa mesmo, ao deletar um registro, já refizesse a numeração.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  DamascenoJr. em 14/1/2020, 02:19

    Veja esse exemplo usando macros de dados. Entre na tabela e exclua um registro.


    .................................................................................
    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.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  Ismael Silva em 15/1/2020, 13:13

    DamascenoJr,

    Obrigado,

    Vou adaptar aqui.

    Resolvido.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  DamascenoJr. em 15/1/2020, 22:52

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    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.
    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 26/07/2016

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  AMarcos em 25/1/2020, 16:21

    Companheiro teria como postar novamente o anexo sobre excluir registro atualizando numeração???


    Att,


    AMarcos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  DamascenoJr. em 25/1/2020, 16:55

    Em uma tabela que possui um campo chamado "id", e tal campo não é do tipo autonumeração (isto é, é possível de ser editado), basta na macro de dados "após excluir" usar a macro conforma abaixo: (macros de dados só existem do access 2010 em diante)

    [Resolvido]Atualizar Numeração após excluir algum registro Macro_10


    .................................................................................
    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.
    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 26/07/2016

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  AMarcos em 26/1/2020, 20:40

    Amigo Damasceno obrigado pela rápida resposta à minha solicitação.  Mas apesar de ter feito as mudanças necessárias, não consegui êxito ao excluir um item do Formulário Cadastro de Motoristas. A Tabela não reordena a numeração.

    No botão Excluir criado no formulário, eu adaptei um código VBA mas mesmo assim dar erros e não reordena os registros.  Por exemplo se eu excluir o 17, no Formulário a sequência fica do 16 para 18 e pior no Relatório além da sequência errada, o valor total de motorista não atualiza. Se eu exclui um motorista e não inseri nenhum, o certo é diminuir a quantidade que existia.

    Código usado:

    Private Sub Excluir_Click()
    If Not IsNull(Me.Código) Then
       Call excluirMotorista(Me.Código)
     End If
    End Sub

    ______________________________________________________________________________________________________________

    Sub excluirMotorista(Código)

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Motoristas WHERE Código=" & Código)
    If MsgBox("Tem certeza que quer excluir o motorista [" & rs!Código & "]?", vbCritical + vbYesNo, "Exclusão de motorista") = vbYes Then
     rs.Delete
    End If
    rs.Close
    End Sub



    Preciso do seu direcionamento meu amigo.


    Att,


    AMarcos
    Anexos
    [Resolvido]Atualizar Numeração após excluir algum registro AttachmentExcluir_registro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (105 Kb) Baixado 4 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  DamascenoJr. em 26/1/2020, 20:48

    Não explorei o projeto. Já fui direto na macro de dados e vi esse erro. A variável local é criada como "motorista" e depois é chamada de "motoristas".

    [Resolvido]Atualizar Numeração após excluir algum registro Erro_a10


    .................................................................................
    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.
    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 26/07/2016

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  AMarcos em 26/1/2020, 22:08

    O amigo tem razão. Já foi corrigido. Mesmo assim a reordenação não acontece. Nem na tabela e nem no Relatório.

    Acabei de excluir o motorista 9 e a sequência na Tabela ficou do 8 pra 10. E no Relatório a quantidade total mesmo excluindo um item, o valor não diminui.


    AMarcos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  DamascenoJr. em 26/1/2020, 22:16

    Veja a mensagem de nº 11 deste tópico.

    -------------------------------
    Em uma tabela que possui um campo chamado "id", e tal campo não é do tipo autonumeração (isto é, é possível de ser editado), basta na macro de dados "após excluir" usar a macro conforma abaixo: (macros de dados só existem do access 2010 em diante)
    -------------------------------

    Olhei sua tabela e vi que o campo Código que você quer que seja reordenado é do tipo Autonumeração, ou seja, não pode ser editado. Tem que ser um campo do tipo número (não numeração automática).


    .................................................................................
    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.
    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 26/07/2016

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  AMarcos em 27/1/2020, 03:33

    Certíssimo!!!

    Obg Damasceno pela ajuda. era realmente o que faltava e eu estava cego em ver.


    Att,



    AMarcos

    Conteúdo patrocinado

    [Resolvido]Atualizar Numeração após excluir algum registro Empty Re: [Resolvido]Atualizar Numeração após excluir algum registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/4/2020, 10:42