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]Excluir registros selecionados em formulário contínuo

    avatar
    tombr
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 260
    Registrado : 08/04/2018

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  tombr em 13/12/2020, 19:41

    Olá,

    Como faço para excluir, por exemplo, 04 linhas de em um formulário contínuo de uma única vez.

    Já criei o botão excluir, porém ele só exclui uma linha por vez.

    Segue em anexo programa.
    Anexos
    [Resolvido]Excluir registros selecionados em formulário contínuo AttachmentExcluir Registro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (132 Kb) Baixado 11 vez(es)


    Última edição por tombr em 15/12/2020, 18:57, editado 3 vez(es)
    avatar
    tombr
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 260
    Registrado : 08/04/2018

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  tombr em 14/12/2020, 09:41

    Olá,

    Encontrei esse tópico similar. Porém não sei como aplicar a fórmula no arquivo. Alguém poderia me ajudar.

    Link do Tópico: https://www.maximoaccess.com/t24660-resolvidoexcluir-registro-em-subformulario-continuo

    Fórmula:
    Private Sub btn_excluir_Click()
    'Botão excluir registros

    DoCmd.GoToControl Screen.PreviousControl.Name

    If IsNull(Me.idPreco) Or Me.idPreco = "" Then
    MsgBox "Não tem dados para ser excluidos", vbCritical, "ERRO AO EXCLUIR"
    Else
    If MsgBox("Você esta prestes a excluir 1 registro." & vbCrLf & "" & vbCrLf & "CÓDIGO: " & Format(idPreco, "0000") & "." & vbCrLf & "Se clicar em Sim, não será possivel desfazer esta operação de exclusão." & vbCrLf & "Tem certeza que deseja excluir este registro?", vbExclamation + vbYesNo, "EXCLUIR REGISTRO") = vbYes Then
    CurrentDb.Execute "DELETE * FROM tbl_CadProPreco WHERE idPreco=" & Me.idPreco
    MsgBox "Registro excluido com sucesso!", vbExclamation, "SUCESSO"
    Me.Recalc
    Forms!frm_CadProduto.dataHoje
    End If
    End If

    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3246
    Registrado : 21/04/2011

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  Marcelo David em 14/12/2020, 10:14

    Bom dia,
    Os 4 registros a serem excluídos devem ter alguma característica comum que será usado como critério
    para a apagar. Qual é no seu caso?


    .................................................................................
    Marcelo David | [Resolvido]Excluir registros selecionados em formulário contínuo LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 260
    Registrado : 08/04/2018

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  tombr em 14/12/2020, 12:04

    Olá, Marcelo David

    No meu caso quero apagar tudo de uma única vez.

    Selecionar as 04 linhas que contém registros e depois apagar clicando no botão "excluir'.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3246
    Registrado : 21/04/2011

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  Marcelo David em 14/12/2020, 14:15

    Sim, entendo. Mas para apagar as linhas selecionadas em subformulários, caso eles estejam no modo Folha de dados,
    basta seleciona-los e apertar deletar.

    Se for via código, a seleção será um pouco mais complicada a ser feita, pois nesse caso seria mais usual usar uma listbox
    ao invés de subformulário.

    Mas se precisa selecionar e apagar apenas os selecionados, sugiro que crie uma coluna "Apagar" do tipo "Sim/Não".

    Daí, ao marcar como sim, poderíamos usar essa coluna como critério.

    Agora se os registros a serem apagados tiverem um ID comum (chave estrangeira), daí fica fácil, basta usar esse campo
    como critério.

    Em qual das opções se enquadra melhor sua necessidade?


    .................................................................................
    Marcelo David | [Resolvido]Excluir registros selecionados em formulário contínuo LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 260
    Registrado : 08/04/2018

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  tombr em 14/12/2020, 15:08

    Olá, Marcelo David

    Estou usando formulário contínuo.

    No modo de "Apagar" do tipo "Sim/Não" se tiver, por exemplo, 20 linhas para excluir, consigo selecionar todas de uma única vez e excluir?

    Quero um modo que deixa o processo mais ágil.


    Última edição por tombr em 15/12/2020, 14:01, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  Silvio em 14/12/2020, 19:09

    Bem, caixa de texto que não recebe o valor de uma combobox, é meio complicado, mas tudo bem.

    Vai ter que criar um campo sim/não em tua tabela de origem. Vai ter que inserir esse campo no teu formulário.
    Vai ter que criar um botão para apagar os registros selecionados no formulário continuo.

    E o principal...vai ter que colar esse código ao clicar desse botão criado.

    Em tempo, não testei o código, talvez tenha que dar uma aprimorada nele.


    '----------------------------------------------------------------------------------------------------------------------------------------------------
    ' deleto todos que estão filtrados e marcados na tabela onde o excluir = -1
    Dim DB As Database
    Dim rs As Recordset

    Set DB = CurrentDb
    Set rs = DB.OpenRecordset("SELECT * FROM IncluirLojaORc where excluir = -1")

    If rs.RecordCount > 0 Then
       Do While Not rs.EOF
           DB.Execute "DELETE * FROM IncluirLojaORc WHERE excluir = -1"
           
           rs.MoveNext
       Loop

     
           End If
           Me.Requery

    ***************bons estudos e bom trabalho******************************


    .................................................................................
    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."

    tombr gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3246
    Registrado : 21/04/2011

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  Marcelo David em 14/12/2020, 19:25

    Então, o formulário IncluirLojaOrçamento é o subformulário (continuo) e
    está ligado a tabela IncluirLojaOrc, sem nenhuma filtragem. A intenção é excluir
    tudo da tabela IncluirLojaOrc?
    Se não, qual é o critério usado para exclusão?


    .................................................................................
    Marcelo David | [Resolvido]Excluir registros selecionados em formulário contínuo LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 260
    Registrado : 08/04/2018

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  tombr em 15/12/2020, 14:53

    Olá,

    Consegui resolver meu projeto usando:

    A fórmula do Silvio postada aqui.

    E também a fórmula postada nesse tópico:
    https://www.maximoaccess.com/t22699-resolvidoselecionar-todos-os-registros-de-um-formulario-continuo-e-exclui-los-atraves-de-um-botao-de-comando
    Anexos
    [Resolvido]Excluir registros selecionados em formulário contínuo AttachmentSelecionar Tudo para Excluir.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (80 Kb) Baixado 5 vez(es)


    Última edição por tombr em 16/12/2020, 14:03, editado 1 vez(es)

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3246
    Registrado : 21/04/2011

    [Resolvido]Excluir registros selecionados em formulário contínuo Empty Re: [Resolvido]Excluir registros selecionados em formulário contínuo

    Mensagem  Marcelo David em 16/12/2020, 10:41

    Excelente! Parabéns e obrigado pelo feedback cheers .


    .................................................................................
    Marcelo David | [Resolvido]Excluir registros selecionados em formulário contínuo LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

    tombr gosta desta mensagem


      Data/hora atual: 22/1/2021, 01:22