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


5 participantes

    Excluir varios registros

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 19/08/2010

    Excluir varios registros Empty Excluir varios registros

    Mensagem  marcelo3092 3/6/2016, 18:46

    Boa tarde galera venho mais uma vez tirar uma duvida espero alguém possa me avisar
    Tenho um código num botão que pega o SubTotal e o Numero de parcelas e gera as parcelas sequenciais p que eu queria saber e como posso fazer para tipo se eu gerar as parcelas erradas para excluir e gera de novo tem que excluir as que foi gerada o problema e q tem que ser excluida uma por uma o que eu queria era um botão para excluir todas de uma vez... espero e agradeço a ajuda...

    Private Sub Comando21_Click()
    Dim i, strDetalhe_Calculo As Integer
    Dim strValor As Currency
    Dim strData_Parcela As Date

    strDetalhe_Calculo = [Forms]![Alunos]![Qtda_Mes]
    strValor_Parcela = [Forms]![Alunos]![ValorR$] / strDetalhe_Calculo
    strData_Parcela = [Forms]![Alunos]![Data_Parcela]

    If NParcela = "" Or IsNull(NParcela) Or NParcela = "0" Then
    For i = 1 To strDetalhe_Calculo
    DoCmd.GoToRecord , , acNewRec
    Me.NParcela = i
    Me.Valor_Parcela = strValor_Parcela
    Me.Vencimento = DateAdd("m", i - 1, strData_Parcela)
    Next
    Else
    MsgBox "Já foram calculadas as prestações desta nota." _
    & " Para calcular novamente tem que excluir as Atuais.", vbCritical, "Erro"
    End If
    Voltar ao Topo
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Excluir varios registros Empty Re: Excluir varios registros

    Mensagem  FabioPaes 3/6/2016, 20:43

    Delete todas os registros da tabela ContaReceber referente a venda xxx

    Ex:

    'Coloque no Botão excluir Parcelas, ajuste com os nomes de campos e tabela
    Currendb.Execute "DELETE * FROM tbContaReceber WHERE COdVenda = " & Me.CodVenda & ""
    Me.Recalc


    Dessa forma irá filtrar e apagar so os registros da Venda que estiver na tela, compara com o Campo do formulario de nome CodVenda.


    Obs: Faça o teste em BD de Backup!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 19/08/2010

    Excluir varios registros Empty Excluir registro

    Mensagem  marcelo3092 5/6/2016, 04:25

    Boa noite amigo fabio tentei usa seu código porem da erro em tempo de execução 424. vou te explicar os dois casos bem certim pra vc me entende

    tenho um formulario alunos e dentro desse formulario tenho controle de guias e tem uma com o nome calculos e dentro dela ta o sub formulário que gera parcelas com o nome Detalhe_Calculo e no rodape desse formulario o botão de gerar parcelas o que eu queria era criar um botão para poder apagar as parcelas geradas. seu código tentei mais não deu
    Currendb.Execute "DELETE * FROM Detalhe_Calculo WHERE Cód_Aluno = " & Me.Cód_Aluno & ""
    Me.Recalc

    Outro probleminha e em outro formulario meu no vendas eu tenho o botão de excluir vendas porem se eu excluir a venda o Detalhe_Venda que e o sub formulario que adiciona os produtos fica la mais sem venda então o estoque n retorna pq ele ainda esta preenchido acredito que os problemas são parecido queria que no botões excluir venda antes de excluir a venda apagasse primeiro o sub formulario so que esse formulario e baseado em uma consulta Detalhe_Venda_Consulta.

    se vc puder me ajudar agradeço.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Excluir varios registros Empty Re: Excluir varios registros

    Mensagem  FabioPaes 5/6/2016, 13:38

    Amigo, o erro que deu provavelmente e com os nomes dos campos, Poste aqui seu BD.

    A outra questao é o Relacionameno. Deve marcar a caixa : Propagar exclusões...

    Excluir varios registros Acq1w6
    Assim ao excluir o Registro do formulario principal, ele leva o registro relacionado do subformulario.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 19/08/2010

    Excluir varios registros Empty Excluir registro

    Mensagem  marcelo3092 5/6/2016, 15:15

    Bom dia amigo ta ai o db

    https://www.dropbox.com/s/klwrpz2srajg88l/Sistema%20Academia%2005%2006.rar?dl=0

    Bom acho que vc entendeu né o problema e no formulário alunos na aba calculo vc coloca a quantidade de parcelas e clica no botão gerar
    blz ai o q eu queria era o botão para excluir todas elas de uma vez caso o usuario gere as parcelas erradas.

    e no formulário vendas como te falei no botão excluir queria que primeiro ele deleta se os produtos primeiro..

    login marcelo
    senha 123

    desde ja agradeço
    avatar
    bellaF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 40
    Registrado : 05/04/2017

    Excluir varios registros Empty Re: Excluir varios registros

    Mensagem  bellaF 21/6/2018, 16:33

    Olá, pessoal.

    Tenho um problema semelhante, mas que não consigo resolver.
    Tenho um formulário com o um campo de data que eu preencho e um botão "Apagar registros".
    Preciso que ao clicar nesse botão, sejam pagados os registros de uma tabela, quando o campo de data da tabela for igual ao que preenchi no formulário.
    Utilizei o seguinte código:

    Private Sub btApagar_Click()
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Tbl_Registros")

    'verifica se tem registros com a data selecionada:
    If DLookup("Data", "Tbl_Registros", "txtData.Value") Then
    'apagar registros da data selecionada
    Currendb.Execute "DELETE * FROM Tbl_Registros WHERE Data = " & Me.txtData & ""

    Else
    GoTo NaoExecuta
    Exit Sub
    End If
    NaoExecuta:
    rs.Close
    db.Close
    exit_btApagar_Click:
    Exit Sub
    End Sub


    No entanto, deu "Erro '424' O objeto é obrigatório".
    Alguém saberia me ajudar?
    Obrigada!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Excluir varios registros Empty Re: Excluir varios registros

    Mensagem  Alexandre Neves 21/6/2018, 16:53

    Boa tarde
    Tente

    Private Sub btApagar_Click()
    'apagar registros da data selecionada
    Currendb.Execute "DELETE * FROM Tbl_Registros WHERE CampoData=#" & Me.txtData & "#"
    End Sub

    adeqúe o CampoData para o nome certo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    bellaF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 40
    Registrado : 05/04/2017

    Excluir varios registros Empty Re: Excluir varios registros

    Mensagem  bellaF 21/6/2018, 17:58

    Boa tarde, Alexandre!

    Agradeço a resposta rápida.
    No entanto continua com o mesmo erro.

    Será que eu poderia realizar essa ação de outra maneira?

    Obrigada novamente.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Excluir varios registros Empty Re: Excluir varios registros

    Mensagem  JPaulo 22/6/2018, 10:20

    Isabella, o seu formulario é continuo ou simples.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Excluir varios registros Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Excluir varios registros Folder_announce_new 102 Códigos VBA Gratuitos...
    Excluir varios registros Folder_announce_new Instruções SQL como utilizar...
    avatar
    bellaF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 40
    Registrado : 05/04/2017

    Excluir varios registros Empty Re: Excluir varios registros

    Mensagem  bellaF 22/6/2018, 17:50

    Boa tarde, JPaulo!

    Não sei exatamente qual a diferença.
    Se ajudar, segue o arquivo do DB.

    Agradeço pela assistência.
    Abs.
    Anexos
    Excluir varios registros AttachmentWMS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (760 Kb) Baixado 14 vez(es)

    Conteúdo patrocinado


    Excluir varios registros Empty Re: Excluir varios registros

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:26