Me.Move mCallingForm.WindowLeft + mCallingControl.Left + xDelta + mCallingForm.CurrentSectionLeft, mCallingForm.WindowTop + mCallingControl.Top + yDelta + mCallingControl.Height + sectionTop

sectionTop = mCallingForm.CurrentSectionTop
 xDelta = getXDeltaFormWidth(mCallingForm)
 yDelta = getYDeltaFormWidth(mCallingForm)

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
  ByVal hDC As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, _
  ByVal nIndex As Long) As Long


Function getYDeltaFormWidth(frm As Form) As Long
  'возвращает приращение y-координаты на ширину границы окна + ширина заголовка окна, если есть
  Const SM_CYBORDER As Long =  6 &
  Const SM_CYCAPTION As Long =  4 &
  Const SM_CYDLGFRAME As Long =  8 &
  Const SM_CYFIXEDFRAME As Long = SM_CYDLGFRAME
  Const SM_CYFRAME As Long =  33 &
  
  Const LOGPIXELSY =  90 &

  Dim YPIXELSPERINCH
  Dim hDC As Long, retVal As Long, hRes As Long
  
  hDC = GetDC( 0 )
  YPIXELSPERINCH = GetDeviceCaps(hDC, LOGPIXELSY)
  retVal = ReleaseDC( 0 , hDC)
  
  hRes = GetSystemMetrics(SM_CYCAPTION)
  
  Select Case frm.BorderStyle
    Case  0  ' нет границ
      retVal = GetSystemMetrics(SM_CYBORDER)
      hRes =  0 &
    Case  1  'тонкая
      retVal = GetSystemMetrics(SM_CYFIXEDFRAME)
    Case  2  'sizable
      retVal = GetSystemMetrics(SM_CYFRAME)
      retVal = retVal
    Case  3  ' окна диалога
      retVal = GetSystemMetrics(SM_CYDLGFRAME)
  End Select
   getYDeltaFormWidth = (CDec(retVal + hRes) / YPIXELSPERINCH) * TWIPSPERINCH
  
End Function

      
Function getXDeltaFormWidth(frm As Form) As Long
  'возвращает приращение х-координаты на ширину границы окна
  
  Const SM_CXBORDER As Long =  5 &
  Const SM_CXFRAME As Long =  32 & ' должно быть шириной для изменяемой границы окна
  Const SM_CXDLGFRAME As Long =  7 & ' должно быть шириной для диалогового окна
  Const SM_CXFIXEDFRAME As Long = SM_CXDLGFRAME ' ширина для тонкого окна?
  
  Const LOGPIXELSX As Long =  88 &
  
  Dim hDC As Long, retVal As Long
  Dim XPIXELSPERINCH
  
   hDC = GetDC( 0 )
   XPIXELSPERINCH = GetDeviceCaps(hDC, LOGPIXELSX)
  
   retVal = ReleaseDC( 0 , hDC)
   
  ' hRes = GetSystemMetrics(SM_CYCAPTION)
         
  Select Case frm.BorderStyle
    Case  0  ' нет границ
      retVal = GetSystemMetrics(SM_CXBORDER)
    Case  1  'тонкая
      retVal = GetSystemMetrics(SM_CXFIXEDFRAME)
    Case  2  'sizable
      retVal = GetSystemMetrics(SM_CXFRAME)
      retVal = retVal +  1 &
    Case  3  ' окна диалога
      retVal = GetSystemMetrics(SM_CXDLGFRAME)
  End Select
   getXDeltaFormWidth = (CDec(retVal) / XPIXELSPERINCH) * TWIPSPERINCH
End Function

'новый код вычисления координат окна с использованием Top и Left Контрола

 Dim xDelta As Long, yDelta As Long
 Dim lH As Long, lW As Long
 
 
 yDelta = getYDeltaFormWidth(mCallingForm)
 xDelta = getXDeltaFormWidth(mCallingForm)
 
 
 If mCallingForm.CurrentView =  1  Then ' вид простой или ленточной формы
   lH = mCallingControl.Height
   lH = lH + mCallingControl.Top
   lW = mCallingControl.Left
   
  ElseIf mCallingForm.CurrentView =  2  Then 'табличный вид
    If mCallingForm.RowHeight <  0  Then
      lH = mCallingForm.DefaultControl(acTextBox).Height
    Else
      lH = mCallingForm.RowHeight
    End If
   'вычисляем смещение по х
    lW = getSheetXPos()
  End If
  
  lH = mCallingForm.CurrentSectionTop + mCallingForm.WindowTop + yDelta + lH
  lW = xDelta + mCallingForm.CurrentSectionLeft + mCallingForm.WindowLeft + lW
  
 'вызов для А2000
  'DoCmd.MoveSize lW, lH
  Me.Move lW, lH
 
  Me.Visible = True
  
  pDeactReason = unkReason

Private Function getSheetXPos() As Long
  Dim lastCol As Long, iNdex As Long
  Dim xValue As Long, xBorder As Long
  Dim tControl
  On Error Resume Next
  xBorder = getXBorderWidth
  lastCol = mCallingControl.ColumnOrder
  
  For Each tControl In mCallingForm.Controls
    If tControl.ColumnOrder < lastCol Then
      If tControl.ColumnWidth <>  0  Then
        Select Case tControl.ColumnWidth
        Case Is >  0 
        xValue = xValue + tControl.ColumnWidth + xBorder
        Case - 1  'ширина по умолчанию (?)
        xValue = xValue + mCallingForm.DefaultControl(acTextBox).Width
        Case - 2  ' ширина по данным (?)
        'TO DO
        End Select
      End If
    End If
  Next
  If Err.Number <>  0  Then Err.Clear
  getSheetXPos = xValue
End Function

Function getXBorderWidth() As Long
Const SM_CXBORDER As Long =  5 &
Const LOGPIXELSX As Long =  88 &
  
  Dim hDC As Long, retVal As Long
  Dim XPIXELSPERINCH
  
  hDC = GetDC( 0 )
  XPIXELSPERINCH = GetDeviceCaps(hDC, LOGPIXELSX)
  retVal = ReleaseDC( 0 , hDC)
  retVal = GetSystemMetrics(SM_CXBORDER)
  getXBorderWidth = (CDec(retVal) / XPIXELSPERINCH) * TWIPSPERINCH
  
End Function