MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Criar e chamar função pública.

    Compartilhe

    Wagner Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/05/2014

    Criar e chamar função pública.

    Mensagem  Wagner Oliveira em Sex 30 Maio 2014, 04:05

    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: Criar e chamar função pública.

    Mensagem  Noobezinho em Sex 30 Maio 2014, 11:54

    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





    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Wagner Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/05/2014

    Re: Criar e chamar função pública.

    Mensagem  Wagner Oliveira em Dom 01 Jun 2014, 02:14

    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: Criar e chamar função pública.

    Mensagem  Noobezinho em Dom 01 Jun 2014, 13:48

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Wagner Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/05/2014

    Re: Criar e chamar função pública.

    Mensagem  Wagner Oliveira em Dom 01 Jun 2014, 21:59

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

      Data/hora atual: Qua 07 Dez 2016, 08:37