[Resolvido]Apagar dados de subformulário

Tenho um formulário principal e um subformulário, ligados atrvés de Nº Processo (campo chave).
O subformulário contem todos os documentos emitidos para esse processo e os dados tem origem numa tabela de documentos emitidos que é actualizada através de uma consulta.
Na tabela processos tenho um campo com a data de fecho do processo e um campo sim/não para Arquivo.
Pretendia, se fosse possivel, que ao fechar o processo colocando a data de fecho ou o arquivado, me apagasse todos os documentos do subfomulário, em virtude de já não serem necessários e estarem a sobrecarregar a tabela.
obrigado
abraço

Se está ligado a uma tabela não tem problema. Temos um sub form, então coloque um botão para apagar os campos que desejar. O assistente do access até faz tudo por si.

Expliquei-me mal, porque o sub está ligado a uma consulta e não á tabela e o que pretendia realmente era que apagasse todos os registos do processo automaticamente, pois um processo pode ter muitos documentos não haverá maneira de fazer isso através de uma condição ou mesmo de uma outra consulta de eliminar ?
Obrigado

Só se o fizer através de uma consulta de eliminar, porque os dados terão que ser apagados na tabela.

Mas só para apagar os desse processo, como poderei construir essa consulta ?

No evento VBA do seu campo sim/não para Arquivo

Private Sub SuaChekBox_AfterUpdate()
Dim strSql As String
strSql = "DELETE * FROM SuaTabela WHERE SuaChekBox = -1"
DoCmd.RunSQL (strSql)
Me.Requery
End Sub

O Mestre já deu a resposta, só para não perder o trabalho, penso que também iria funfar

Dim qdfNew As DAO.QueryDef
Dim strSQL As String

If Len(Nz(DLookup(“Name”, “msysobjects”, _
“type=5 and Name= ‘nomeconsulta’”), “”)) <> 0 Then
DoCmd.DeleteObject acQuery, “nomeconsulta”
End If

strSQL = “SELECT nomecampo1,nomecampo2 ” & _
“FROM dbo_nometabela ” & _
“WHERE codigo>= xxxx;”

Set qdfNew = CurrentDb.CreateQueryDef(“nomeconsulta”, strSQL)
DoCmd.OpenQuery “nomeconsulta”, acNormal, acEdit

Set nomeconsulta = Nothing

Dá erro. Diz que não encontra a tabela ou a consulta
Obrigado

Amigo Vieira, se a consulta é proveniente de uma tabela, para quê deletar a consulta e voltar a criá-la ?

Não é uma consulta temporaria, é uma consulta definitiva que alimenta o subformulario, daí termos o cuidado necessário para que o subform tenha sempre ligação.

João:

Teste como lhe passei que é o simples, apenas colque o nome correto da sua tabela e campo sim/nao.

Bom dia Mestre

Realmente a sua solução é nota 10, sem qualquer dúvida. Pareceu-me ou melhor, entendi que esses dados eram temporários.

Certo.

E ainda é muito provavel que o João tenha que lhe dar com o comando de salvar antes da instrução, para que quando marcar a chekbox salve essa marcação na tabela e depois apague o registro.

Private Sub SuaChekBox_AfterUpdate()
Dim strSql As String
'salva a marcação da chekbox
DoCmd.RunCommand acCmdSaveRecord
'apaga o registro da tabela
strSql = "DELETE * FROM SuaTabela WHERE SuaChekBox = -1"
DoCmd.RunSQL (strSql)
'faz um refresh ao subform
Me.Requery
End Sub

Dá erro 3078 diz que não encontra a tabela ou consulta

Você está inserindo o nome da sua tabela direitinho? Dê uma checada no nome, se não tem letra a mais ou a menos ou diferente.

Realmente tinha o nome com um "s" a mais. Mas agora tem outro problema apaga a tabela toda e não só os registos desse processo.,
Ao passar o comando apagou os registos de todos os processos ou seja apagou a tabela toda.

Mais ninguém tem nenhuma sugestão ?

Olá amigos,

Vejo que se trata de tabelas relacionadas. assim sendo, as duas tabelas tem um número em comum, por exemplo:

Tabela Processo >> Tabela (subformulário do Processo)


Então a chave primária do Processo está presente e relaciona os registros no subformulário.

Para dar certo, terá que pegar a chave primária do Processo e armazenar em uma variável, a frente você passa o valor dessa variável como parâmetro / critério que apagará certinho somente os registros relacionados.

Acredito que o código do Mestre JPaulo dê para implementar dessa forma, declarando a variável e depois a colocando no critério.

Amigo Dilson:
Realmente o formulário principal e o subformulário estão ligados pelo Nº Processo.
Dava para explicar um pouco melhor o que fazer ou exemplificar, pois sou iniciante e tenho dificuldade em aplicar as indicações que me deu.
Obrigado

Olá João,

Peguei o código do JPaulo e apliquei no formulário, em um botão no evento ao clicar:

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim strSql As String

'apaga o registro da tabela
strSql = "DELETE * FROM Sua Tabela do SubForm WHERE SeuCodigoDoProcesso = " & Me!SeuCodigoDoProcesso

DoCmd.RunSQL (strSql)
'faz um refresh ao subform
Me.Requery
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Funcionou.

Veja que referenciei no sql o campo que co-ralaciona os registros em ambas as tabelas.

Minha sugestão agora, é que você deixe esse botão desativado e ao clicar na checkbox indicando "Sim" como concluído, ele ative o botão para excluir os registros do subformulário, sacou?!!

Lembrando que SeuCodigoDoProcesso, trata-se da chave pimária da tabela Processos

Faça um teste e veja.

Utilizando a checkbox funcionou assim:

No evento ao clicar da checkbox:

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
If SuaCheckBox = -1 Then
Dim strSql As String

'salva a marcação da chekbox
DoCmd.RunCommand acCmdSaveRecord
'apaga o registro da tabela
strSql = "DELETE * FROM Sua Tabela do SubForm WHERE SeuCodigoDoProcesso = " & Me!SeuCodigoDoProcesso

DoCmd.RunSQL (strSql)
'faz um refresh ao subform
Me.Requery
Else
Exit Sub
End If
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Observe que não foi preciso armazenar em variável, apenas referenciar na instrução.

Já coloquei o código mas mesmo assim não deleta os registos do subformulário
Obrigado

Veja o exemplo que fiz utilizando as duas maneiras descritas acima:

http://www.speedyshare.com/files/27903232/ExcluiRegistrosDoSubForm.rar

Obrigado amigo Dilson.
Assunto resolvido.
Um abraço

Resolvido está desde o inicio, agora gostariamos de saber o que você estava a fazer de errado.

Estava a colocar o Nº Processo com erro