Outro Como inserir hora em um campo através do botão no libreoffice base

Wagner Marins · 26 de fevereiro de 2018

Bom dia pessoal.

Eu estou mexendo recentemente com o libreoffice Base, visto que onde trabalho só trabalha com aplicações da libreoffice.

Minha dúvida é : eu tenho um campo chamado txtEntrada, e um botão entrada. Eu queria ao clicar no botão o sistema iserisse a hora no campo txtEntrada.

https://drive.google.com/open?id=1W8BDQEhfqQ3SXe3z96jKqi1wcAvJihlx

TianK · 1 de março de 2018

Boa noite,

Associe o código ao botão "Entrada":

Sub cmdEntrada( oEvento )
Dim oForm as Object
Dim otxtEntrada as Object

   oForm = oEvento.Source.Model.Parent
   otxtEntrada = oForm.getByName( "txtEntrada" )
   
   oTxtEntrada.BoundField.Value = Time
End Sub

[]s

Wagner Marins · 22 de março de 2018

Em 28/02/2018 às 20:03, TianK disse:

Sub cmdEntrada( oEvento ) Dim oForm as Object Dim otxtEntrada as Object oForm = oEvento.Source.Model.Parent otxtEntrada = oForm.getByName( "txtEntrada" ) oTxtEntrada.BoundField.Value = Time End Sub

Grande TianK. Muito obrigado pelo retorno, o código enviado me atendeu perfeitamente.

abraço.