[Resolvido]Como mover um formulário sem borda.

Bem pessoal eu já andei pesquisando e encontrei muitos códigos diferentes uns dos outros com a mesma finalidade. Mover o formulário pela área de trabalho sem auxilio de bordas.
Porem não consegui colocar no meu projeto aulguns dão erro, outros nem funcionaramm pois ultilizo o Access 2013 64bit e o código era para 32bit e não consegui.

entro em contato com os mestres para me ajudar com este caso:

O projeto é para a igreja que me congrego, no decorrer do desenvolvimento veio aparecendo novas necessidades, porem eu sou novato em access e não sei praticamente nada.

no momento a necessidade é simplesmente mover um formulário sem borda, quero movêlo pelo cabecálho, e o código deve funcionar tanto em 64 como em 32bits pois, auguns computadores trabalham com 64bit, mas outros 32bit.

Leomar

Veja se funfa no teu computador

[]'s

Noob

Olá amigo Noobezinho!

Quando eu abri e movmentei o mouse sobre a barra ele pediu para atualizar para o uso em sistema 64bit.
e eu gostaria de usar o código para clicar e arrastar a janela.

Valeu pela tentativa.

se o senhor consegui descobrir um jeito de resouver, são se esqueça de mim!

AGRADEÇO!

Leomar

Clique na barra verde no formulário, e movimente o mouse segurando o mesmo apertado sobre a barra, da mesma
maneira que faria para arrastar o formulário pelo cabeçalho.
Não uso o Win64, mas creio que se você conseguir abrir o formulário em modo deigner, poderá copiar e colar
o código num outro arquivo.
Mas creio que deveria funcionar, pois ele usa duas API's do Windows.

Noob

Amigo. Toda vida que eu o faço ele dia o seguinte:

O código desse projeto deve ser atualizado para usa-lo em sistemas de 64 bits. Analize e atualiza as instruções Declare e, em seguida, marque-as com o atributo PtrSafe.

E eu sou leigo no assunto.

Carregue o exemplo apertando a tecla Shift;

Abra o VBA e acrescente a palavra em azul nesta duas linhas:

Private Declare PtrSafe Function ReleaseCapture Lib "user32" () As Long
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Lembre-se, como está usando o Win64 terá que usar sempre essa palavra (PtrSafe) nos exemplos que pegar da net, pois
a maioria tem  win32

Noob

Amigão deu tudo certo está funcionando perfeitamente.

por favor se você se enteressar dê uma olhada nesse caso http://maximoaccess.forumeiros.com/t21850-como-maximizar-e-restaurar-uma-janela-com-um-mesmo-botao#158958
Agradeço pela atenção!

agradeço a todos deste forum, pois o mesmo é demais!

Ótimo!

Valeu o retorno

Boa sorte!!

Noob

*Eu vou dar uma olhada no outro post