[Resolvido]Excluir dados em uma tabela com dois critério

No meu projeto, possuo um formulário "A" com um subformulário "A" e neste subformulário (vinculado a tabela "A") possui um código que de acordo com a resposta, abre um outro subformulário "B" (vinculado a tabela "B") como outra janela.

Vale esclarecer que o subformulário "B" somente será aberto se ao "passar" por um determinado campo e optar por abrir.

Pretendo excluir um determindo registro nas duas tabelas ( A e B), através de um botão existente no formulário "A". Consigo excluir os dados da tabela "A" mas, não da tabela "B".

Codigo para excluir na tabela "A"

Código:

If MsgBox("Deseja excluir o registro ?", _
              vbQuestion + vbYesNo, "Excluir Registro") = vbYes Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
  End If
[Forms]![frmA]![SfA].Form.Requery


Para excluir na tabela "B" tentei adaptar este, mas sem sucesso.

Código:

Dim sql As String

sql = "DELETE * FROM tblB "
sql = sql & " WHERE codigo=" & Me.codigo & "  "
sql = sql & " AND datasaida = " & Me.datasaida & ""

CurrentDb.Execute sql


Vai usar SQL?

Precisa saber que verificações em campo do tipo:

1. Texto: deve considerar que fiquem entre aspas ("Exemplo Disso")
2. Número: troca-se a vírgula que faz separação decimal por ponto. (1234567.89)
3: Datas ficam entre # e formatadas como Mês/Dia/Ano. (#12/31/2021#)

Na prática:

Código:

Dim sql As String

sql = "DELETE * FROM tblB "
sql = sql & " WHERE codigo=" & Me.codigo & "  "
sql = sql & " AND datasaida = #" & Format(Me.datasaida, "mm/dd/yyyy") & "#"

CurrentDb.Execute sql

Com o código que o DamascenoJr postou está dando erro 3061 "Parâmetros insuficiente. Eram esperados 1.


Os objetos envolvidos são: frmEditaDiarias, subEdDiarias (tblLancamento), e frmEdHist (tblDiarias).

Me dê o passo a passo.

Na instrução SQL tem um ASTERISCO (*).
Remova-o e veja se funfa!!

No frmEditaDiarias, ao digitar o nome do funcionário, preenche o campo [matricula] que está oculto e depois informa a data da saida (não é a do registro), a sair do segundo campo de filtro, o subEDDiarias será preenchido com os dados referentes ao filtro.

Nome do Funcionário = Tauron
Data da Viagem = 06/08/2020

Enter ou TAB


Ao clicar no botão Editar, o botão Excluir será habilitado.

A pretensão é que ao clicar em excluir, os dados referente ao registro visível no formulário sejam excluídos das tabelas tblLancamento e os dados relacionados a este registro, existentes na tblDiarias.

Para se ter acesso formulário onde estão os dados complementares existente na tblDiarias, basta tirar o foco do campo Transporte de Pacientes.

OBS: Estou repostando o arquivo em virtude de ter retirado parte do código do botão Excluir.

Ao retirar ou manter o asterisco dá o seguinte erro: Erro em Tempo de execução "3464" Tipos de dados incompatível na expressão de critério.

Analisemos...

Usando as dicas do tópico abaixo
https://www.maximoaccess.com/t37958-dicas-de-ouro#259188

resolvi fazer perguntas a janela de verificação imediata

olha a resposta obtida


É um campo do tipo texto. E sendo texto, como dito há duas mensagens minhas atrás, fica entre aspa simples (ou duas aspas normais) para que o código entenda como um só bloco, haja visto a possibilidade de um texto poder conter espaços.

Feito a adaptação

Quando tento usar o código para excluir na tabela tblLancamento, da erro:

erro em tempo de execução '3061'
Parâmetros insuficiente. Eram esperados 1

Código:

Dim sql As String

sql = "DELETE * FROM tblLancamento "
sql = sql & " WHERE Matricula = '" & Me.Matricula & "'"
sql = sql & " AND DtaSaida = #" & Format(Me.TxtData, "mm/dd/yyyy") & "#"

CurrentDb.Execute sql


Qual o passo a passo para o arquivo que você enviou?

Não encontrei esse trecho de código.

Me desculpe achei que havia postado o arquivo com as modificações.

OBS: vou excluir os arquivos das mensagens anteriores.

Na tabela lançamentos não existe o campo DtaSaida.

DamascenoJr, muitíssimo obrigado. Não estou conseguindo me concentrar esses tempo. Acho que levaria um bom tempo para perceber que o nome do campo estava errado.
Mais uma vez muito obrigado.

Tauron, acontece com todos. Sempre há algo que passa batido.

O fórum agradece o retorno. Sucesso.