Código para eliminar os registos das tabelas inclusive a chave primária

Bom dia. Tenho a minha base de dados em acess 2007 concluida. Por exemplo coloco vários sócios engano-me e preciso eliminar os registos como faço?

Bom dia!

Uma possibilidade:

Assim apaga os dados referente a você:
CurrentDb.Execute "DELETE Id, Nome, Idade FROM SuaTabela WHERE Nome='" "Manuela" & "'"

Assim apaga todos os dados:
CurrentDb.Execute "DELETE Id, Nome, Idade FROM SuaTabela"

olá Leandro
e como aplico isto na minha base de dados?

Você pode colocar no evento de um botão, rótulo ou onde achar que funciona melhor.

Boa tarde.
Estive a experimentar o código e não funciona

Boa tarde a todos.

Com a tua permissão Leandro, Manuela, crie um botão e no evento ao clicar, cole o código abaixo não se esquecendo de mudar os nomes dos campos que estão coloridos


Private Sub bt_excluir_Click()
On Error GoTo Err_Delete
       
   Dim numRecord As Integer 'Declaração da variável
   numRecord = InputBox("Informe o Id da Ordem de Serviço....:", Me.Caption)
   
   'Confirmação de operação de delete
   If MsgBox("Deseja excluir a Ordem de Serviço... " & numRecord & "?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
       
       Dim SQL As String
       DoCmd.SetWarnings False 'Aviso de execução
       SQL = "DELETE * FROM tblOservico WHERE Idos = " & numRecord 'ALTERE O NOME DA TABELA E NOME DO CAMPO
                                       'tabela                  nome do campo
       DoCmd.RunSQL SQL 'Executa consulta
                                   
       MsgBox "Exclusão realizada com sucesso!", vbInformation, Me.Caption 'Confirmação do processo
     DoCmd.GoToRecord , , acNewRec
     
   Else
   MsgBox " Ação cancelada pelo usuário", vbInformation, Me.Caption
   
       Exit Sub
                             
   End If
   DoCmd.RunCommand acCmdRefresh
   
   
   
Exit_Delete:
Exit Sub

Err_Delete:
   MsgBox "Erro número: " & err.Number & vbLf & vbLf & err.Description, vbCritical, "Aviso.."

Resume Exit_Delete

End Sub

aparece Informe o id da ordem de serviço tenho que colocar o que?

Meus amigos, olha eu aqui a meter o bedelho.

Silvio meu amigão, para quê complicar o simples, nomeadamente com iniciantes, um dia chegaram lá, mas por enquanto têm de crescer em conhecimentos e experiência na area, né ?

O Leandro passou a instrução mais ou menos correta, e é o simples;

No evento VBA ao pressionar no seu botão;

Private Sub SeuBotão_Click()
'Para deletar os registros referentes ao formulario no momento
CurrentDb.Execute "DELETE * FROM SuaTabela WHERE SeuCampoID=" & Me.SeuCampoID
End Sub

Private Sub SeuBotão_Click()
'Para deletar todos os registros da tabela
CurrentDb.Execute "DELETE * FROM SuaTabela"
End Sub

JPaulo.......

Putsssss.....não havia me apercebido do fato de ser uma novata! Tens razão, se podemos simplificar para que complicar.

Grato, pelo puxão de orelha.

Abraços....

Bom dia.
Já consegui fazer para eliminar todos  registo da tabela. Mas para eliminar do formulario no momento não consigo

Coloquei assim 
Private Sub Comando51_Click()

'Para deletar os registros referentes ao formulario no momento
CurrentDb.Execute "DELETE * FROM Sócios WHERE Cod_socio=" & Me.Cod_socio
End Sub