مايكروسوفت اكسس

هذا الموضوع ينطبق على النماذج والتقارير ان لكل شخص رغبات مختلفة عن الاخر، ولهذا توجد القوالب (Theme) في برنامج مايكروسوفت اكسس، وتستخدم هذة الخاصية للتحكم بالوان الخاصة بالمستخدم وعلية فان المبرمج اذا قام باستخدام هذة الالوان سيترك لكل مستخدم حرية اضفاء طابعة الخاص على البرنامج. في اصدارات الاكسس الجديدة وعند فتح الالوان سنجد مجموعتين من الالوان الاولى تخص الوان  القوالب والثانية تخص الالوان الثابتة ( التي لن تتغير حتى ولو تم تغيير القالب) ان استخدام الالوان الموجودة في الجزء العلوي (Theme Colors) سيؤدي الى تغير الالوان بشكل تلقائي عند فتح البرنامج في جهاز كمبيوتر يستخدم  قالب(Theme ) مختلف، لذلك يجب الانتباه عند استخدام الالوان.

لعرض السجلات التي تقع بين تاريخين يمكن استخدام اكثر من طريقة، وفي الفيديو ادناة تم شرح 3 طرق مختلفة لهذا الغرض  والطريقة الاكثر استخداما وبشكل عملي اكبر هي كما يلي: يمكنك مشاهدة الفيديو او الاستمرار بقراءة الموضوع 1- نقوم بانشاء نموذج باسم  DateBetween مثلا   ونضيف اليه مربعي نص الاول لتاريخ البداية وليكن اسمه Text0   والثاني لتاريخ النهاية وليكن اسمه Text1 بالاضافة الى زر لعرض السجلات . 2- نقوم بانشاء نموذج للبيانات التي سيتم عرضها مثلا بيانات الطلاب الذين يقع تاريخ ميلادهم بين تاريخين او بيانات الفواتير .... الخ. ويكون هذا النموذج مستمر وعلى شكل جدول (جدولي) اي انه يعرض جميع السجلات في نفس الصفحة ومثلا اسمه سيكون  students   . 3- في النموذج الاول نقوم باضافة الكود التالي الى الزر الذي سيعرض البيانات VBA DoCmd.OpenForm " students ", , , " StDateOfBirth Between #" & Format$(Form_ DateBetween . Text0 , "mm/dd/yyyy") & "# And #" & Format$(Form_ DateBetween . Text1 , "mm/dd/yyyy") & ...

ان القائمة المنسدلة اذا كانت مستندة الى حقول في جدول ستظهر قائمة الحقول من هذا الجدول واذا اردنا ان نضيف الى هذة القائمة كلمة "الكل" فانه يتوجب علينا استخدام استعلام التوحيد او الدمج Union Query وببساطة نقوم بما يلي: يمكنك مشاهدة الفيديو للحصول على الشرح الكامل او الاستمرار بقراءة الموضوع 1- ننشئ نموذج ونضع فيه قائمة منسدلة Combo Box  2- نقوم بتغيير مصدر البيانات للقائمة المنسدلة وندخل الى تصميم الاستعلام ونحول نوع الاستعلام الى استعلام توحيد Union Query ونقوم بكتابة الكود التالي SQL SELECT FealdName FROM TableName UNION select"<الكل>" FROM TableName  ; حيث ان  FealdName هو اسم الحقل الذي يحتوي على البيانات التي ستظهر بالقائمة المنسدلة و  TableName   هو اسم الجدول الذي نستخدمة كمصدر للبيانات. وبذلك سيكون الكومبو بوكس جاهز للاستخدام

1-  انشاء جدول للمستخدمين   يحتوي على رقم واسم المستخدم وكلمة المرور (ونوعهما نص قصير)   يمكنكم مشاهدة الفيديو او الاستمرار في قرأة الموضوع يمكنكم تنزيل المثال من هنا 2-  انشاء جدول للصلاحيات  يحتوي على انواع الصلاحيات بالاضافة الى حقل كومبوبوكس بياناته مرتبطة بالمستخدمين (رقم المستخدم واسمه) وحقل كومبوبوكس مرتبط بكائنات البرنامج عن طريق استخدام جدول Msysobjects  (ستجدون الطريقة في الفيديو)  3-  انشاء نموذج للدخول  الى قاعدة البيانات وليكن باسم Login عندما يقوم المستخدم بادخال اسم وكلمة مرور صحيحين يقوم البرنامج بفتح لوحة التحكم او النموذج الرئيسي للعمل كما يقوم بتسجيل رقم المستخدم في المتغير  usrID  الذي تم تعريفة في الموديل (الموجود في الخطوة 4) للمزيد يمكن الرجوع الى موضوع انشاء نموذج للدخول الى قاعدة البيانات ( ا نقر هنا ) ، ونقوم باضافة جميع الحقول الخاصة بالصلاحيات الية في تذييل النموذج ونجعل التذييل مخفي  4 -  انشاء دالة يتم استدعاؤها عند فتح اي نموذج ...

