Access - Ajustar formulario a la resolucion de pantalla

Hola, existe algún método para que cuando se abra un formulario ajuste la vista y el tamaño según la resolución de la pantalla?

Un saludo.

Espero te sirva esto
ESTO LO PONES EN UN MODULO GLOBAL

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, rectangle As _
RECT) As Long
Public posicion as string

Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type

Function GetScreenResolution() As String
Dim R As RECT, hwnd As Long, RetVal As Long
hwnd = GetDesktopWindow()
RetVal = GetWindowRect(hwnd, R)
GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)

End Function

----------------------------------------------------------------------------------------------------------
ESTO EN EL EVENTO AL ABRIR DEL/O LOS FORMULARIOS

Private Sub Form_Open(Cancel As Integer)
‘100=MARGEN IZQUIERDO
‘50 = MARGEN SUPERIOR
‘800= ANCHO
‘510 = ALTO
ESTAS MEDIDAS SE AJUSTAN A LO QUE QUIERA EL USUARIO

If GetScreenResolution = "1024x768" Then
posicion = glrMoveWindows(Me.hwnd, 100, 50, 800, 510, True)
Else
posicion = glrMoveWindows(Me.hwnd, 100, -20, 800, 510, True)
End If
End Sub

Hola que tal, fijate que vi la nota y me intereso ponerla en mi Formulario, pero, "2pl" ya le hice como dices y me marca error, me puso esto:

La expresion 'Al abrir' que introdujo como valor de la propiedad de evento produjo un error: No se puede definir un tipo definido por el usuario Public dentro de un modulo de objeto.

*La expresion no da como resultado el nombrede una macro, de una funcion definida por el usuario o (Procedimiento de evento).

*Hubo un error al evaluar una funcion, evento o macro.

Eso me mostro al querer ejecutar el formulario, como vez?........gracias por tu ayuda.

Saludos!!!!

Intente mandarte un ejemplo pero me rebotaba tu dirección, de todas formas intenta incluyendo esta linea en el modulo global

Declare Function glrMoveWindows Lib "user32" Alias "MoveWindow" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWindth As Long, ByVal nHeight As Long, ByVal bRepair As Long) As Long

Muchisimas gracias 2pl. Lo que pasa es que en el trabajo tengo una versión de Access muy antigua (Access 95), así que lo probaré desde casa y me apuntaré lo que has hecho.

Un saludo y gracias otra vez ;-)

Hola, a todos, en realidad deseo hacer eso mediante un formulario de Excel y por mas que trato de ajustar el codigo no se me hace posible ya que necesito eso para para poder realizar un proyecto personal que estoy realizando.

Gracias.