[Resolvido]Delete com Recorset

Bom dia!
Estou com um problema e gostava de saber se alguém me podia ajudar

Tenho um formulário com vários registos e queria com uma checkbox dizer aqueles que quero apagar, e consoante aqueles que estão seleccionados apago...

Alguém me pode ajudar, eu já tentei desta forma:

Código:


Set rstAccess = CurrentDb.OpenRecordset("Select * from T_Achados")
    Do Until rstAccess.EOF
   
        If rstAccess(Verificacao) = -1 Then
           
            CurrentDb.Execute ("Delete * From T_Achados Where CODIGO_INVENTARIO like '" + Me.CODIGO_INVENTARIO + "'")
           
        Else
        End If
       
    rstAccess.MoveNext 'muda para proximo registo
    Loop


Mas não estou a conseguir...
Alguém me pode ajudar?

Bom dia,

Tente somente a linha abaixo, no lugar de todo o código:

Código:

CurrentDb.Execute "Delete * From T_Achados Where Verificacao = -1"

não dá, como disse...

Verificacao é o campo da tabela T_Achados, vinculado ao checkbox no formulário?
Nesse caso, não tem como não funcionar...
Em qual evento está utilizando o código?

Fiz um botão que ao clicar, apaga-se os registos que tivessem seleccionados

Novamente, Verificacao é o campo da tabela T_Achados vinculado ao checkbox no formulário?

Sim, é

Então não tem por que não funcionar.
Em todo caso, tente assim:

Código:

DoCmd.RunCommand AcCmdSaveRecord
CurrentDb.Execute "Delete * From T_Achados Where Verificacao = -1"
Me.Requery

Sim é isso...
Obrigado

Já agora outra questão

Eu tenho outras tabelas associadas ao CODIGO_INVENTARIO que apanhei...
Como é que consigo fazer agora para apanhar dessas tabelas?

Desculpe, não entendi.
O que quer dizer com "apanhar dessas tabelas"?

Se é outra questão, pode dar essa como resolvida e abrir outro tópico.

O que queria dizer era apagar dessas outras tabelas...

O que estou a fazer é isto:

Código:


Dim numCod As String
    numCod = -1
 
    Set rstAccess = CurrentDb.OpenRecordset("Select * From T_Achados Where Verificacao = " + numCod + "")
    Do Until rstAccess.EOF

    registoCod = rstAccess(CODIGO_INVENTARIO)
    CurrentDb.Execute ("Delete From T_Achados Where CODIGO_INVENTARIO like '" + registoCod + "'")
    CurrentDb.Execute ("Delete From T_Adornos Where CODIGO_INVENTARIO like '" + registoCod + "'")

    rstAccess.MoveNext 'muda para proximo registo
    Loop


Mas não estou a conseguir...é relacionado com o mesmo...pode me ajudar?

Desculpe, eu achei que Verificacao seria o campo do tipo sim/não para indicar os registros a serem deletados, mas parece que está relacionado a um código (numCod).

Confirma se é assim mesmo, para que possamos ajudá-lo. Se Verificacao não é o campo para marcar os registros a serem excluídos, qual é então o nome do campo?

Já consegui resolver...

Muito obrigado pela ajuda

Cumprimentos