como excluir via codigo

como excluir dados de duas tabelas onde os id sao iguais via codigo

ex..:

tabela ordem
id 100

tabela subos
id 100
id 100
na tabela subos sao varios registro relacionado com a tabela ordem

Tente algo assim:

CurrentDb.Execute "DELETE * FROM subos WHERE id=" & me.id & ""
CurrentDb.Execute "DELETE * FROM ordem WHERE id=" & me.id & ""

nao funcionou

E?...

Dê sempre detalhes, senão ficamos na mesma.

Olá amigo!

Cliquio desculpa por opnar!

Na propriedade no evento ao clicar de um botão!

If IsNull(Me.código) Then

MsgBox "Não há registro a ser excluído!", vbCritical, "Excluir!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir o registro?", vbYesNo + vbQuestion, "Excluir!") = vbYes Then

CurrentDb.Execute "DELETE * FROM Nome da tabela WHERE código=" & Me.código & ""

DoCmd.RunCommand acCmdRefreshPage

MsgBox "Resgistro excluído com sucesso!", vbInformation, "Excluir!"
Else
End If

Esse é para uma tabela.

Duas tabelas!

Private Sub botão_Click()
If IsNull(Me.codigo) Then

MsgBox "Não há registros a serem excluídos!", vbCritical, "Excluir!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Excluir!") = vbYes Then
CurrentDb.Execute "DELETE * FROM Sua tabela segundaria WHERE Codigo =" & Me.codigo & ""
CurrentDb.Execute "DELETE * FROM sua tabela primaria WHERE codigo=" & Me.codigo & ""
DoCmd.RunCommand acCmdRefreshPage

MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Excluir!"
Else
End If

End Sub

Preste bem atenção!

É o mesmo procedimento
orientado pelo cliquio acima!

CurrentDb.Execute "DELETE * FROM Tabela Subos WHERE Codigo =" & Me.codigo & ""

CurrentDb.Execute "DELETE * FROM Tabela Ordem WHERE codigo =" & Me.codigo & ""


O "codigo"

É o nome do campo (Numeração automática) de sua tabela.
Tanto da "tabela Ordem" e da "Tabela Subos"

Muita atenção para os nomes dos controles, acentos etc.

Tenta ai!