'Crea un módulo nuevo y pega este código. Nombre: basConocerÁreaPantalla

Option Compare Database
Option Explicit

'********************************************************************************************
'API. Declaración para comprobar la resolución de la pantalla. _
                                                        Función: mc_strConocerÁreaPantalla
Type typResolución
    x1 As Long
    y1 As Long
    x2 As Long
    y2 As Long
End Type
      
'NOTE: The following declare statements are case sensitive.
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, rectangle As typResolución) As Long
'** Fin de API para mc_CompobrarResolución ***************************************************


Sub demo_mc_strConocerÁreaPantalla()

    Dim strÁreaPantalla As String
    
    strÁreaPantalla = mc_strConocerÁreaPantalla

    Select Case strÁreaPantalla
        Case "640 por 480 píxeles"
            'Presentar este mensaje o realizar otro trabajo.
            MsgBox "El Área de pantalla actual es de " & strÁreaPantalla & vbCr & vbCr & _
                    "La resolución actual no es la correcta para esta aplicación. " _
                    & "Aumentar a un área mayor de " & strÁreaPantalla & "" _
                    , vbOKOnly + vbCritical, "McPegasus informa"
        Case "1024 por 768 píxeles"
            'Presentar este mensaje o realizar otro trabajo.
            MsgBox "El Área de pantalla actual es de " & strÁreaPantalla & vbCr & vbCr & _
                    "La resolución actual no es la correcta para esta aplicación. " _
                    & "Aumentar a un área mayor de " & strÁreaPantalla & "" _
                    , vbOKOnly + vbCritical, "McPegasus informa"
    End Select

    'En caso de presentar el mensaje de no ser correcta el Área de pantalla, se puede cerrar la aplicación.
'    DoCmd.RunCommand acCmdExit

End Sub

Public Function mc_strConocerÁreaPantalla() As String
'********************************************************************************************
'Actualización:     20/03/2003                                  Fecha Creación:    25/10/2001
'Autor:             Desconocido
'Modificación:      McPegasus
'Contacto:          mcpegasus@mcpegasus.com, www.mcpegasus.com
'
'Propósito:         'Comprobar la resolución o área de la pantalla.

'Devuelve una cadena de texto con la resolución.

    Dim r                   As typResolución
    
    Dim hwnd                As Long
    Dim RetVal              As Long
    
    hwnd = GetDesktopWindow()
    RetVal = GetWindowRect(hwnd, r)
    mc_strConocerÁreaPantalla = (r.x2 - r.x1) & " por " & (r.y2 - r.y1) & " píxeles"

End Function