اخفاء اشرطة الأدوات ( عنوان معدل )

[jaffar303]

السلام عليكم

هذا أول سؤال لي في المنتدى وأريد خبرتكم

السؤال هو :

صممت تصميم على الأكسس وأريد أن أعرض التصميم فقط بدون تشغيل برنامج الأكسس و أدواته.

أوضح : مثلا احفظه في المستندات وافتح التصميم مباشرة بدون أن ارى ادوات الاكسس

ماهي الاوامر التي يمكنني تنفيذ الامر ؟

ملاحظة استخدم الاكسس 2007 و 2003

[ناديه]

دي طريقه ممكن تنفعك
دا لو كان دا اللي تقصده
كنت أريد أن أقوم بإخفاء شاشة الاكسيس ، فقمت بالبحث فى المنتديات الاجنبية و وجدت هذة الطريقة و جربتها و كانت سليمة 100 %
و نبدأ بالخطوات :

1 - نسخ هذا الكود و لصقة فى module و نسمية باى اسم فهذا لا يهم

كود

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

----------------------
2- قم بعمل ماكرو أسمة mcrHide
ضع بة اكشن run code
و فى خانة Function ضع الكود التالى

كود

fAccessWindow ("Minimize", False, False)

------------------------------
3 - قم بعمل ماكرو أخر أسمة mcrRestore
ضع بة نفس الاكشن السابق run code
و فى خانة Function ضع الكود التالى

كود

fAccessWindow ("Show", False, False)

-------------------------------
4 - الأن الخطوة الاكثر مللاً إذا كانت لديك العديد من النماذج
قم بتغيير خصائص كل النماذج : popup قم بتحويلها إلى yes بدلاً من no
-------------------------------
5- فى النموذج الرئيسى الذى تريدة ان يبدأ بالفتح
ضع الكود التالى :

كود

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunMacro "mcrHide"
End Sub

-----------------------------
6 - فى كل التقارير ضع الكود التالى
عند الحدث OnOpen

كود

DoCmd.RunMacro "mcrRestore"

و عند الحدث OnClose

كود

DoCmd.RunMacro "mcrHide"

-------------------------------
و بهذا تكون قد إنتهت الخطوات
ربما تظهر انها خطوات طويلة ، لكنها طريقة فعالة جداً و تعطى منظر إحترافى جميل للبرنامج

وللامانه منقول

New_Microsoft_Access_Application.rar

[jaffar303]

شكرا لك على الرد

لكن أنا أريد عرض التصميم فقط بدون فتح برنامج الأكسس ( مثل برنامج الفيجول بيسك ) اذا حفضته بامتداد معين يطلع لك التصميم فقط لاغير

بدون البرنامج

[منتصر الانسي]

اخي العزيز

بالطبع لن تجد في الاكسس بعض الادوات الموجودة في الفيجوال كون الفيجوال لغة متخصصة في النماذج كما لن تجد فيه ادوات وقدرات SQL من حيث سعة وامان قواعد البيانات فكل برنامج يخدم الغرض المصمم له .

ولكي تريح بالك اسال نفسك سؤال ماالفائدة التي ستجنيها من هذا الوضع الذي يجب ان يظهر للمستخدم هو وضع العرض (والحل له ورد في رد الاخت نادية)اما وضع التصميم يجب ان يكون من صلاحيات المصمم وليس المستخدم وبالتالي يجب ان يكون مرفق بجميع ادواته

هذا رايي ..

مع تحياتي,,,

[ناديه]

يوجد طريقه اخري

وهي انك ممكن تحول البرنامج بتاعك بامتداد exe

اي يتم عمل setup ليه وفي هذه الحاله لا تحتاج الي الاكسس لفتح البرنامج

ويوجد في هذا اللينك ما تحتاج اليه لتصميم ذلك

http://www.arabteam2000-forum.com/index.ph...=55293&st=0

[أبا عمر]

ينقل