تحديد الصلاحيات لكل مستخدم بشكل منفصل في اكسس عندما يتم تصميم برنامج سيستخدمة اكثر من شخص فلا بد من ان يكون لكل مستخدم مستوى صلاحية مختلف عن الاخر، ولتحديد الصلاحيات لكل مستخدم بشكل منفصل توجد اكثر من طريقة واليكم هذة الطريقة والتي اعتبرها من الطرق العملية جدا: سيتم شرح الموضوع بطريقتين يمكنكم مشاهدة الفيديو او الاستمرار بقرأة الموضوع تنزيل المثال الاول   تنزيل المثال الثاني الطريقة الاولى - تنزيل المثال على الطريقة الاولى 1- انشاء جدول للصلاحيات يحتوي على رقم الصلاحية واسم الصلاحية بالاضافة الى وصف للصلاحية 2-  انشاء جدول للمستخدمين   يحتوي على اسم المستخدم وكلمة المرور (ونوعهما نص قصير)  بالاضافة الى حقل من نوع قائمة منسدلة مرتبط بانواع الصلاحيات في جدول الصلاحيات  3-  انشاء نموذج للدخول  الى قاعدة البيانات وليكن باسم Login عندما يقوم المستخدم بادخال اسم وكلمة مرور صحيحين يقوم البرنامج بفتح لوحة التحكم او النموذج الرئيسي للعمل للمزيد يمكن الرجوع الى موضوع انشاء نموذج للدخول الى قاعدة البيانات ( ا نقر هنا )...

لتصفية البيانات اولا باول حسب ما يتم كتابته نحتاج الى ما يلي: يمكنك مشاهدة الفيديو او الاستمرار بقراءة الموضوع 1- انشاء نموذج (النوعة نماذج مستمرة Continues Forms او نماذج مقسومة Split Form) ونقوم باضافة كومبو بوكس في رأس النموذج  ملاحظه : استخدام مربع نص بدلا من القائمة المنسدلة ( الكومبو بوكس ) يعطي نفس النتيجة ولكنه ابطأ يكون شكل النموذج عند تشغيلة كما يلي: 2- نقوم باضافة الكود التالي في حدث عند التحديث (On Change) الخاص بالكومبوبوكس على فرض ان: الكومبوبوكس اسمة Combo01   و الحقل الذي سيتم البحث فيه اسمة  StName 'اذا كان الكومبو فاغ فانه يتم الغاء الفلتر If Nz(Me. Combo01 .Text) = "" Then Me.Form.Filter = "" Me.FilterOn = False 'اذا تم الاختيار من الكومبو. ' اذا قمت باستخدام مربع نص فان الكود التالي يجب حذفة. ElseIf Me. Combo01 .ListIndex <> -1 Then Me.Form.Filter = "[ StName ] = '" & _ Replace(Me. Combo01 .Text, "'", "'...

قد نحتاج الى جعل الاكسس يقوم بعملية نسخ الملفات كأن يقوم بنسخ قاعدة البيانات وحفظها في مكان معين أو ان يقوم بنسخ ملف معين واعادة تسميته او تغيير امتدادة من اجل زيادة الامان ومستوى السرية ، وللقيام بنسخ الملفات باستخدام اكسس فان كل ما عليك هو بعض الاجراءءات البسيطة وكما يلي: 1- اضافة زر امر لتنفيذ عملية النسخ الى النموذج 2- اضافة كود النسخ في حدث عند النقر (الخاص بزر الامر وكما يلي VBA FileCopy " C:\ Ahmad .txt ", " D:\Ahmad.txt " حيث ان  C:\ Ahmad .txt هو اسم الملف الذي نريد نقلة وامتداده مع مكانه (المسار) ، وان  D:\Ahmad.txt هو المسار الجديد واسم الملف  وامتداده  . واذا رغبت بنقل الملف مع تغيير اسمه فان كل ما عليك هو تغيير الاسم الجديد كما في المثال التالي VBA FileCopy "C:\ Ahmad .txt", "D:\ Khaled. txt" واذا رغبت بنقل الملف مع تغيير اسمه ونوعه  ( الامتداد)  فان كل ما عليك هو تغيير الامتداد الجديد كما في المثال التالي (مع مراعاة ان الملف لن يفتح الا اذا تم اعادة امتدادة الى الامتداد الاصلي) VBA FileC...

تستخدم عملية تقسيم قاعدة البيانات وفصل الجداول عن واجهات المستخدمين في اكسس عندما يكون لدينا اكثر من مستخدم سيعملوا على نفس البرنامج او عندما نريد حماية ملف البيانات من خلال وضعه في السيرفر. تتم العملية بكل بساطة من خلال القائمة database Tools  ومن ثم Access Database وبعد ذلك من خلال المعالج يتم اختيار Split Database الان سيتم فصل الجداول في ملف اكسسس مستقل عن بقية كائنات اكسس ( الاستعلامات , الجداول , التقارير, الكود) وهتا يطلب المعالج تحديد مكان حفظ ملف الجداول   وبذلك تصبح قاعدة البيانت مفصولة تماما عن البرنامج

يمكنكم مشاهدة الفيديو في نهاية الصفحة  للحصول على الشرح الكامل يمكن تغيير اي تسمية Caption موجودة في النموذج او التقرير باستخدام الكود ولفهم الموضوع بشكل اكبر لنفرض ان لدينا زر يقوم باخفاء صورة اذا كانت ظاهرة او اظهارها اذا كانت مخفية، ونريد ان تكون تسمية الزر "اخفاء" عندما تكون الصورة ظاهرة وان يتحول الاسم الى "اظهار" عندما تكون الصورة مخفية اي اننا نريد تغيير النص او التسمية بشكل تفاعلي في النماذج وفقا لحاجة المستخدم . لتنفيذ ذلك نقوم باضافة زر  Command1  الى النموذج ونسمية  " اخفاء "  وبعد ذلك نقوم باضافة الكود التالي عند النقر VBA Private Sub Command1_Click() If Command1.Caption = "اخفاء" Then    Command1.Caption = "اظهار" Else     Command1.Caption = "اخفاء" End If End Sub شرح الكود : عند الضغط على الزر سيتم التحقق ما اذا كانت التسمية الحالية للزر = "اخفاء" فسيتم تغييرها الى "اظهار" اما اذا لم تكن التسمية = "اخفاء" فسيتم تحويلها الى "اخفاء". ...