MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Como identificar frm aberto?

    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3875
    Registrado : 21/04/2011
    • Mensagem nº1

    [Resolvido]Como identificar frm aberto? Empty Como identificar frm aberto?

    Mensagem  Marcelo David Ter 02 Ago 2011, 8:59 pm

    Boa noite amigos.
    Gostaria de saber como proceder para detectar que um formuário está aberto. Isso no próprio aplicativo, não em rede.
    Grato


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Como identificar frm aberto? Marcel11
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº2

    [Resolvido]Como identificar frm aberto? Empty Re: [Resolvido]Como identificar frm aberto?

    Mensagem  criquio Ter 02 Ago 2011, 9:16 pm

    Tente:

    Crie a seguinte função no formulário

    Function IsLoaded(ByVal strFormName As String) As Integer

    Const conObjStateClosed = 0
    Const conDesignView = 0

    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
    If Forms(strFormName).CurrentView <> conDesignView Then
    IsLoaded = True
    End If
    End If

    End Function

    No evento "Ao carregar" do formulário, coloque:

    If IsLoaded("NomeDoform") Then
    Me.identificar = "ABERTO"
    Else
    Me.identificar = "FECHADO"
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº3

    [Resolvido]Como identificar frm aberto? Empty Re: [Resolvido]Como identificar frm aberto?

    Mensagem  criquio Ter 02 Ago 2011, 9:22 pm

    Outra opção:

    If CurrentProject.AllForms("NomeDoForm").IsLoaded Then
        MsgBox "formulário aberto", , ""
    Else
        MsgBox "formulário fechado", , ""
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3875
    Registrado : 21/04/2011
    • Mensagem nº4

    [Resolvido]Como identificar frm aberto? Empty Re: [Resolvido]Como identificar frm aberto?

    Mensagem  Marcelo David Ter 02 Ago 2011, 9:44 pm

    Ótimo.
    Mais uma vez, muito obrigado. A segunda opção atendeu 100% do que precisava.
    Grato amigo criquio.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Como identificar frm aberto? Marcel11
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº5

    [Resolvido]Como identificar frm aberto? Empty Re: [Resolvido]Como identificar frm aberto?

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Qua 15 maio 2024, 9:56 pm