Início![[Resolvido]BotaoClick - limpar um campo... Empty](https://2img.net/i/empty.gif)
Nill.GO 27/9/2017, 12:46Bom dia,
Preciso limpar um campo datasaida e no campo dataentrada adicionar a data de hoje
Preciso limpar um campo datasaida e no campo dataentrada adicionar a data de hoje
3 participantes
[Resolvido]BotaoClick - limpar um campo...
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
Bom dia....
Dá para ser mais claro e especifico em tua duvida ?
Dá para ser mais claro e especifico em tua duvida ?
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
No formulário de registro, tenho o campo data entrada e datasaida, quando acontece a saída, é preenchido para não ficar na listagem do dia. Se retornou atualizo a data entrada e limpo a datasaida. Queria automatizar com um botão, fazer este evento com um clique.
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
No evento click do botão.
Me.seucampodatasaida= ""
Me.seucampodataentrada= now() ou date()
Me.seucampodatasaida= ""
Me.seucampodataentrada= now() ou date()
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
Na verdade já fiz este código é não acontece nada.
Irei verificar com atenção, pois peguei este Source para dar uma atualizada.
Acredito ser algo com o nome dos campos.
O nome dos campos estão assim:
DATA DE CHEGADA
DATA SAIDA
Estão separados, pode ser que faz alguma diferença???
Irei verificar com atenção, pois peguei este Source para dar uma atualizada.
Acredito ser algo com o nome dos campos.
O nome dos campos estão assim:
DATA DE CHEGADA
DATA SAIDA
Estão separados, pode ser que faz alguma diferença???
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Teste assim
Me.DATA_DE_CHEGADA = Date()
Me.DATA_SAIDA = ""
Me.DATA_DE_CHEGADA = Date()
Me.DATA_SAIDA = ""
.................................................................................
*** Só sei que nada sei ***
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
Boa noite,
Fiz o evento clicar do botão(btn_Atualizar) e não acontece nada,
não consigo entender porque não funciona ???
Private Sub btn_Atualizar_Click()
Me.DATA_DE_CHEGADA = Date
Me.DATA_SAIDA = ""
End Sub
Quando salvo desaparece o parenteses do "Date"
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Nilton
Poste ai a sua tabela e o respetivo formulário para resolver.
Aguardo
Poste ai a sua tabela e o respetivo formulário para resolver.
Aguardo
.................................................................................
*** Só sei que nada sei ***
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
Aqui vai o anexo.
Cliente_DB
Cliente_DB
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
O anexo não veio
.................................................................................
*** Só sei que nada sei ***
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
Aqui envio o anexo.
- Anexos
![[Resolvido]BotaoClick - limpar um campo... Attachment](https://2img.net/i/fa/attachment.png)
Cliente_DB.zip - Anexo - Cliente_DB
- Você não tem permissão para fazer download dos arquivos anexados.
- (44 Kb) Baixado 6 vez(es)
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Teste
Private Sub btn_Atualizar_Click()
Me.txtDATA_DE_CHEGADA = Date
Me.txtDATA_SAIDA = ""
End Sub
Atenção ao nome dos campos
Private Sub btn_Atualizar_Click()
Me.txtDATA_DE_CHEGADA = Date
Me.txtDATA_SAIDA = ""
End Sub
Atenção ao nome dos campos
.................................................................................
*** Só sei que nada sei ***
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
Envio o vídeo para analizar,
não consigo fazer funcionar mesmo com o nome correto dos campos.
não consigo fazer funcionar mesmo com o nome correto dos campos.
- Anexos
- Video_btn_Atualizar.zip
- Vídeo btn_Atualizar
- Você não tem permissão para fazer download dos arquivos anexados.
- (1.4 Mb) Baixado 3 vez(es)
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Nilton
Olho bem aberto
Veja a imagem
![[Resolvido]BotaoClick - limpar um campo... Nilton10](https://i.servimg.com/u/f11/19/62/62/37/nilton10.png)
Olho bem aberto
Veja a imagem
.................................................................................
*** Só sei que nada sei ***
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
Bom dia,
É que tinha trocado o nome dos txt, mas no código está correto.
Refiz tudo novamente, comecei do zero, e não funciona.
Estou enviando o exemplo.
----------------------------------------------------------
Aqui novamente para adiantar que o erro está na máquina.
Fiz o teste em outra máquina e lá funciona perfeitamente.
Os dois pc estão com o Windows 8.1 Pro
e a versão Access 2013, nos dois pc.
Agora fiquei com uma dúvida tremenda, o que pode ser ?
É que tinha trocado o nome dos txt, mas no código está correto.
Refiz tudo novamente, comecei do zero, e não funciona.
Estou enviando o exemplo.
----------------------------------------------------------
Aqui novamente para adiantar que o erro está na máquina.
Fiz o teste em outra máquina e lá funciona perfeitamente.
Os dois pc estão com o Windows 8.1 Pro
e a versão Access 2013, nos dois pc.
Agora fiquei com uma dúvida tremenda, o que pode ser ?
- Anexos
- Cliente_DB.zip
- Anexo do Cliente_DB
- Você não tem permissão para fazer download dos arquivos anexados.
- (55 Kb) Baixado 1 vez(es)
Nill.GO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 74
Registrado : 25/09/2017
Ok, foi resolvido.
Na verdade não conseguia entender, porque em alguns computadores funcionava.
E no meu pc onde trabalhava, não funcionava, então desinstalei e instalei novamente o offiice e também
fiz este procedimento:
CÓDIGOS NÃO FUNCIONAM EM ALGUMAS MÁQUINAS
Vá na "central de confiabilidade" do excel
Configure a pasta aonde se localiza o seu projeto, como local seguro.
Na verdade não conseguia entender, porque em alguns computadores funcionava.
E no meu pc onde trabalhava, não funcionava, então desinstalei e instalei novamente o offiice e também
fiz este procedimento:
CÓDIGOS NÃO FUNCIONAM EM ALGUMAS MÁQUINAS
Vá na "central de confiabilidade" do excel
Configure a pasta aonde se localiza o seu projeto, como local seguro.
Conteúdo patrocinado