MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Abrir duas forms ao mesmo tempo

    avatar
    fferreira2018
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 22/12/2017

    Abrir duas forms ao mesmo tempo Empty Abrir duas forms ao mesmo tempo

    Mensagem  fferreira2018 em Qui 20 Set - 13:23

    Eu havia aberto no fórum um tópico de como abrir duas janelas de formulários ao mesmo tempo para interagir. Achei que a solução dada estava OK, mas não estava porque quem deu a solução comentou as linhas de código:

    Option Compare Database
    Option Explicit

    Global Const SW_HIDE = 0

    Private Declare Function apiShowWindow Lib "user32" _
       Alias "ShowWindow" (ByVal hWnd As Long, _
             ByVal nCmdShow As Long) As Long
                       
    Public Function FSetAccessWindow(nCmdShow As Long)
    Dim loX  As Long
    Dim loForm As Form
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End Function

    Eu queria que as janelas abrissem sem o rainbow. Se comentar o código, funciona legal. Mas eu queria que abrissem como num sistema. Mas quando tento carregar as duas janelas ao mesmo tempo, congelam.

    Alguém pode me ajudar?
    Anexos
    Abrir duas forms ao mesmo tempo AttachmentManipular a janela do access.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (61 Kb) Baixado 9 vez(es)
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 109
    Registrado : 18/06/2012

    Abrir duas forms ao mesmo tempo Empty Re: Abrir duas forms ao mesmo tempo

    Mensagem  Thel em Ter 25 Set - 23:03

    Olá!

    Fiz os ajustes. Veja se atende às tuas necessidades.

    Segue bd em anexo.
    Anexos
    Abrir duas forms ao mesmo tempo AttachmentManipular a janela do access.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 13 vez(es)

      Data/hora atual: Sex 6 Dez - 20:17