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]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 : 662
    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 Seg 13 Jan - 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 : 4637
    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 Seg 13 Jan - 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 : 662
    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 Seg 13 Jan - 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 : 4637
    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 Seg 13 Jan - 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 : 2455
    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 Seg 13 Jan - 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 : 662
    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 Ter 14 Jan - 0: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 : 2455
    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 Ter 14 Jan - 2: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 : 662
    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 Qua 15 Jan - 13:13

    DamascenoJr,

    Obrigado,

    Vou adaptar aqui.

    Resolvido.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    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 Qua 15 Jan - 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 : 218
    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 Sab 25 Jan - 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 : 2455
    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 Sab 25 Jan - 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 : 218
    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 Dom 26 Jan - 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 : 2455
    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 Dom 26 Jan - 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 : 218
    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 Dom 26 Jan - 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 : 2455
    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 Dom 26 Jan - 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 : 218
    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 Seg 27 Jan - 3:33

    Certíssimo!!!

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


    Att,



    AMarcos

      Data/hora atual: Qui 3 Dez - 22:25