كيف نزيل إطار برنامج الأكسس

[عاشق الأمير]

بسم الله الرحمن الرحيم

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

شخباركم أخواني الأعزاء

عندي مشكله يا شباب

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

يعني أبقى النافذة بتاعت البرنامج هي اللي تكون موجودة فقط

أرجو الإستعجال في الرد

لكم تحياتي

[rudwan]

اطلع على الموضوع التالي

http://www.officena.net/ib/index.php?showtopic=239

[عاشق الأمير]

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

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

1- انشئ قاعدة بيانات جديده

2- انسخ الكود التالي ثم الصقه في وحده نمطيه جديدة وسمها أي اسم ترغب به

الكود

===============================================

كود

Option Compare Database

Option Explicit

Global Const SW_HIDE = 0

Global Const SW_SHOWNORMAL = 1

Global Const SW_SHOWMINIMIZED = 2

Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

'Usage Examples

'Maximize window:

' ?fSetAccessWindow(SW_SHOWMAXIMIZED)

'Minimize window:

' ?fSetAccessWindow(SW_SHOWMINIMIZED)

'Hide window:

' ?fSetAccessWindow(SW_HIDE)

'Normal window:

' ?fSetAccessWindow(SW_SHOWNORMAL)

'

Dim loX As Long

Dim loForm As Form

On Error Resume Next

Set loForm = Screen.ActiveForm

If Err <> 0 Then 'no Activeform

If nCmdShow = SW_HIDE Then

'MsgBox "Cannot hide Access unless " _

& "a form is on screen"

Else

loX = apiShowWindow(hWndAccessApp, nCmdShow)

Err.Clear

End If

Else

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then

'MsgBox "Cannot minimize Access with " _

& (loForm.Caption + " ") _

& "form on screen"

ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then

'MsgBox "Cannot hide Access with " _

& (loForm.Caption + " ") _

& "form on screen"

Else

loX = apiShowWindow(hWndAccessApp, nCmdShow)

End If

End If

fSetAccessWindow = (loX <> 0)

End Function

===============================================

3- انشئ نموذج جديد وسمه اي اسم ترغب به

4- غير خصائص النموذج الى

pop up=yes

modal=yes

5- ضع زر امر لإغلاق النموذج مع الأكسس

6- ضع في حدث عند الفتح الكود التالي

الكود

==============================================

كود

fSetAccessWindow (SW_SHOWMINIMIZED)

fSetAccessWindow (SW_HIDE)

==============================================

7- من قائمة أدوات اختر بدء التشغيل ثم حدد النموذج لكي يفتح في بدء التشغيل

8- إحفظ عملك ثم قم بإنهاء القاعدة .

9- شغل القاعدة وسوف ترى ان خلفية الأكسس مختفيه تماما ما عدا النموذج الذي اخترته من قائمة بدء التشغيل .

10 -دعواتكم لنا بالتوفيق

مرفق مثال على الطريقة

أخواني / هذا ما فعله الأخ : فيصل الحربي

بصراحة أنا ما عرفت أطبق الخطوات لأن الأوفيس عندي بالعربي

يا ليت تعيدوا لي الطريقة بشيء من التبسيط

[osama ababneh]

اخي الشرح الموجود وافي تماما ولكن للتسهيل

1- ادخل الى وحدات نمطية واضغط على جديد

2- الصق الكود التالي في هذه الوحدة النمطية

 Option Compare Database

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Public Const acHide = "Hide"
Public Const acShow = "Show"
Public Const acMinimized = "Minimize"

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

3- اغلق هذه الشاشة فيطلب منك الحفظ >>>>> احفظ الملف(الوحدة النمطية ) باي اسم تريده 4- ادخل على تصميم النموذج الذي تريدة ان يفتح(النموذج الرئيسي) وقم بالاتي أ - غير القيمة في خصائص النموذج >غير ذلك > منبثق او pop up الى نعم ب - ادخل الكود التالي في حدث > عند الفتح

 DoCmd.Restore

5 - الان ادخل على ماكرو واختر جديد أ - في الماكرو في السطر الاول اختر Run code الموجودة تحت حدث ب - في اسم الدالة الموجودة في الاسفل اكتب السطر التالي

  fAccessWindow ("Hide",False, False)

ج - في السطر الثاني اختر الامر open form وفي الاسفل اختر اسم الفورم الذي تريدة ان يفتح تلقائيا عند بدئ التشغيل

د - احفظ الماكرو باسم autoexec وهذا الاسم ضروري ولا تحاول ان تغيرة

وبذلك يكون برنامجك جاهز وما عليك الا اغلاق البرنامج ثم فتحه لترى النتيجة

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

http://www.officena.net/ib/index.php?showt...23698&st=20

وانشاء الله ان اكون قد وفقت في الشرح

تم تعديل يونيو 15, 2008 بواسطه lipra2004

[عاشق الأمير]

ما انحلت المشكلة معاي لأني جربت اللي قلت عليه وبعد إغلاق البرنامج و فتحه مرة ثانية طلعت عندي مشكله في التسمية

أريد مراجعة الخطوات مرة ثانية...

آسف على التعب

شكراً أخواني

[osama ababneh]

اخي

انا افضل ان تقوم بارفاق برنامجك ليتم التعديل علية

والخطوات التي وضعتها سابقا لا تحتاج مراجعة وهي صحيحة

فانا نقلتها تماما من برنامج موجود عندي وهو شغال مثل الذهب

وانشاء الله راح اضل معاك حتى نحل المشكلة ولو قعدنا شهر ... ولا يكونلك فكر بالنسبة للتعب اهم شي انت تستفيد

وتعبنا بنلاقية قدامنا يوم القيامة انشاء الله

تم تعديل يونيو 17, 2008 بواسطه lipra2004