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?
.
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…Teste.ods
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.
Muito obrigado mesmo.
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!
Arquivo anexado, agora irá funcionar!! 
Perfeito.
Atendeu minhas nescidade.
Obrigados mesmo. Abraço!!
Mais uma vez agradeço a todos.