تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إخفاء واجهة الاكسس
#1
قمت بعمل برنامج بالأكسس 2007  عبارة عن بنك اسئلة للطلاب  كيف يمكن ان اخفى شاشات الاكسس من جداول و إستعلامات و تقارير  و لا يظهر فقط إلا النماذج مع عدم إمكانية الطلاب لتعديل و مشاهدة تصميم قاعدة البيانات
وهل يمكن تشغيلة على موقع المدرسة
تقبلوا شكرى و إمتنانى
الرد
تم الشكر بواسطة:
#2
نصيحة لوجه الله انتقل الى البرمجيات الحديثة لتستفيد من الامكانيات التي توفرها ك vb.net او c# او vb6 على سبيل المثال.
علما انه لا يمكن حماية البرامج التي يتم انشاؤها على الاكسس .
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة:
#3
اخي العزيز سوف اقدم المساعدة المطلوبة بإذن الله ولكن ارجوك لا تنسى عمل جميع النماذج popup هام جدا

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"


طريقة ثانية
تقوم بعمل وحدة نمطية module تضع فيها هذا الكود :
Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
ثم فى النموذج الأساسى الذى يبدأ عند فتح قاعدة البيانات قم بوضع هذا الكود فى صفحة اكواد vba
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub
ثم بعد ذلك نقوم بتغيير خصائص كل النماذج و التقارير الموجودة فى قاعدة البيانات بحيث أنة فى التبويب الكل أو (all) أبحث عن منبثق أو popup و إجعلة نعم أو yes ثم تحتة مباشرة شكلى او مشروط modal و إجعلة نعم أو yes ثم تحتة مباشرة نمط الحوار border style إجعلة مربع حوار او dialog و كما قلت هذا فى كل التقارير و النماذج اهم شئ ضع زر إنهاء للأكسيس فى الفورم بحيث تقوم بإغلاق البرنامج منة لكى لا يبقى الأكسيس عالقاً فى الذاكرة و أخيراً فى كل التقارير ضع الكود التالى فى صفحة اكواد vba
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
و ذلك لكى يعمل التقرير بملئ الشاشة و ذلك عند عرض التقرير




هناك طريقة سهلة لاخفاء شاشة الاكسس هي خطوتين فقط
كل ما عليك :
1. وضع هذا الكود في الوحدة النمطية
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
2. في أول نموذج يتم فتحه ، ضع عند حدث تحميل أو حدث عند الفتح هذا الكود
HideAccess
الرد
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح طريقة الغاء الحفظ التلقائى فى الاكسس بدون اكواد و بكل سهولة hanymajdy 0 279 24-04-19, 11:08 AM
آخر رد: hanymajdy
  اريد ان اعمل الجدول التالي في الاكسس تحليل بيانات مراد بورجي 2 663 08-12-18, 12:30 PM
آخر رد: elgokr
Thumbs Up [Acces2010] محتاج مساعده ضروريه في نقل البيانات من جدول الى جدول اخر في الاكسس ahmed93 0 480 13-09-18, 12:58 PM
آخر رد: ahmed93
  انشاء برنامج بسيط للمحلات على الاكسس شراء  بيع ومخزن وربح hanymajdy 0 1,335 26-04-18, 12:39 PM
آخر رد: hanymajdy
  فكر عمل بحث تلقائى داخل نفس نمذج الاكسس بدون اكواد hanymajdy 0 607 24-09-17, 09:05 PM
آخر رد: hanymajdy
  شرح عمل تقرير لاخراج متوسط السعر لاصناف فى الاكسس والاكسل hanymajdy 0 500 26-07-17, 12:33 PM
آخر رد: hanymajdy
  انشاء برنامج بسيط للمحلات على الاكسس شراء بيع ومخزن وربح hanymajdy 0 653 22-07-17, 11:25 AM
آخر رد: hanymajdy
Tongue انشاء برنامج بسيط للمحلات على الاكسس شراء بيع ومخزن وربح hanymajdy 0 573 04-07-17, 05:04 PM
آخر رد: hanymajdy
Bug مطوب مساعده في الاكسس ashkan 3 714 07-04-17, 09:44 PM
آخر رد: Amir_Alzubidy
  [Acces2007] سؤال عن حجم قاعدة الاكسس زيد زينوبي 4 1,226 25-03-17, 04:38 AM
آخر رد: Miaaz alzain

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم