كيفية اخفاء خلفية الاكسيس

السلام عليكم اخي الكريم

كل سنة وانت طيب

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

ويجب ان تحدد خاصية Pop up و Modal لهذا النموزج الي Yes

وهذا بالمرفق

وبمناسبة اعياد الميلاد كمان مرفق لك ملف dll اسمة officeTeam.dll قم بنسخة فى C:\Windows

وهو بمثابة حماية لبرنامجك من النسخ لاي جهاز اخر لا يحتوي هذا الملف فى هذا المجلد

حيث انه عند فتح البرنامج سيقوم بالبحث عن هذا الملف فى هذا المجلد فان وجده سيفتح

واخيرا اطلب منك ان تستخدم خاصية البحث بالمنتدي

اخوك فى الله

Desktop.rar

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

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

الرقم السري هو : 1234

او انقل الكود التالي ثم ضعه في وحد نمطية جديدة و سميها Hide or Show Access Window

Option Compare Database
Option Explicit
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
     ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
End If
If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
        fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
        fAccessWindow = True
    End If
End If
End Function

ثم قم بانشاء ماكرو و اختر runcode في السطر الاول و ضع اسم الدالة : fAccessWindow ("Hide",False, False)

اما في السطر الثاني اختر OpenForm : و اختر النموذج المراد فتح في بداية التشغيل

ثم سمي الماكرو :autoexec

طبعا للعلم المثال من تصميم الاخ الفهد مشكورا على الجهود

و عذرا على الاطال و لكم جزيل الشكر مع تحيات اخوكم B)

Acc20032222.rar