Option Compare Database
 
Option Explicit
'Formun açılan ve kalıcı özelliklerini evet yapınız..
'Ayrıca formun biçim özelliklerinden otomatik ortala da evet olsun..
Declare Sub SetWindowPos Lib "User32" (ByVal hWnd&, _
                                       ByVal hWndInsertAfter&, _
                                       ByVal X&, ByVal Y&, ByVal cX&, _
                                       ByVal cY&, ByVal wFlags&)
 
Global Const HWND_TOP = 0
Global Const SWP_NOZORDER = &H4
 
 
Function SizeAccess()
Dim cX As Long, cY As Long, cHeight As Long
Dim cWidth As Long, H As Long
 
    H = Application.hWndAccessApp
 
    cX = 650    'Ekran solundan uzaklaşma değeri..
    cY = 350    'Ekranın üstünden uzaklaşma değeri..
    cWidth = 0    'Pencere buyutu genişlik..
    cHeight = 0    'Pencere buyutu yükseklik..
 
    SetWindowPos H, HWND_TOP, cX, cY, cWidth, cHeight, SWP_NOZORDER
    Application.RefreshDatabaseWindow
End Function

Call SizeAccess