MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Módulo oculto?

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1296
    Registrado : 23/01/2018

    [Resolvido]Módulo oculto? Empty [Resolvido]Módulo oculto?

    Mensagem  crysostomo em 9/4/2018, 05:02

    colegas , bo  noite,  coloquei o seguinte codigo

    DoCmd.OpenForm "Sistig-Painel de Controle"
     If Time() >= #6:00:00 AM# And Time() < #12:00:00 PM# Then
       Call MsgBox("Bom Dia!", vbExclamation, "SISTIG")
        'Call MsgBox("Bom Dia!" & vbCrLf & "Hoje é " & Date, vbExclamation, "SISTIG") colocar assim na hora da demostração
    Else
       If Time() >= #12:00:00 PM# And Time() <= #6:00:00 PM# Then
           Call MsgBox("Boa Tarde!", vbExclamation, "SISTIG")
       Else
           Call MsgBox("Boa Noite!", vbExclamation, "SISTIG")
       End If
       End If
       DoCmd.Close acForm, "ABERTURA"

    se eu tirar a condição do TIME o codigo progress funciona normal se eu colocar como está ai ele não funciona fica como modulo oculto e tem hora que ele fala que não localiza a biblioteca, qual a solução disso ?
    tenho que deixar a saudação do programa.
    como inserir essa biblioteca?

    [Resolvido]Módulo oculto? Sem_ty30
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Módulo oculto? Empty Re: [Resolvido]Módulo oculto?

    Mensagem  Noobezinho em 9/4/2018, 11:54

    Crysostomo

    Veja a mensagem, ela diz que não consegue encontrar o projeto ou a biblioteca.

    Antes de tudo, tire os parenteses do Time(), veja que está separado os parenteses da palavra e teste.

    Verifique nas referências se está faltando alguma dll ou ocx.

    A função Time() pertence ao VBA, então deve ser outra coisa interferindo.

    Faça uma depuração do código VBA.

    Clique no menu depuração e depois na opção Compilar NomeDoteuAplicativo

    Se der erro, conserte, e repita até a opção ficar esmaecida,

    mostrando que todos os erros foram corregidos.

    [ ]'s
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1296
    Registrado : 23/01/2018

    [Resolvido]Módulo oculto? Empty Re: [Resolvido]Módulo oculto?

    Mensagem  crysostomo em 9/4/2018, 14:05

    colega  bom dia , eu não posso tirar os parente, faz parte da linha de comando . Ele não está encontrando a biblioteca time , ja pesquisei e não consigo inserir essa biblioteca
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2141
    Registrado : 22/11/2016

    [Resolvido]Módulo oculto? Empty Re: [Resolvido]Módulo oculto?

    Mensagem  DamascenoJr. em 25/6/2020, 02:39

    Crysostomo, como anda essa questão? Avançou?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1296
    Registrado : 23/01/2018

    [Resolvido]Módulo oculto? Empty Re: [Resolvido]Módulo oculto?

    Mensagem  crysostomo em 25/6/2020, 15:11

    Bom dia Damasco.
    Sim, resolvido!


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 15/8/2020, 06:25