تصغير حجم اطار الاكسيس

A&A كتب:

السلام عليكم اخواني وخواتي الاعزاء

ارجو التفضل بالاجابة على سؤالي هو الاتي

اريد تصغير اطار الاكسيس الخارجي على حجم النموذج المطلوب مثلا عندي نموذج ابعاده 4000 * 5000 اريد ان يكون اطار الاكسيس على حجمه

وجزاكم الله كل خير

ممكن الرد على سؤالي وجزاكم الله كل خير

A&A كتب:

ممكن الرد على سؤالي وجزاكم الله كل خير

ممكن الرد على سؤالي وجزاكم الله كل خير

السلام عليكم اخواني وخواتي الاعزاء

ارجو التفضل بالاجابة على سؤالي هو الاتي

اريد تصغير اطار الاكسيس الخارجي على حجم النموذج المطلوب مثلا عندي نموذج ابعاده 4000 * 5000 اريد ان يكون اطار الاكسيس على حجمه

وجزاكم الله كل خير

جرب هذا الكود

Option Explicit
Option Compare Database
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub ResizeApp()
    'Resize main app window to 4000 high x 5000 wide
    'x and y are the orgin of the top/let corner
    'cx and cy are the size of the window.
    Application.RunCommand (acCmdAppRestore)
    SetWindowPos Application.hWndAccessApp, 0, 0, 0, 4000, 5000, 0
End Sub

يمكنك أيضا اخفاء شاشة الاكسس

Abo_Yossof كتب:

جرب هذا الكود

Option Explicit
Option Compare Database
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub ResizeApp()
    'Resize main app window to 4000 high x 5000 wide
    'x and y are the orgin of the top/let corner
    'cx and cy are the size of the window.
    Application.RunCommand (acCmdAppRestore)
    SetWindowPos Application.hWndAccessApp, 0, 0, 0, 4000, 5000, 0
End Sub

يمكنك أيضا اخفاء شاشة الاكسس

اخي العزيز اولا بارك الله بك على الاهتمام بالموضوع وعلى الاجابة

ثانيا لم يطبق الكود اعلاه وارجو التفضل باعطائي مثال تطبيقي على الموضوع

ثالثا وارجوا ايضا بالمثال تطبيق خاصية اخفاء شاشة الاكسيس كما تفضلت باجابتك

وجزاك الله كل خير

Abo_Yossof كتب:

جرب هذا الكود

Option Explicit
Option Compare Database
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub ResizeApp()
    'Resize main app window to 4000 high x 5000 wide
    'x and y are the orgin of the top/let corner
    'cx and cy are the size of the window.
    Application.RunCommand (acCmdAppRestore)
    SetWindowPos Application.hWndAccessApp, 0, 0, 0, 4000, 5000, 0
End Sub

يمكنك أيضا اخفاء شاشة الاكسس

اخي العزيز اولا بارك الله بك على الاهتمام بالموضوع وعلى الاجابة

ثانيا لم يطبق الكود اعلاه وارجو التفضل باعطائي مثال تطبيقي على الموضوع

ثالثا وارجوا ايضا بالمثال تطبيق خاصية اخفاء شاشة الاكسيس كما تفضلت باجابتك

وجزاك الله كل خير

ضع مثالك لتطبيق ما تريد

تفضل اخي المثال

test.rar

تفضل اخى

اليك نموذجين احدهما لتصغير شاشة الاكسس و الثانى لاخفاءها

test.rar

شكرا اخي العزيز ................... جزاك الله كل خير وجعلها ربي في ميزان حسناتك