[Resolvido]Erro ao atualizar a tabela

Bom dia!
Pessoal esou com um problema , pois quando vou finalizar um pedido me da a mensgem que tal tabela nao pode ser edxluida ou alterada pois outrra tasbla conntem registros relacionados a ela: Eis o codigo

Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb()
Set rs = OpenForSeek("tbl_vendas")
rs.Index = "idCodigo"
rs.Seek "=", Me!TxCodigo

If Not rs.NoMatch Then
   rs.Edit
   
   rs("Codigo") = Me!TxCodigo
   rs("Comanda") = Me.TxtComanda
   rs("Cliente") = cboCliente.Column(0)
   rs("Cabelereiro") = txCabelereiro.Column(0)
   rs("Forma Pagamento") = Me.TXFPagamento
   rs("Finalizado") = -1
   Me.CsFinal = rs("Finalizado")
   Call SomaListBox
   rs("vltotal") = Me.TxtSoma
   rs.Update    <<<------------------------------------------- aqui da erro
 
   End If

End Sub
eu nsao entenndo pois as tabelas em questao sao Tabela ( tbl_vendas)  e tabela (vendas_det) elas sao tabelas rrelacionadas por um campos chamadoCodigo.
Onde etsa o erro? ja tentei varias formas e nao encontro.
Essa mesma tabela ( tbl_vendas) e usada no mesmop formulario quando vou abri um pedido eis o codigo:

End Sub
Public Sub GravaPedido()
On Error GoTo trata_erro
  Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb()
Set rs = OpenForSeek("tbl_Vendas")
rs.Index = "idCodigo"
rs.Seek "=", Me!TxCodigo
Dim f As Variant
f = DMax("Codigo", "tbl_Vendas")
If IsNull(f) Then
    f = 0
 End If
   If rs.NoMatch Then
   rs.AddNew
   rs("Codigo") = (f + 1)
   Me!TxCodigo = rs("Codigo")
   txtdatapedido = Format(Now(), "dd/mm/yyyy")
   rs("DataVenda") = txtdatapedido.Value
   rs("Cliente") = cboCliente.Column(0)
   rs("Cabelereiro") = txCabelereiro.Column(0)
 
   
   rs.Update
   
   rs.Close
   End If
   Set rs = Nothing
   

    Exit Sub
   
trata_erro:
   
   MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
   Exit Sub
End Sub
No caso aqui e  para abertura do Pedido e criar o numero dele, esta funcinando perfeitamente.
Algfuem pode me ajudar/?
Obrigado
estou colocando uma parte do sistema para poderem avaliarr melhor
Descompacte tudo na pasta C, pois as tabelas vinculadas apontam para uma pasta na raiz do computador..

Bom dia, o que pode ver rapidamente é que você tem quie chamar a sub gravarPedidas no botão finallizar

Prezado obrigado, nao funcionou porrem resolvi re outra maneira tirei a integridade referencial dos campos
na relação da tabela e ai funcionou..

qui ele funcionou, mas sucesso.

fiquei curioso, poderia me enviar o arquivo com essa alteração?

Apaguei o arquivo.
Mas o grande probela que estava dando é a relação de tabela .
Mas como está resolvido.
Cuidados com as fotos que deixou no dB.

ok, Obrigado, quanmto a foto eu baixei da internet pra fazre um teste, nem lembrava que ela estava no bd..