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

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.

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

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?

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

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?

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.

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******************************

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?

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

Excelente! Parabéns e obrigado pelo feedback .