Access - Resolucion de Pantalla

Hola Amigos:
Les cuento que tengo un programa en Access, y cuanto lo hice en mi PC tenia una
resolucion de pantalla en 800 x 600 píxeles, quisiera saber como hago para que
cuando el programa de ejecute cheque la resolucion de la pantalla y si no es de 800 x 600 píxeles
dispare un mesaje informando que debera cambiar la resolucion de pantalla.

gracias Sebastian

Hola

He aqui un ejemplo, trabaja con la API de Windows
para empezar creas un modulo y copia lo siguiente

Option Compare Database
Option Explicit

Public Type POINTAPI
x As Long
y As Long
End Type

Public Const HORZRES = 8 ' Ancho horizontal en píxeles
Public Const VERTRES = 10 ' Ancho vertical en píxeles

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Function ScreenSize() As POINTAPI
Dim hWnd As Long
Dim hDC As Long
Dim p As POINTAPI

hWnd = GetDesktopWindow

If hWnd <> 0 Then
hDC = GetDC(hWnd)

If hDC <> 0 Then

p.x = GetDeviceCaps(hDC, HORZRES)
p.y = GetDeviceCaps(hDC, VERTRES)

End If
End If

ScreenSize = p

End Function

luego crea un formulario y copia lo siguiente

Private Sub Form_Open(Cancel As Integer)

Dim p As POINTAPI

p = ScreenSize()

If p.x <> 800 And p.y <> 600 Then
MsgBox "Debe cambiar resolucion a 800x600"
Cancel = True
End If

End Sub

Espero que te sirva

Saludos