طريقة اظهار النموذج الرئيسي

[رابح1999]

السلام عليكم

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

واريد كود بعدم تحرك النموذج عند الضغط عليه بواسطة الماوس

[محمد أبوعبدالله]

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

اضف الكود التالي في وحدة نمطية جديدة

Option Compare Database
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

ثم اسدعاء الكود في النموذج الرئيسي

' اخفاء    
Call HideAccess

' اظهار
    Call ShowAccess

مع تعيين النموذج الرئيسي في بداية التشغيل

تحياتي

تم تعديل يوليو 2, 2020 بواسطه محمد أبوعبدالله

[محمد أبوعبدالله]

او استخدم المثال الموجود في المشاركة التالية

تحياتي

[رابح1999]

اخي لقد جربت ولايتم فتح النموذج

اليك البرنامج

البرنامج-bb.rar

[محمد أبوعبدالله]

تفضل اخي الكريم

البرنامج-bb.rar

تحياتي