Pergunte aqui
1

Como inserir hora atual em um determinado campo?

perguntadas 2018-02-22 14:04:34 +0200

imagem do gravatar de wagnermarinsjc@gmail.com

updated 2019-03-01 19:10:37 +0200

Bom dia a todos.

Eu tenho um botão (btEntrada), e tenho um campo txtEntrada. Como faço pra quê ao clicar no botão insira a hora atual no campo txtEntrada?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

1

respondidas 2018-02-22 15:14:38 +0200

imagem do gravatar de Alexsandrodg

updated 2018-03-03 17:24:45 +0200

imagem do gravatar de Grafeno

.

Function Hora

Dim oSheet, oForm As Object 

oSheet = ThisComponent.Sheets(0)

oForm = oSheet.DrawPage.Forms(0)

Time = Now

x = (Right(Time(0),8))

oForm.getByName("txtEntrada").text = x

End Function

Pronto, assim irá funcionar! Vou anexar um exemplo...C:\fakepath\Teste.ods

editar assinalar como ofensivo Excluir Link mais

Comentários

Bom dia Alexandrodg. Obrigado pela rapidez em responder.

Então eu estou começando a mexer com o libreoffice Base agora. Desde então eu mexia um pouco com o access. Em resumo sou totalmente Leigo no libreoffice.

A principio eu coloquei o código que você me passou, Não sei se fiz corretamente. Quando eu clico no botão de entrada não Acontece nada.

Estarei disponibilizando um link com meu BD pra Vc dar uma olhada se eu fiz correto. https://drive.google.com/file/d/1W8BD...

Muito obrigado mesmo.

imagem do gravatar de wagnermarinsjc@gmail.comwagnermarinsjc@gmail.com ( 2018-02-23 12:58:52 +0200 )editar

Boa tarde! De nada, no momento não tenho acesso ao site, devido as políticas internas da empresa na qual trabalho... Mas assim que der, vejo o seu arquivo!

imagem do gravatar de AlexsandrodgAlexsandrodg ( 2018-03-01 18:14:47 +0200 )editar

Arquivo anexado, agora irá funcionar!! :)

imagem do gravatar de AlexsandrodgAlexsandrodg ( 2018-03-02 17:28:40 +0200 )editar

Perfeito. Atendeu minhas nescidade.

Obrigados mesmo. Abraço!!

imagem do gravatar de wagnermarinsjc@gmail.comwagnermarinsjc@gmail.com ( 2018-03-22 23:02:33 +0200 )editar
0

respondidas 2018-02-23 17:37:11 +0200

imagem do gravatar de wagnermarinsjc@gmail.com

updated 2018-03-01 13:52:33 +0200

Mais uma vez agradeço a todos. https://drive.google.com/file/d/1W8BD...

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-02-22 14:04:34 +0200

Lidas: 102 vezes

Última atualização: Mar 03 '18