MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Erro em botão

    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 21/12/2016

    [Resolvido]Erro em botão Empty [Resolvido]Erro em botão

    Mensagem  robertonl 15/11/2021, 04:54

    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"
    Anexos
    [Resolvido]Erro em botão AttachmentProjeto Liturgia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 6 vez(es)


    Última edição por robertonl em 16/11/2021, 00:05, editado 1 vez(es)
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 21/12/2016

    [Resolvido]Erro em botão Empty Re: [Resolvido]Erro em botão

    Mensagem  robertonl 16/11/2021, 15:30

    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
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 21/12/2016

    [Resolvido]Erro em botão Empty Re: [Resolvido]Erro em botão

    Mensagem  robertonl 17/11/2021, 18:28

    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
    Anexos
    [Resolvido]Erro em botão AttachmentPrintTela.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 5 vez(es)
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 21/05/2015

    [Resolvido]Erro em botão Empty Re: [Resolvido]Erro em botão

    Mensagem  ARGONZALE 22/11/2021, 16:16

    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


    .................................................................................
    Att.

    Alexandre Gonzales
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 21/12/2016

    [Resolvido]Erro em botão Empty Re: [Resolvido]Erro em botão

    Mensagem  robertonl 22/11/2021, 22:52

    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
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 21/05/2015

    [Resolvido]Erro em botão Empty Re: [Resolvido]Erro em botão

    Mensagem  ARGONZALE 23/11/2021, 00:10

    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?

    [Resolvido]Erro em botão Captur22


    .................................................................................
    Att.

    Alexandre Gonzales
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 21/12/2016

    [Resolvido]Erro em botão Empty Re: [Resolvido]Erro em botão

    Mensagem  robertonl 23/11/2021, 02:12

    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.
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 21/05/2015

    [Resolvido]Erro em botão Empty Re: [Resolvido]Erro em botão

    Mensagem  ARGONZALE 23/11/2021, 02:36

    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
    Anexos
    [Resolvido]Erro em botão AttachmentArgo_Projeto Liturgia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (964 Kb) Baixado 4 vez(es)


    .................................................................................
    Att.

    Alexandre Gonzales
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 21/12/2016

    [Resolvido]Erro em botão Empty Re: [Resolvido]Erro em botão

    Mensagem  robertonl Hoje à(s) 00:02

    Após vários testes, programa funcionou

      Data/hora atual: 30/11/2021, 00:23