[Resolvido]Excluir dados em Loop

Boa tarde pessoal,

estou quebrando a cabeça para excluir dados de uma tabela em Loop e preciso muito da visão e ajuda de vocês. Tenho um formulário "frmOcorrencia" e dentro dele tenho um SubFormulário  "SUB2_Ocorrencia" no formato Folha de Dados, preciso que ao clicar no botão excluir, o sistema corra a tabela e verifique se o campo "OC" do form "SUB2_Ocorrencia" é igual ao campo [_ID] do frmOcorrencia ai ele exclua todos os dados, mas meu código abaixo não esta funcionando.

Código:


Private Sub btoExcluir_Click()
 On Error Resume Next


If MsgBox("Este procedimento irá excluir este registro definitivamente ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then


    Dim rs As DAO.Recordset

    'Corre a Tabela

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_LogFretes_AberturaOcorrencia")

    'EOF = End Of File
    Do Until rs.EOF 'faça até o fim do arquivo
    'faz a comparação
    If Form_frm_SUB2_Ocorrencia.OC = Form_frmOcorrencia.[_ID] Then
  
    rs.Fields("OC").Value = ""
    rs.Fields("TransportadoraContratada").Value = ""
    rs.Fields("FreteContratoado").Value = ""
    rs.Fields("Diferenca").Value = ""
    rs.Fields("DataOcorrencia").Value = ""
    rs.Fields("TextoOcorrencia").Value = ""
    
    
    End If
    rs.MoveNext

    Loop
    
    'fechar conexão
    rs.Clone
    
  
    'libera memória
    Set rs = Nothing
   End If
End Sub


tenta usar esse código

Código:


Dim strSQL As String
    strSQL = "DELETE * FROM tbl_LogFretes_AberturaOcorrencia WHERE OC = " & _ID
    CurrentDb.Execute strSQL


caso não consiga poste parte do BD

alozs,

não deu certo, o procedimento apaga apenas a primeira linha

Detalhe que esqueci de informar

OC esta na tabela tbl_LogFretes_AberturaOcorrencia (SUB2_Ocorrencia), os campos abaixo também

rs.Fields("OC").Value = ""
rs.Fields("TransportadoraContratada").Value = ""
rs.Fields("FreteContratoado").Value = ""
rs.Fields("Diferenca").Value = ""
rs.Fields("DataOcorrencia").Value = ""
rs.Fields("TextoOcorrencia").Value = ""


_ID esta em outra tabela, tblFretes (frmOcorrencia)

se puder postar parte do bd é melhor para analisar

Boa noite,

Tente assim:

Código:

'// Desativa os avisos do sistema
   DoCmd.SetWarnings False
'// Questiona ao usuário sobre a exclusão do registro
   If MsgBox("Este procedimento irá excluir este registro definitivamente ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
   
   '// Abre o Recordset
       Dim rs As DAO.Recordset: Dim jSQL As String
       jSQL = "SELECT * FROM tbl_LogFretes_AberturaOcorrencia WHERE " & _
                            "tbl_LogFretes_AberturaOcorrencia.[OC]=" & Form_frmOcorrencia.[_ID].Value
       Set rs = CurrentDb.OpenRecordset(jSQL)
   '// Loop
       'EOF = End Of File
       While (Not rs.EOF)
           rs.Delete
           rs.MoveNext
       Wend
   '// Fechar conexão
       rs.Clone
   '// Libera memória
       Set rs = Nothing
   '// Formulário Principal ==========================================
   '   Deverá apagar o registro principal ou seja a venda!
       DoCmd.RunCommand acCmdSelectRecord
       DoCmd.RunCommand acCmdDeleteRecord
   '// Informa ao usuário
       MsgBox "Venda excluída com sucesso!", vbInformation, "Atenção"
   Else
       Exit Sub
   End If

Jungli

tentei como você informou e tentei mudando uma parte do código, conforme baixo

Código:

      jSQL = ("SELECT * FROM tbl_LogFretes_AberturaOcorrencia WHERE [OC] = " & Form_frmOcorrencia.[_ID].Value)
       Set rs = CurrentDb.OpenRecordset(jSQL)

para ambos retorna o erro "erro em tempo de execução 3464 - tipos de dados incompatível com a expressão de critério"

tentei conforme o primeiro código, mas incluindo no Loop o rs.Delete, o comando exclui, porém exclui todos os dados da tabela, ou seja, não faz a comparação no If e exclui tudo

Código:

Private Sub btoExcluir_Click()
 On Error Resume Next

If MsgBox("Este procedimento irá excluir este registro definitivamente ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
    Dim rs As DAO.Recordset
    
'Corre a Tabela
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_LogFretes_AberturaOcorrencia")

    'EOF = End Of File
    Do Until rs.EOF 'faça até o fim do arquivo
    'faz a comparação
    If Form_frm_SUB2_Ocorrencia.OC = Form_frmOcorrencia.[_ID] Then
  
    rs.Fields("OC").Value = ""
    rs.Fields("TransportadoraContratada").Value = ""
    rs.Fields("FreteContratoado").Value = ""
    rs.Fields("Diferenca").Value = ""
    rs.Fields("DataOcorrencia").Value = ""
    rs.Fields("TextoOcorrencia").Value = ""
        
    End If
    rs.MoveNext
    rs.Delete

    Loop
    
    'fechar conexão
    rs.Clone
    
    'libera memória
    Set rs = Nothing
   End If
End Sub

Boa tarde,

Esse erro 3464, acontece porque você tem campos com tipos de dados diferentes,

ex.: OC integer e _ID tipo texto

você terá que fazer essa correção na sua base de dados

Obrigado a todos por ajudar, mas infelizmente não consegui resolver a exclusão em Loop, tentei todas opções mas não deu.

resolvi da seguinte forma, deixei o SUB Formulário em "Formulário Contínuo" e inclui um botão excluir na frente