عدم الحفظ التلقائي للنموذج الرئيسي والفرعي

[nogom]

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

تحية لإخواني المحترمين

عندي سؤالين 

الأولي عندي نموذج رئيسي ونموذج فرعي واريد عند التعديل في النموذج الرئيسي والفرعي عدم الحفظ تلقائي

في النموذج الفرعي التغير فقط في صلاحية الفتح والتعديل والحذف

السؤال الثاني :

في النموذج الفرعي :

كيف اسوي صلاحية معين تكون مفعلة (Enabled)  حسب القسم او غير مفعلة حسب القسم

عند الغاء تفعيل ((Enabled)) يتم الغائها على جميع الاقسام

وشكرا

 

[Foksh]

7 ساعات مضت, nogom said:

الأولي عندي نموذج رئيسي ونموذج فرعي واريد عند التعديل في النموذج الرئيسي والفرعي عدم الحفظ تلقائي

صديقي العزيز ، آكسيس مصمم لحماية اي تعديل على البيانات فهو يقوم بالحفظ التلقائي عند اغلاق النموذج حتى لو لم تكن السجلات مكتملة ( في الوضع الطبيعي دون وضع الشروط برمجياً طبعاً ) ، ولكن بالأكواد هناك دائما طريقة تلغي ميزة الحفظ التلقائي عند الإغلاق , سأرفق لك مثال بسيط بعد الإستراحة .

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

 

ولكن ليس هناك من مشكلة في المحاولة ان ارسلت ملف للعمل عليه

[nogom]

منذ ساعه, Foksh said:

صديقي العزيز ، آكسيس مصمم لحماية اي تعديل على البيانات فهو يقوم بالحفظ التلقائي عند اغلاق النموذج حتى لو لم تكن السجلات مكتملة ( في الوضع الطبيعي دون وضع الشروط برمجياً طبعاً ) ، ولكن بالأكواد هناك دائما طريقة تلغي ميزة الحفظ التلقائي عند الإغلاق , سأرفق لك مثال بسيط بعد الإستراحة .

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

 

ولكن ليس هناك من مشكلة في المحاولة ان ارسلت ملف للعمل عليه

مرفق لك الملف ياغالي 

وشكرا لتعاونك

New Microsoft Access Database 2 - Copy.rar

[Foksh]

1 ساعه مضت, nogom said:

مرفق لك الملف ياغالي

اسمح لي بسؤال خطر في ذهني ,, 

طالما لا تريد حفظ التغييرات في النموذج الرئيسي ، فلم لا تجعل خيار ممكن = لا و مقفل = نعم ؟

هكذا لن يبقى لك سوى النموذج الفرعي ( الصلاحيات ) هو الذي سيكون عليه التعديل والحفظ .

مجرد ملاحظة

تم تعديل سبتمبر 28, 2023 بواسطه Foksh

[دروب مبرمج]

انشئ جدول للصلاحيات 

 

يرتب هذا الجدول بجدول المستخدمين لديك ليكون على النحول التالي

توزيع الصلاحيات حسب طبيعة عمل كل مستخدم على النظام

انشئ مديول جديد و الصق فيه التالي

Public User_NO As Integer

Public Function User_Addition()
Dim Prmiss As Variant
Prmiss = DLookup("Addition", "User_Prmiss", "User_ID=" & User_NO)
User_Addition = IIf(Prmiss = -1, True, False)
End Function

Public Function User_Edite()
Dim Prmiss As Variant
Prmiss = DLookup("Edite", "User_Prmiss", "User_ID=" & User_NO)
User_Edite = IIf(Prmiss = -1, True, False)
End Function

Public Function User_Delete()
Dim Prmiss As Variant
Prmiss = DLookup("Delete", "User_Prmiss", "User_ID=" & User_NO)
User_Delete = IIf(Prmiss = -1, True, False)
End Function

و في النموذج في حدث عند الفتح ضع التالي

' صلاحية الإضافة
Me.Form.AllowAdditions = User_Addition

'  صلاحية التعديل
Me.Form.AllowEdits = User_Edite

'  صلاحية الحذف
Me.Form.AllowDeletions = User_Delete

 

مرفق مثال على ذلك

 

bbb.accdb

[nogom]

في 28‏/9‏/2023 at 18:12, Foksh said:

اسمح لي بسؤال خطر في ذهني ,, 

طالما لا تريد حفظ التغييرات في النموذج الرئيسي ، فلم لا تجعل خيار ممكن = لا و مقفل = نعم ؟

هكذا لن يبقى لك سوى النموذج الفرعي ( الصلاحيات ) هو الذي سيكون عليه التعديل والحفظ .

شكرا لك علي المثال

ولكن انا يمكن غير بعض المعلومات في النموذج الرئيسي

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