Dim EkranGenisligi As Long
'Dim EkranYuksekligi As Long
'DoCmd.Maximize
'EkranGenisligi = getScreenSizeX()
'EkranYuksekligi = getScreenSizeY()
'EkranGenisligi = EkranGenisligi * TWIPS_PER_PIXEL
'EkranYuksekligi = EkranYuksekligi * TWIPS_PER_PIXEL
'Me.Section(acDetail).Height = EkranYuksekligi - 1000
'ListeWidth = EkranGenisligi = -2 * (Liste.Left)
'ListeHeight = Me.Section(ac.Detail).Height - Xaxis.Height - (3 * Liste.Top)

Option Compare Database
Option Explicit
Private Declare Function GetSystemMetrics Lib "User32" (ByVal nIndex As Long) As Long
Private Const SM_CXFULLSCREEN = 16
Private Const SM_CYFULLSCREEN = 17
Public Function getScreenSizeX() As Long
getScreenSizeX = GetSystemMetrics(SM_CXFULLSCREEN)
End Function
Public Function getScreenSizeY() As Long
getScreenSizeY = GetSystemMetrics(SM_CYFULLSCREEN)
End Function

Option Explicit

      Type Rect
          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 Rect) As Long

'*****************************************************************
      ' FUNCTION: GetScreenResolution()
      '
      ' PURPOSE:
      '   To determine the current screen size or resolution.
      '
      ' RETURN:
      '   The current screen resolution. Typically one of the following:
      '      640 x 480
      '      800 x 600
      '      1024 x 768
      '
      '*****************************************************************
Function GetScreenResolution() As String
    Dim R As Rect
    Dim hWnd As Long
    Dim RetVal As Long
    hWnd = GetDesktopWindow()
    RetVal = GetWindowRect(hWnd, R)
    GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
End Function