أبو آدم

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

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

يثبت لفترة لعموم الفائدة

كشكول http://www.officena....showtopic=38385 البحث في مربع القائمة ..... كطلب الأخ intel ........ وتطبيق نارت لبزو http://www.officena....=0 طرق ومناهج وأفكار للأرشفة ........ حوار وتطبيقات العبد الفقير لله نارت لبزو http://www.officena....showtopic=34271 >>>>>>>>>>>>>>>

هذا الموضوع مميز ويستحق التثبيت ××××××× مثبت ××××××× الإدارة

أخي الحبيب ورفيق الدرّب أبدعت ، جزيت خيراً ..........

الأستاذ منتصر الآنسي عدت والعود أحمدُ نحمدلله على سلامتك أخي الحبيب

تفضلوا المثال المنقول AuditTrail2k.rar

أخي الحبيب ورفيق دربي جزيت خيرا أخي HAMEDWARE المثال يعمل معي بشكل ممتاز ولم يعطني أي رسالة خطأ ، مفترضا أن الصور في نفس مجلد التطبيق .............

أحبك الذي أحببتني فيه ...............

أخي الحبيب أشرف أنا مضطر للتغيب لفترة لأسباب تتعلق بالعمل ... فأعذرني ولن يقصّر مع الإخوة بالردّ و المساعدة ............

أخي العزيز الشمال أحسنت ، وجزيت خيراً ، هكذا أصبح حلاً ، فالحل يكمن بإقتران الترتيب مع إختيار العدد ، فيكون تصاعدياً أو تنازلياً للأقل أو الأكثر وإختيار العدد 10 أو 20 أو غيره SELECT TOP 10 Table1.ID, Table1.strEn FROM Table1 ORDER BY Table1.strEn DESC; والله من وراء القصد .... .........

حبذا لو حصلنا على بعض الشرح فلسنا كلّنا من أهل المحاسبة ! .............

وليس أول 20 سجل !!! ؟؟؟

أخي العزيز لا يحتاج لكثير شرح إقرأ الكود فقد جعلته أبسط ما يمكن ، (خلف زر الأمر) Private Sub cmdOpen1_Click() On Error Resume Next If Me.lstForms1.ItemsSelected.Count > 0 Then DoCmd.OpenReport "employee information in the same project", acViewPreview, , "[project-code] =" & Me!lstForms1.Column(0) Else MsgBox "Please select a project and then try again.", vbCritical, "Error No Project Selected" End If End Sub وإضافة بسيطة تتعلق بالتقرير ، في حال عدم وجود معلومات في التقرير إستخدم الكود Private Sub Report_NoData(Cancel As Integer) On Error Resume Next MsgBox "No Data For Any Employee In The Project", vbCritical, "No Employees" Cancel = True End Sub جرب ووافني بالنتيجة على تطبيقك ...... .............

أخي أنس جزاك الله خيرا على الجهد المبذول وننتظر منك بعضاً من إنجازاتك لتخص فيها موقعنا ومنتدياته (ببعض الأيقونات الخاصة للموقع). .....................

ريبة الجفاء لا تلقى على أهل هذا الموقع ، فعلى الأقل نظنك منهم ... إلا إذا كنت تعتبر نفسك غير ذلك ! والحيرة التي تقول تعنيك ، فيما كنت تحلل ! الكلام فيه بعض القسوة التي لا موجب لها ردّ إهل المنتدى مقترن بتفرغ ورغبة وتطوع صاحب الرّد - كما يعرف القاصي و الداني في كل منتديات وملتقيات الدنيا - ومرور الأيام الخمسة ليس بالأمر العظيم ، فقد يمر أكثر من ذلك ، وقد يبقى الموضوع بلا ردّ ، وهذا لا يعني أي شيئ مما أسلفت في مشاركتك الأخيرة . وشكرا لحسن ظنّك بمن حولك ... ..............

جزيت خيرا أخي العزيز المرفق فيه جهد طيب ... والدال على الخير كفاعله نسأل الله أن يجعل من قدمت بميزان حسناتك .....................

الحمدلله الذي بفضله تقضى الحاجات (تمت الاجابة) الطلب الثاني أفرد له موضوع جديد ... لطفاً

يثبت لفترة لعموم الفائدة

مرفق تسجيل للتطبيق ............. 10-11-2011 21-54-07.rar

أخي العزيز أنت كتبت الكود بشكل خاطئ ، إنقل نص الكود Me.Text60 = DSum("[Quantity]", "add", "[Items] = '" & Me!items.Value & "'") وسيعمل تمام بإذن الله

إخوتي محمد صالح و Cha3iR شكرا لطيب ردّكم ومروركم ............

للرفع

أخي العزيز عدّلت لك مرفقك القديم أسماء (الجدول و الحقول ) اللازمة للكود بنفس الأسماء التي إستخدمتها ... والكود عامل تماماً تفضل ...... ............ NA_Total_Up1.rar