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


3 participantes

    [Resolvido]Posicionar Form na Tela

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/06/2013

    [Resolvido]Posicionar Form na Tela Empty [Resolvido]Posicionar Form na Tela

    Mensagem  Eloirp 20/8/2018, 15:18

    Olá Pessoal,
    Trabalho com a tela do Access escondida, ficando somente os forms do aplicativo abertos, porém estou com dificuldade em localizar no fórum alguma informação de como posicionar o form de senha da tela, saberia me dizer se tem como posicionar ao centro da tela do aplicativo?
    No anexo podem ver o form de acesso restrito bem desposicionado em relação à tela do aplicativo.

    Para abrir este form utilizo:
    DoCmd.OpenForm "frm_ConfirmaSenha"
    Anexos
    [Resolvido]Posicionar Form na Tela AttachmentSiewebPosiçãoFormSenha.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 59 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  JPaulo 21/8/2018, 16:56

    O form tem o auto centrar = Sim ?

    Qual a versão do seu Ms Access ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Posicionar Form na Tela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Posicionar Form na Tela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Posicionar Form na Tela Folder_announce_new Instruções SQL como utilizar...
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/06/2013

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  Eloirp 21/8/2018, 17:32

    Olá Mestre JPaulo!

    Está marcado sim  e Access 2010 32Bits.
    Anexos
    [Resolvido]Posicionar Form na Tela AttachmentPropriedades Form.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (111 Kb) Baixado 19 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  JPaulo 21/8/2018, 17:42

    Vá nas propriedades do banco e marque Overlapping Windows.

    [Resolvido]Posicionar Form na Tela Msa10


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Posicionar Form na Tela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Posicionar Form na Tela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Posicionar Form na Tela Folder_announce_new Instruções SQL como utilizar...
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/06/2013

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  Eloirp 22/8/2018, 13:23

    Olá Mestre,
    Fiz como indicou mas não tem mudança, continua na mesma...
    Não existe forma de posicionar via VBA?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  JPaulo 22/8/2018, 14:36

    Sim, você pode ajustar por código, mas tem de verificar se o código que esconde a janela, não está a alterar a posição do form.

    Ajuste a gosto:
    Código:
    Private Sub Form_Load()
        Form.Move Left:=3500, Top:=1500, Width:=7000, Height:=6000
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Posicionar Form na Tela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Posicionar Form na Tela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Posicionar Form na Tela Folder_announce_new Instruções SQL como utilizar...
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/06/2013

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  Eloirp 22/8/2018, 15:18

    Olá Mestre,
    Ótimo, agora consegui posicionar dentro do form principal, apenas que varia de posição em relação ao centro devido ao form principal estar maximizado ou não, então sem querer abusar gostaria de saber se tem como pegar via VBA o tamanho que esta aberto o form principal (Width:= , Height:= ), porque aí neste caso consigo fazer um ajuste conforme da posição variando de acordo com o tamanho do form principal...
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  Ismael Silva 22/8/2018, 15:40

    Esse tópico me ajudou tbm.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  JPaulo 22/8/2018, 16:06

    Tem de ser qualquer assim, vá fazendo ajustes e teste;

    Código:

    Private Sub Form_Load()
    Dim intTop%
    Dim intLeft%
    Dim intWidth%
    Dim intHeight%
    'se o 1ºform estiver aberto
        If CurrentProject.AllForms("SeuPrimeiroForm").IsLoaded = True Then
        'obtem a posição do topo da janela
        intTop = Forms!form2.Form.WindowTop
        'obtem a posição da esquerda da janela
        intLeft = Forms!form2.Form.WindowLeft
        'obtem a largura da janela
        intWidth = Forms!form2.Form.WindowWidth
        'obtem a altura da janela
        intHeight = Forms!form2.Form.WindowHeight
        'move o segundo form para as posição obtidas
        Form.Move Left:=intLeft, Top:=intTop, Width:=intWidth, Height:=intHeight
        Else
            Exit Sub
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Posicionar Form na Tela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Posicionar Form na Tela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Posicionar Form na Tela Folder_announce_new Instruções SQL como utilizar...
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/06/2013

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  Eloirp 22/8/2018, 17:48

    Olá Mestre JPaulo,
    Muito obrigado pela solução, como sempre muito acertivo!

    Ficou assim:
    Código:
    Private Sub Form_Load()
          
    Dim intTop%
    Dim intLeft%
    Dim intWidth%
    Dim intHeight%
    'se o 1ºform estiver aberto
        If CurrentProject.AllForms("Main_Menu").IsLoaded = True Then
        'obtem a posição do topo da janela
        intTop = Forms!Main_Menu.Form.WindowTop
        'obtem a posição da esquerda da janela
        intLeft = Forms!Main_Menu.Form.WindowLeft
        'obtem a largura da janela
        intWidth = Forms!Main_Menu.Form.WindowWidth
        'obtem a altura da janela
        intHeight = Forms!Main_Menu.Form.WindowHeight
        'move o segundo form para as posição obtidas
            
        'verifica o tamanho atual do form Main_Menu
        If intWidth < 18000 Then
        'quando menor que 18000 é porque não está maeximizado, então posiciona com base na posição do form Main_Menu
            Form.Move Left:=intLeft + 6500, Top:=intTop + 5000
        Else
        'senão centraliza na posição form Main_Menu maximizado
            Form.Move Left:=7275, Top:=5430
        End If
            
    Else
        Exit Sub
    End If

    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  JPaulo 22/8/2018, 19:27

    Fico feliz
    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Posicionar Form na Tela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Posicionar Form na Tela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Posicionar Form na Tela Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Posicionar Form na Tela Empty Re: [Resolvido]Posicionar Form na Tela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 03:33