[Resolvido]Posicionar Form na Tela

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"

O form tem o auto centrar = Sim ?

Qual a versão do seu Ms Access ?

Olá Mestre JPaulo!

Está marcado sim  e Access 2010 32Bits.

Vá nas propriedades do banco e marque Overlapping Windows.

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

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

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...

Esse tópico me ajudou tbm.

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


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


Fico feliz
Obrigado pelo retorno o fórum agradece.