Deletar usando vba em access sem deletar coluna ou linha inteiras

Boa tarde!
Meu problema é o seguinte:
Estou construindo um banco de dados com validades de medicamentos, e coloquei a seguinte caixa de texto que inicia após incluir um item fora de validade:
Private Sub ValidCapsSub_AfterUpdate()
If ValidCapsSub <= Date Then
MsgBox ("ITEM VENCIDO!!!"), vbCritical, "Atenção!"
End If
End Sub

Gostaria que o access deletasse o registro (sem deletar a coluna ou a linha inteiras) após este aviso, como devo fazer?

Se vai excluir, então não deixe incluir, tipo assim:

Código:



Private Sub ValidCapsSub_AfterUpdate()

      If ValidCapsSub <= Date Then
     
          MsgBox ("ITEM VENCIDO!!!"), vbCritical, "Atenção!"
          DoCmd.CancelEvent
          Exit Sub

      End If

End Sub



Não deu certo. continua do mesmo jeito no formulário.

altere e tente dessa forma:

Código:


Private Sub ValidCapsSub_AfterUpdate()

Dim Atual As Date
Atual = Now()


    If CDate(ValidCapsSub) <= CDate(Atual) Then
      
           MsgBox ("ITEM VENCIDO!!!"), vbCritical, "Atenção!"
           DoCmd.CancelEvent
           Exit Sub

      End If

End Sub


Segue sem dar certo e agora ele envia o comando pro depurador.
Reformulando a dúvida:
Tenho um subformulário onde vou incluir as validades de medicamentos em capsulas, consegui colocar uma caixa de texto avisando quando a data de validade do medicamento expirou.
Consegui, após isto, colocar um comando que exclui o registro:
DoCmd.RunCommand acCmdDeleteRecord
Entretanto, eu gostaria de manter o registro apagando somente a célula do subformulário (que se apresenta como tabela) em que se encontra a validade expirada, isto impediria a entrada de itens vencidos no meu estoque.

Desde já, agradeço a atenção.

Pode postar o form e tabela envolvidos.

O arquivo tem mais de 5MB de tamanho, tem como me mandar seu e-mail por mensagem privada para que eu possa enviar?

se fizermos estaremos quebrando as regras do forum, posta num servidor tipo dropbox e compartilha o link aqui.

abraços

Ok:
https://1drv.ms/f/s!AnanwwTSdGo4kwDoC0rxBV4TQRMC
é o link que contém o arquivo.
Abra o banco de dados usando shift+enter
Em formulários há um chamado Frm_FichaCaps, abra-o no modo design.
De cada aparecerá um sub-formulário rotulado como Composição:
O rótulo Validade: estará associado ao campo ValidCapsSub, é nele que estou com esta dúvida.

blz vou dar uma analisada.

Boa noite Raimundo,

Duas coisas: a primeira, o formulário em questão não veio. Segunda, o BD tá vazio, não dá pra saber como ele é utilizado.

No aguardo,

Cleverson

Eis o link:
https://onedrive.live.com/?authkey=%21AOgLSvEFXhNBEwI&id=386A74D204C3A776%212432&cid=386A74D204C3A776
A orientação é a mesma.
No aguardo.

Observando, decidi que a opção por excluir ou não excluir o registro era a melhor mesmo, pois a mesma também o deixa selecionado.
Portanto, agradeço a disponibilidade.
Grato.

Boa tarde Raimundo,


Grato pelo retorno, o fórum agradece.

Favor encerrar o tópico.

Abraços,

Ok, tópico encerrado.