[Resolvido]como excluir dados do forms e subforms

to tentando usar esse codigo do exemplo do criquio

If Is Null(Me.Código) Or Me.Código.Value = "" Then
MsgBox "Não há registros a serem excluídos", vbCritical, "Sem registros"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Excluir") = vbYes Then
CurrentDb.Execute "DELETE * FROM subos WHERE ordem=" & Me.ordem& ""
CurrentDb.Execute "DELETE * FROM ordem WHERE ordem=" & Me.ordem& ""
DoCmd.RunCommand acCmdRefreshPage
DoCmd.GoToRecord , , acNewRec
MsgBox "Resgistros excluídos com sucesso.", vbInformation, "Sucesso"
Else
End If

mas nao ta funcionando

Nadiro
Uma vez que tenha verificado o que o Norberto citou e esteja tudo certo, veja também o seguinte:
Se as tabelas estão relacionadas, somente será necessário deletar o registro na primeira tabela (Ordem).
Para que isso aconteça, abra a janela de relacionamentos e clique na linha que faz o relacionamento entre as duas tabelas e escolha Editar relação.
Na janela que se abre selecione a caixa propagar a exclusão dos registros relacionados.

Pronto, assim toda vez que apagar um registro na primeira tabela, automaticamente será apagado os registros relacionado a ele na segunda tabela.

Abraços

Boa noite meus amigos!

Uso assim e funciona!

If IsNull(Me.codigoFomulário) Then

MsgBox "Não há registros a serem excluídos!", vbCritical, "Prezado Operador!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Prezado Operador!") = vbYes Then

CurrentDb.Execute "DELETE * FROM T_LeituraSubFormulario WHERE CodigoSubform=" & Me.código & ""
CurrentDb.Execute "DELETE * FROM T_LeituraFormulário WHERE codigoFormulário=" & Me.código & ""
DoCmd.RunCommand acCmdRefreshPage

MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Prezado Operador!"

Else
End If

Desculpe por meter o bedelho!