Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Erro de execução do BASIC. Procedimento Sub ou procedimento de Function não definido.

Preciso fazer um formulário que coloque a data e a hora de entrada automaticamente.

Sub Main

Dim oForm, oData, oEntrada, oSaida, oNome, oLotacao, oDocumento as Object

Set oForm=Forms("MainForm") oData = Date oEntrada = Time datData.txt = oData timEntrada.txt = oEntrada

End Sub

clique para ocultar/mostrar a revisão 2
None

Erro de execução do BASIC. Procedimento Sub ou procedimento de Function não definido.

Preciso fazer um formulário que coloque a data e a hora de entrada automaticamente.

Sub Main

Main

Dim oForm, oData, oEntrada, oSaida, oNome, oLotacao, oDocumento as Object

Object

Set oForm=Forms("MainForm") oData = Date oEntrada = Time datData.txt = oData timEntrada.txt = oEntrada

oEntrada

End Sub

Sub
clique para ocultar/mostrar a revisão 3
Tag alterada

Erro de execução do BASIC. Procedimento Sub ou procedimento de Function não definido.

Preciso fazer um formulário que coloque a data e a hora de entrada automaticamente.

Sub Main

  Dim oForm, oData, oEntrada, oSaida, oNome, oLotacao, oDocumento as Object


  Set oForm=Forms("MainForm")
  oData = Date
  oEntrada = Time
  datData.txt = oData
  timEntrada.txt = oEntrada


End Sub