Criar e chamar função pública.

Boa noite, tenho vários formulários que gostaria que ao entrar executasse uma função, no timer, mas não está fucnionando, como faço para criar a função e depois para chamá-la nos formulários ?

Public Function Atualizar() As Date
H = Now()
'Foco.SetFocus
Hora_atual = Format(Now(), "HH:MM:SS")

Nova_atualização = TimeSerial(Hour(Now()), Minute(Now()) + 1, 0)
'---------------------------------------------------------------------------------------------------------------------------------------
'Contagem até a próxima atualização:
Contagem_atualização = Format((Nova_atualização - TimeSerial(Hour(Hora_atual), Minute(Hora_atual), Second(Hora_atual))), "HH:MM:SS")
'---------------------------------------------------------------------------------------------------------------------------------------

End Function
Todos os campos estão contidos nos formulários que serão abertos.


Grato.

Olá Wagner

Seja bem vindo, amigo

Primeiro, porque não usa o Time() que já exibe a hora diretamente?

Uma vez que tua função esteja funcionando, coloque-a na propriedade AoAbrir dos formulários

Crie essa função no módulo básico.

Tem 2 maneira de inserir essa função no formulário:

-Clicando no no botão ... da propriedade na folha de propriedade do formulário e depois chamar ela no VBA
Call Atualizar

- Ou diretamente na folha de propriedade(o que eu uso quando se trata de chamar uma função:

=Atualizar()

Abraços

Noob

Bom não é bem isso que quero, para ser mais genérico, gostaria de saber como faço para criar uma função que posso utilizar em vários formulários do programa.
Grato.

Mas eu já dei a resposta e ela começa com:

Crie uma função no módulo básico

Mas vou explicar melhor.
No menu Ferramentas do banco de dados. clique no botão Visual basic

Na janela que se abre, clique no botão inserir módulo ( é o segundo botão da esquerda para direita)

Na janela maior digite:

Public Function  NomeDaFuncao ()   ' escolha o nome da função
aqui vai os código vba


End Function



Para chamar a funçao

No VBA: Call NoneDaFuncao

Na folha de propriedades: =NomeDaFunção()

Escolha uma maneira ou outra, nunca as duas

Leia o Help do Access, ele é muito rico em conhecimento.

Noob

Obrigado pela ajuda, mas não deu certo, estou tentado de outras maneiras.