[Resolvido]Erro em botão

Boa tarde robertonl,

Vamos por partes:

Vi que na Tabela Tab_EscalaMinistro o campo Data_EscalaMinistro é o ID da sua tabela. Está como chave primária e duplicação não autorizada.

Quando você exclui o cadastro do Formulário ele tem uma regra que coloca a data do dia neste campo Data_EscalaMinistro (campo este com a informação "Duplicação não autorizada")

Então o problema está aqui neste campo Data_EscalaLeitor.

Pergunto:

Este campo deve receber alguma informação quando você excluir o cadastro? Se sim, Qual data deve ser informada, por exemplo, a data de hoje ou outra data?
Porque este código faz exatamente isso depois de excluir:

Código:

Dim vDataEscala As Date
vDataEscala = Format(Me.Data_EscalaLeitor, "mm/dd/yyyy")
Me.Data_EscalaLeitor = vDataEscala

Boa noite robertonl,

Bem,

Acredito que estamos falando do Formulário Frm_EscalaLeitor e ao clicar no Botão Excluir faz o que pretende (exclui o registro e limpa os campos) e no campo Data insere 00:00:00 porque este campo não recebe uma data como padrão:

Para corrigir o campo Data, abra sua tabela Tab_EscalaLeitor e selecione o campo Data_EscalaLeitor e na faixa de opções clique em Tabela de Campos, em formatação clique em Formato: selecione "Data abreviada". Você precisa especificar que data quer que o seu BD insira após excluir?

robertonl,

Campo Data recebe uma informação após apertar excluir e por isso não fica vazio.

Código:

vDataEscala = Format(Me.Data_EscalaLeitor, "mm/dd/yyyy")

Veja se é o que precisa em anexo:

Alterei o resultado Empty para Aspas Duplas ""

Código:

Sub Limpar_EscalaLeitor()
On Error Resume Next
Forms![Frm_EscalaLeitor].Data_EscalaLeitor = ""
Forms![Frm_EscalaLeitor].Ministro1 = Empty
Forms![Frm_EscalaLeitor].Ministro2 = Empty
Forms![Frm_EscalaLeitor].Cbo_Leitor1 = Empty
Forms![Frm_EscalaLeitor].Cbo_Leitor2 = Empty
Forms![Frm_EscalaLeitor].Cbo_Leitor3 = Empty
Forms![Frm_EscalaLeitor].Escala_Motivo = Empty
Forms![Frm_EscalaLeitor].DoCmd.RunCommand acCmdRecordsGoToNew 'Aqui você já posiciona o formulário em um novo registro e já limpa os campos
Bloqueia_EscalaLeitor
End Sub