[Resolvido]eliminar dados de subformulário

Como fasso para apagar todos os registos de subfurmulario Registos da tabela cadastro com base embcaixa de listagem? Queria tipo isto:

If me.listbox <> "" Then
Forms!Registos.select all records where ID=&ID
DoCmd.Delete records
Registos.Visible = False
Else
Registos.Visible=True
End If

OK após pesquisa na net em vários sites e foruns encontrei e adaptei ficou assim:

Código:

Private Sub CaixaCombinação384_AfterUpdate()
If Me.CaixaCombinação384 <> "" Then
AutoDenuncia_Denunciado.Visible = False
Else
AutoDenuncia_Denunciado.Visible = True
End If
If Me.CaixaCombinação384 = "Não tem suspeitos" Then
DoCmd.SetWarnings False ' Desabilita avisos.
Dim strSql As String

'salva a marcação da chekbox
DoCmd.RunCommand acCmdSaveRecord
'apaga o registro da tabela
strSql = "DELETE * FROM AutoDenuncia_Denunciado WHERE ID = " & Me!ID

DoCmd.RunSQL (strSql)
'faz um refresh ao subform
Me.Requery
Else
Exit Sub
End If
DoCmd.SetWarnings True ' Habilita avisos.
End Sub