[Resolvido]Ajuda com form no topo

Boa noite a todos,

Venho mais uma vez pedir ajuda dos senhores,

Estou com ujma dificuldade e creio que ajudará outros a resolver caso tenham a mesma...

Criei uma aplicação e nela gostaria de trabalhar com um menu sempre no topo... Sem muito enfeite, abrindo os forms através desse menu no topo.

Procurei e baixei várias aplicações, porém, o que chegou mais perto foi essa função que encontrei na net...

Segue função:

Mod_Geral

Option Compare Database
'Este exemplo originalmente criado por Marcelo David
'Modificado por Balem em 12/2004 Noob
'====================================================



Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Declare Function GetCursorPos Lib "user32" (lpPoint As _
POINTAPI) As Long

Private Type POINTAPI
x As Long
y As Long
End Type
Global a As POINTAPI
Global b As Long
Global c As Long
Global Const VK_LBUTTON = &H1
Global Const VK_RBUTTON = &H2

Public Function FechaForms()
Dim i As Integer

For i = 0 To Forms.Count - 1
If Forms.Item(i).Name <> "frmMenuPrincipal" Then
DoCmd.Close acForm, Forms(i).Name, acSaveNo
End If
Next i


End Function

No Ao Carregar do form

Private Sub Form_Load()
XPos = 0
YPos = 0
DoCmd.MoveSize XPos, YPos
End Sub

O problema agora, é que quando abre o formulário principal. Abre no topo, mais do lado superior esquerdo...

O que gostaria é que abrisse centralizado em qualquer resolução...

Desde já ahgradeço a ajuda dos senhores...

Abraços a todos...

Opa, bom dia pessoal. Consegui resolver...

ultilizei a função crada pelo amigo Haryson, no seguinte post:
https://www.maximoaccess.com/t3624-resolvidofixar-form-ecran?highlight=fixar+no+topo

Alterei as propriedades necessárias e rodou blz...


Segue solução para aqueles que estiverem precisando...

Como não sei de tudo e sempre preciso de ajuda de alguém ou colegas que conhecem mais do que eu... Nada melhor que dividir o conhecimento com outros que estão iniciando...

'Começo da dica

Crie um módulo = Mod_FixaForm

'Este exemplo originalmente criado por Marcelo David
'Modificado por Balem em 12/2004                Noob
'====================================================

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Declare Function GetCursorPos Lib "user32" (lpPoint As _
  POINTAPI) As Long

Private Type POINTAPI
       x As Long
       y As Long
End Type
Global a As POINTAPI
Global b As Long
Global c As Long
Global Const VK_LBUTTON = &H1
Global Const VK_RBUTTON = &H2

Public Function FechaForms()
Dim i As Integer

For i = 0 To Forms.Count - 1
     If Forms.Item(i).Name <> "frmMENUS" Then
        DoCmd.Close acForm, Forms(i).Name, acSaveNo
     End If
Next i


End Function

DoCmd.MoveSize XPos, YPos

'---------------------------------------------------------

No Ao Abrir do Formulário principal ou menu....

Private Sub Form_Open(Cancel As Integer)

   ' the variables xPos, yPos and intInstanceNum are
   ' declared as Public in the basUtilities module.

   'Add 300 to xPos and yPos for next instance
   xPos = xPos + 3500 'Altere aqui, essa função centraliza o formulário
   yPos = yPos + 1 'Altere aqui, essa função deixa o formulário no topo
   
   'Position form on the screen
   DoCmd.MoveSize xPos, yPos
   
End Sub

'Fim da dica

Valeu,

Abraço a todos...

Mais uma dica que vai ajudar muitos...

Depois de procurar incansavelmente uma solução fácil para desabilitar ou impedir que usuários tivesse acesso a informações de alguns formulários. Adaptei a o seguinte script a minha necessidade...

Segue:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Me.txtUsuarios.Caption = getUsuarioAtual()

'--------------------------------------------------------------------------------
Me.Check.Visible = Eval("getUsuarioAtual() in('Administrador','Registration')")
Me.ButtonEMail.Visible = Eval("getUsuarioAtual() in('Administrador','Regisgration')")
Me.ButtonContinue.Visible = Eval("getUsuarioAtual() in('Administrador','Registration')")
Me.DaysLeft.Visible = Eval("getUsuarioAtual() in('Administrador','Registration')")
Me.ProductCode.Visible = Eval("getUsuarioAtual() in('Administrador','Registration')")
Me.RegCode1.Visible = Eval("getUsuarioAtual() in('Administrador','Registration')")
Me.Text0.Visible = Eval("getUsuarioAtual() in('Administrador','Registration')")

If Eval("getusuarioatual() in('Administrador','Registration')") = True Then
Me.lblMensagem.Caption = "Acesso Liberado!"
Else
Me.lblMensagem.Caption = "Usuário não autorizado. Só com senha Administrador!"
End If
End Sub

Explicando:
* getUsuarioAtual() = A função que pega o nome do usuário logado. "Para isso, é preciso criar uma Label "Usuário e no Evento Ao Abrir, colocar a função Me.txtUsuarios.Caption = getUsuarioAtual()".
* Administrador = É o nível do usuário conforme tblUser e Script do LoginSenha. "Você restringe conforme necessidade pelo Nível".
* Registration = O nome do Formulário

Criei uma Label = lblMenssagem, para pegar a chamada se o usuário está liberado ou não...

Boa sorte!

Jefferson D'Assis - BereiaSoft® Control Systems

Boa noite,
Se resolveu, marque o Resolvido

Boa noite, deculpa não ter colocado como resolvido...

Desde já agrade a paciência para conosco...

Foi resolvida à dúvida...

Abraço Alexandre e todos que fazem esse maravilhoso fórum.