عدم السماح للمستخدم من عرض وتعديل البيانات القديمة في نماذج اكسس والسماح بادخال السجلات الجديدة فقط

-
عدم السماح للمستخدم من عرض وتعديل البيانات القديمة في نماذج اكسس والسماح بادخال السجلات الجديدة فقط

1- باستخدام خصائص النموذج
من خصائص النموذج > القائمة (Data) يتم تحويل القيمة المقابلة ل Data Entry الى Yes



2- باستخدام الكود
لو اردنا جعل المستخدم يدخل البيانات الجديدة فقط في الفترة التي تسبق 01\01\2016 و السماح له باستعراض البيانات واضافة البيانات في الفترة ما بعد هذا التاريخ، سنقوم بوضع الكود التالي في حدث عند الفتح

VBA
If Now() < 1 / 1 / 2016 Then
DataEntry = True
End If




تعليقات

إرسال تعليق

المشاركات الشائعة من هذه المدونة

الشروط في الاستعلامات

-
صورة
الشروط في الاستعلامات يمكن اضافة الشروط في تصميم الاستعلام وعند اضافة الشرط فان الاستعلام سيقوم باظهار السجلات التي ينطبق عليها الشرط فقط، ويجب الانتباه الى انواع الحقول في الجدول قبل و ض ع الشرط لان صيغة الشرط في النص يختلف عنة اذا كنا نتعامل مع ارقام او تاريخ وسنتطرق الى هذة الانواع في هذا الموضوع. الصورة ادناة تخص تصميم الجدول الذي سنتعامل معه حيث يحتوي على اربع حقول من ظمنها اسم الطالب ونوعه نص قصير، وتاريخ الميلاد ونوعه تاريخ ووالنتيجة ونوعه رقم تم انشاء المثال اعلاة وتم تسميه الحقول باللغة العربية لتسهيل فهم الموضوع ، مع التاكيد على استخدام اللغة الانجليزية لكتابة المسميات يمكنك مشاهدة الفيديو للحصول على ايضاحات اكثر او الاستمرار بقراءة الموضوع 1-     الشروط في الحقل الذي يحتوي على نص او ارتباط تشعيبي: حسب الصورة اعلاة  لتصميم الجدول الخاص بنتائج الطلاب نلاحظ ان نوع البيانات في الحقل الثاني (اسم الطالب)    هو نص " Short Text "  وللتعامل مع هذا الحقل في الاستعلامات ،   في تصميم الاستعلام يمكننا ان نظع الشروط وكم...
اعرف المزيد »

اخفاء اطار/ شاشة مايكروسوفت اكسس

-
صورة
اخفاء اطار/ شاشة مايكروسوفت اكسس لاخفاء اطار الاكسس يتطلب ذلك مجموعة من الاجراءات البسيطة ولكنها ضرورية جدا بنفس الوقت وكما يلي: 1.        انشاء دالة خاصة بهذا الغرض VBA Option Compare Database Option Explicit 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 2.       يجب ان تكون جميع النماذج والتقارير منبثقة وتحتفظ بالتركيز 3.       يجب ان يتم انشاء نموذج للبدء ويتم تشغيلة بشكل تلقائي عند فتح الاكسس ويتم استدعاء كود اخفاء الشاشة عند فتح هذا النموذج  VBA Private Sub Form_O...
اعرف المزيد »

انواع الاستعلامات في اكسس

-
صورة
(Access Queries) الاستعلامات في اكسس انواع الاستعلامات  يتيح مايكروسوفت اكسس للمستخدم اختيار نوع الاستعلام حسب حاجة المستخدم وتعتمد الاستعلامات في اكسس على SQL  في بناء وتصميم الاستعلام. استعلام تحديد (Select) يساعد هذا النوع من الاستعلامات على انشاء جدول بسجلات محددة، مثلا في جدول الاصناف ممكن ان ننشئ استعلام للاصناف التي لونها احمر، او ممكن ان ننشئ استعلام مبني على جدول الاصناف وجدول الموردين لانشاء جدول يحتوي على اسم المورد (من جدول الموردين) واسم الصنف الذي تم شراؤه من هذا المورد (من جدول الاصناف) استعلام انشاء جدول (Make Table) يقوم هذا النوع من الاستعلامات بانشاء جدول جديد اي اننا ننشئ الاستعلام من جدول او اكثر ثم يتحول هذا الاستعلام الى جدول جديد سواء في قاعدة البيانات الحالية او في قاعدة بيانات اخرى. استعلام الحاق (Append) ويستخدم لالحاق بيانات من جدول او اكثر ليتم اضافتها الى جدول اخر استعلام تحديث  (Update) وهذا النوع من الاستعلامات يستخدم لتحديث قيمة موجودة في جدول بقيمة اخرى موجودة في جدول اخر استعلام انشاء الجدا...
اعرف المزيد »