[Resolvido]Erro em botão

Boa noite.
No projeto em anexo o botão excluir ao selecionar o registro que deverá ser excluido na caixa de listagem após a exclusão aparece em todas as colunas #Excluido  e no campo data_escalaleitor aparece "00:00:00"

botão alterar após alterar registro desejado todos os campos são limpos e no campo data_escalaleitor aparece "00:00:00"

botão cancelar após cancelar o lançamento de registro e todos os campos são limpos e no campo data_escalaleitor aparece "00:00:00"

Fiz um teste em colocar um comado para carregar os registros em branco e sempre que excluo ou altero um registro, limpa tpdos os campos e no campo data ele coloca 00:00:00

Já realizei todos os testes com as informações encontradas na internet.
Encontrei esta função abaixo, porém continua limpando os textbox, porém após limpar a caixa de texto sempre na caixa de texto onde fica a data sempre é preenchida.

Obs: Ao salvar um nova escala, para cancelar e outros botoes , todos os campos deverão ser limpos e ficarem vazio.
Estou tentando decifrar onde está o erro que limpa os campos e campo data é preenchido automaticamente

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, o que tentei fazer é com que ao excluir um lançamento ou alterar algum dados após excluir ou alterar todos os campos fiquem vazio.
O comando que inseri no programa ele limpa todos os campos e ao final o campo data ele é preenchido

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?

Boa noite, Fiz conforme vc orientou, porém o campo que contem valor data após limpar recebe 00:00:00.
Não consegui descobrir o porque omente o campo data não fica vazio após excluir ou alterar uma informação.

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

Após vários testes, programa funcionou

robertonl,

Não esqueça de colocar o tópico como Resolvido.