مساعدة في اخفاء اطار اكسس 2016

[ابو عمار ياسر]

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

لدي هذا الملف في اكسس 2010 يختفي اطار الآكسس لكن في 2016 لايختفي كذالك الكود الخاص بتحديد الاختيار لا يعمل في اكسس 2016 ..

ماهو السبب..

من منكم لديه حل ياحبايب..

[ابو عمار ياسر]

الملفالاختبار تعديل ياسر.rar

[ابوآمنة]

جرب الآن .

Option Explicit
#If VBA7 Then
Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
#Else
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
#End If

Public Sub HideAccess()
    Call ShowWindow(Access.hWndAccessApp, 2)
End Sub
Public Sub ShowAccess()
    Call ShowWindow(Access.hWndAccessApp, 9)
End Sub

هذه الوحدة النمطية موافقة لإصدار 32 و 64 

الاختبار تعديل ياسر.accdb

[ابو عمار ياسر]

اشكرك اخي ابا عبدالله .. ولكني جربت ولكن عند تشغيله تظهر الرسالة التالية