Foksh

تمت الازالة واعادة التثبيت ، والجدول t1 فارغ

اخي الكريم ، تمت التجربة ، والحمد لله فتح المشروع وقد عمل فقط عندي على النظام 32 ولم يعمل على النظام 64 ، لقد قمت بحفظ الملف بصيغة Accde ، وهذه نقطة إيجابية أولاً ، ثم أنك قمت بإلغاء مفتاح الشيفت وهذه نقطة أيضاً ايجابية أخرى للحماية ، وبالنهاية يمكن الوصول للجدول الفارغ t1 كالمعتاد 😁 ؛ لا يوجد استعلامات فقط 3 نماذج و وحدة نمطية واحدة وجدول واحد فقط. وعملية التثبيت والإزالة تعمل بنجاح ، فمعظم برامج صناعة ملفات التثبيت لا تقوم بالإزالة لكامل الملفات التي قام بتثبيتها.

مداخلة خاطفة.. أنا أشبه الموضوع كأنه حين تغض النظر عن خطأ فعله ابنك الصغير ، فأمامك مسلكين إما غض النظر وتجاوز الخطأ إن كان بسيط لا يؤثر على سلوكه ، وإما تصويبه ( المستحسن ) إن كان سيترتب عليه تبعات أخرى مستقبلاً 😅 *إيه الكلام اللي أنا مش فاهمه ده* 🤣 طِبتُم ،، وطابت جُمعتكُم 😊

أخي الكريم قراءة الكود نصياً قد لا يعطينا الفكرة والهدف منه كما لو أنه على أرض الواقع في ملف مرفق.

أعتقد أنه لابد من وجود اتصال انترنت ، لأن الكود يستدعي سيرفر ترجمة جوجل.

جميل جداً ، بارك الله فيك :)

برنامج الأرشفة الالكترونية1.accdb

العفو يا صديقي

تفضل ، التقرير يعرض كل الموظفين ، وانت قم بالتنسيق كما يحلو لك baset.zip

أخي الكريم ، قمت بالتجربة على جهاز آخر ولكن للأسف لم تنجح معي عملية التحميل

أخي @دروب مبرمج إضافة جميلة وذكية Public Function SetFilePath(SetFolder As Variant) SetFilePath = CurrentProject.Path & "\" & "SysFiles" & "\" & SetFolder & "\" End Function

اسمح لي بسؤال أخي الكريم ، هل تحتاج إضافة أكثر من صورة للموظف ؟ إذا لا تحتاج وكان هناك تعارض في الفكرة التي استخدمتها في النموذج فهناك عدة طرق اسهل لك في الوقت والجهد لإدراج صورة واحدة للموظف وتعطيك نفس النتيجة . ملاحظتي لتوفر الوقت والجهد لك ليس إلا

تفضل أخي الكريم ,, أذا كان هو المطلوب ، فكلمة شكر تكفي ولتجنب تكرار هكذا مشاكل ، تجنب اللغة العربية في المسميات قدر المستطاع برنامج الأرشفة الالكترونية.accdb

اسمح لي بسؤال خطر في ذهني ,, طالما لا تريد حفظ التغييرات في النموذج الرئيسي ، فلم لا تجعل خيار ممكن = لا و مقفل = نعم ؟ هكذا لن يبقى لك سوى النموذج الفرعي ( الصلاحيات ) هو الذي سيكون عليه التعديل والحفظ . مجرد ملاحظة

اقتراحك جميل اخي @دروب مبرمج

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

اخي الكريم ، من باب خبرتي المتواضعة اعتقد أن الإجابة هي ( تكتب في كل أمر أو حدث على حدة )

اخي الكريم اعتقد انك بحاجة الى كود يعمل على مقارنة بيانات السجلات في الجدول ........ الخ الطريقة البرمجية قد تزعجك ، إلا أني جربت طريقة التفافية لولبية تفضل ،، bbb.accdb

هل تقصد هكذا ؟ Security - EDIT.mdb

اخي الكريم ، جرب هذه المحاولة البسيطة baset.zip

تفضل اخي الكريم ، هذا مثال بسيط اطبع سجلات محدد.accdb

هذا بالنسبة للطلب الأول ، الثاني أمره سهل إن شاء الله , طبعاً على طريقتي عملت لك الفكرة ؛ وبالنهاية القرار لك وأتمنى أن تكون هناك فكرة أخرى ارفاق ملف لا يقبل الا صيغة Tif.accdb

هات مرفق اخي الكريم ، وابشر

Security - EDIT.mdb

اخي الكريم انا لم افعل شيئاً ، فقد نقلت الكود من أخونا @شايب الى مربع السرد فقط foksh.zip