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

    Excluir varios registros

    Compartilhe

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Excluir varios registros

    Mensagem  marcelo3092 em 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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Excluir varios registros

    Mensagem  FabioPaes em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Excluir registro

    Mensagem  marcelo3092 em 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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Excluir varios registros

    Mensagem  FabioPaes em 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...

    [Você precisa estar registrado e conectado para ver esta imagem.]
    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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Excluir registro

    Mensagem  marcelo3092 em 5/6/2016, 15:15

    Bom dia amigo ta ai o db

    [Você precisa estar registrado e conectado para ver este link.]

    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

    bellaF
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Excluir varios registros

    Mensagem  bellaF em 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!
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Excluir varios registros

    Mensagem  Alexandre Neves em 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

    bellaF
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Excluir varios registros

    Mensagem  bellaF em 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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Excluir varios registros

    Mensagem  JPaulo em 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    bellaF
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Excluir varios registros

    Mensagem  bellaF em 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
    WMS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (760 Kb) Baixado 2 vez(es)

      Data/hora atual: 21/7/2018, 14:41