عدم ظهور إطار قاعدة البيانات على الشاشة؟

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

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

أود عند فتح قاعدة بيانات أكسس إختفاء الإطار البني-إطار قاعدة البيانات للأكسس- نهائيا عن الشاشة حتى تظهر قاعدة البيانات بشكل جميل 

مع العلم فند فتح قاعدة بيانات تفتح على نموذج محدد .

[Shivan Rekany]

عمل وحدة نمطية واكتب هذا 
 

Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Sub HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Sub
Public Sub ShowAccess()
Call ShowWindow(Access.hWndAccessApp, 5)
End Sub

و بعدين في فورم ( نموذج ) اللي يفتح مع فتح قاعدة بيانات اكسس في حالة on load اكتب هذا السطر
fSetAccessWindow (SW_HIDE)
مع تحياتي

[عبد الله قدور]

السلام عليكم 

اخي الكريم هذا الكود يقوم باخفاء اطار اكسس ويفتح النموذج الرئيسي داخله بشرط ان يكون النموذج الرئيسي غير منبثق

DoCmd.ShowToolbar "ribbon", acToolbarNo