[Resolvido]Posicionamento do formulário na tela

Bom dia a todos!
A minha dúvida é a seguinte: Tenho um formulário contínuo contendo dezenas de registros de clientes. As vezes torna-se necessário atualizar o endereço dos mesmos. Para isso usei no evento "ao clicar" do campo "Endereço" do formulário contínuo, uma ação para abrir um outro pequeno formulário para atualizar o endereço que desejo. A minha necessidade é que este pequeno formulário se abra em cima daquele registro que pretendo alterar e não em um lugar fixo na tela. Isso é possível? Desde já agradeço a atenção!

Boa tarde,

Pesquise sobre menus popup.

Abraço.

Olá, sim é possivel;

Mas não é no click do campo, veja e teste;

Código:

Private Sub Endereço_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim intLeft As Long

intLeft = Form.CurrentSectionTop
    DoCmd.OpenForm "SeuSegundoForm"
    Forms("SeuSegundoForm").Move Left:=0, Top:=intLeft
End Sub

E ae, resolveu ?

Bom dia Mestre JPaulo.
Um pequeno problema. O formulário agora aparece na posição desejada, mas por trás do formulário contínuo. Antes ele aparecia na frente, só que sempre no meio da tela. Detalhes que não lhe passei: uso access 2010. Os formulários estão pop-up ativados e janela restrita: não.
Qual será o problema? Abraço e obrigado!

Também uso MsAccess 2010.

Tente deixar com popup=Sim, mas altere também para Janela Restrita=Sim e teste (só altere para o segundo formulario).

Funcionou!
O Formulário não abre exatamente onde clico, ele aparece mais abaixo. Vou ter que ajustar esse posicionamento. Uma outra coisa é que existe uma condição "Where" de cliente para cliente.

Funcionou para a duvida, fico feliz.

Obrigado pelo retorno o forum agradece.

Caro JPaulo.
Encontrei um problema relevante. O formulário "Endereço" sempre abre um pouco abaixo (no meu formulário, umas 3 linhas abaixo) do registro clicado. O que acontece: quando clico em um registro que está no final do formulário continuo, ou próximo do final, o formulário "Endereço" continua a abrir 3 linhas abaixo e consequentemente fica invisível na tela. E o que é pior, ele fica inacessível paralisando assim todo o sistema, pois não consigo fechá-lo. É claro que poderia ser criado um outro meio qualquer para fechá-lo, mas não seria esteticamente correto, não é? O ideal é que nesse caso o formulário "Endereço" passasse a ser exibido acima do registro clicado, permitindo assim o acesso a ele. E aí, o que fazer? Eis a questão!!!! Abraço!

Assim resolve o seu problema;

Até porque se você pressiona no registo, ele tem de estar visivel mesmo que seja o ultimo;

Código:

Private Sub Endereço_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim intLeft As Long

intLeft = Form.CurrentSectionTop
intLeft = intLeft - 1000
    DoCmd.OpenForm "SeuSegundoForm"
    Forms("SeuSegundoForm").Move Left:=0, Top:=intLeft
End Sub

Agora sim JPaulo. Tudo resolvido. Muito obrigado pela atenção e paciência. Um grande Abraço!!! Valeu!!!

Obrigado pelo retorno o forum agradece.