[Resolvido]Anular Registos Em Form Continuo

Boa noite

Como anular registos num Form Continuo alimentado por uma consulta de Referências Cruzadas.

Quando você diz anular, é excluir o registro?

Boa noite Criquio

Sim

Criar um botão de exclusão no form continuo.
Criar uma consulta exclusão baseado no campo, por exemplo NomeCliente do form continuo
Executar a consulta exclusão via VBA.

Acho que resolve.

Feras!
Tenho um problema idêntico. Será que alguem sabe resolver o assunto?

Obrigado.

Deem uma olhada no Repositório de Exemplos que tem exemplos que exclui registros. É só adaptar.

Criquio
Qual é o nome do exemplo no Repositório de Exemplos ?
Obrigado

Não me recordo no momento, mas pode tentar isso:

If MsgBox("Confirma exclusão?", vbYesNo + vbQuestion, "ATENÇÃO") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Else
Exit Sub
End If

Tem tambem esses dois tópicos que tratam do assunto:

http://maximoaccess.forumeiros.com/t1558-resolvidoexcluir-apartir-da-caixa-de-listagem

http://maximoaccess.forumeiros.com/t1185-resolvidocomo-excluir-um-registro-do-access-atraves-do-vb-2010

Boa noite

Eis a minha duvida
http://dl.dropbox.com/u/8169944/Assis%20Anular.mdb

Olhe o simples como o Grande JPaulo diz;

Limpei o que não fazia falta no botão de apagar;

Private Sub Comando64_Click()
If MsgBox("Anular Movimento ? " & Chr(10) + Movimentos & Chr(10) + Ref & Chr(10) + Entidade & Chr(10) + Chr(13) & "Valor de " & Format(Valor, " 0.00 €"), vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [Lançamentos] WHERE LN = " & Me.LN
DoCmd.SetWarnings True
Me.Requery
Me.Data.SetFocus
Else
Exit Sub
End If
End Sub

Assis

Está a funcionar. Você tinha aí um campo independente (não estive a ver o que era) que impedia o update dos registros e consequentemente o delete. Quem o deletou fui eu. Agora veja o que tem que fazer.

http://dl.dropbox.com/u/8157744/Assis%20Anular.rar

Boa Noite

Tem 2 Tabelas
Tem 3 consultas

Uma consulta "MovimentosAnular" vai buscar dados a Tabela "Lançamentos".
Outra Consulta "MovimentosAnularDatados" vai buscar dados a Tabela LançamentosDatados"

E a terceira Consulta Referências Cruzadas "Movimentos A Anular" pega os dados das duas anteriores.
E eu quero que o "Form Anular Movimentos" vá buscar os dados à consulta de "Movimentos A Anular" que é composta por dados das 2tabelas

DoCmd.RunSQL "DELETE * FROM [Movimentos a Anular] WHERE LN = " & Me.LN

Olá Vieira

O Vieira Alterou os dados que alimentavam o Formulário.

O Campo Observações da "#Nome?" porque foi alterado a "Origem de Dados" do Form. para a consulta "MovimentosAnular".

O Exemplo que eu coloquei a "Origem de Dados do Form é a Consulta "Movimentos A Anular"

Olá Assis

Devo te-lo feito inadvertidamente sem dúvida. Logo que oportuno vou ver isso de novo mas presumo que não vai ser fácil pois essa consulta resulta de várias outras e aí reside o problema.

Assis qual é o problema da instrução que o Ricardo lhe passou ?

As suas consultas estão baseadas na tabela Lançamentos, logo o registro terá de ser Excluído assim mesmo.

http://dl.dropbox.com/u/771097/Assis%20Anula_OLD.rar

Olá JPaulo

O problema é que se clickar na Última Linha.

Esta Linha "Pag. Multibanco" "Eletricidade" "EDP" "177,37" "Datados" Não Anula .

JPaulo o campo Observações ou diz "Normal" ou "Datados".

O que diz "Normal" são da tabela "Lançamentos".
O que diz "Datados" sao da tabela "LançamentosDatados"

É simples amigo Assis;

Private Sub Comando64_Click()
If MsgBox("Anular Movimento ? " & Chr(10) + Movimentos & Chr(10) + Ref & Chr(10) + Entidade & Chr(10) + Chr(13) & "Valor de " & Format(Valor, " 0.00 €"), vbYesNo + vbQuestion, "Aviso") = vbYes Then

If Me.Observações.Value = "Normal" Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [Lançamentos] WHERE LN = " & Me.LN
DoCmd.SetWarnings True
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [LançamentosDatados] WHERE LN = " & Me.LN
DoCmd.SetWarnings True
End If
Me.Requery
Me.Data.SetFocus
Else
Exit Sub
End If
End Sub


Bom final de Semana, esta já está.

Boas JPaulo

Bom final de Semana, esta já era ... funfa mas:

Como seria para por aqui duas condições ?
DoCmd.RunSQL "DELETE * FROM [Lançamentos] WHERE LN = " & Me.LN

Obrigado