ابو جودي

لابد من ازالة هذه المكتبة اولا 
ملاحظة الرقم 16 هذا يدل على اصدر الاوفيس اى انه قد يكون مختلف عندك

اتفضل جرب وانا اسف انا اواجه صعوبة بالغة عند ضبط الاكواد مع المسميات العربية
 
المستخدمين (2) (2).accdb

2-
كتابة الاستعلام داخل المحرر
Dim Strsql As String Strsql = "DELETE TableA.* FROM main INNER JOIN TableA ON main.namex = TableA.namex;" DoCmd.SetWarnings False DoCmd.RunSQL Strsql DoCmd.SetWarnings True  

Dim i As Long Dim Countnamex(0 To 1) As Integer Countnamex(0) = DCount("[city]", "TableA", "[namex]=[Forms]![main]![namex]") Countnamex(1) = DCount("[city]", "TableB", "[namex]=[Forms]![main]![namex]") i = 0 Do While (i < UBound(Countnamex) + 1) i = i + 1 Loop If Countnamex(0) = 1 Then city = DLookup("[city]", "TableA", "[namex]=[Forms]![main]![namex]") If Countnamex(1) = 1 Then city = DLookup("[city]", "TableB", "[namex]=[Forms]![main]![namex]") If Countnamex(0) = 0 And Countnamex(1) = 0 Then city = "غير موجودة" استخدم هذا الكود

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

اتفضل 
بخصوص اللون ممكن من الفوتوشوب تعمله زى ما انا عملته
Smile.zip

استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل 
الامر يستوجب الاعتذار منى للاستاذ @محمد صلاح1 
الان وانا اراجع فى ذهنى الحوار الذى دار بيننا تذكرت انه استخدم فى البحث كلمة الادب 
ودخلت لاراجع الكود وجدت اننى لم امرر النتيجة على كود ازالة الحركات والتشكيل
 اهل مكة ادرى بشعابها هو ادر ببرنامجه وما به من خفايا ومن اكواد انا اهتممت فقط بنقل الكود فقط
فانا لن احلل له برنامجه كاملا حتى اتفادى كل شئ   
Officna (2)عدد التكرار فى نفس السجل.accdb

اتفضل سيدى 
بعد اذن اخى ابو البشر 
If IsNull(Me![kes]) Or Me![kes] = Null Or Me![kes] = "" Then kes.SetFocus MsgBox " من فضلك اختار القسم " Else DoCmd.OpenReport "SU", acViewReport, , "[القسم]=" & Me.kes DoCmd.Close acForm, "البيان", acSaveYes End If  
----------------------------
المرفق بعد التعديل
نجربة بيان.accdb

اتفضل يا دكتور 
 
صلاحيات المستخدمين للشاشات(3).accdb

اتففضل 
 
 
New Microsoft Access قاعدة بيانات.accdb

السلام عليكم ورحمة الله تعالى وبركاته
اتفضل اخى الكريم 
اتمنى على الله تعالى ان تكون هذه هى الاجابة التى تريد الوصول اليها ان شاء الله
6عدد مرات تكرار الاسم.rar

اخى الحبيب الكريم شكر الله لكم جميل دعواتكم الطيبه واحسن اليكم  اسال الله تعالى ان يرزقكم اجرها واكثر منها ان شاء الله وان كنت لابد داعيا اسالكم على استحياء الدعاء لاستاتذتنا الكرام فى هذا الصرح الشامح فمنهم تعلمنا وعلى ايديهم تتلمذنا علم بقصروا او يبخلوا ولم يضيق صدورهم معنا فلذلوا الغالى والنفيس فلولا فضل الله سبحانه وتعالى ثم افضالهم جميعا لما كان هذا حالنا نحن طلاب العلم فى هذا الصرح الشامخ العريق
واجابة على مطلب حضرتك طبعا زى ما عملنا مع مربع نص الاسم حسب الشرح السابق 
condition1                >>----------->  تحقيق الشروط الاول بتحديده فى الحقل الذى اشرنا اليه سابقا ولانه موجود فى التقرير فى مربع نص باسم txtname تم كتابته بين علامتين &
وفى هذه الحالة ومع طلبك الجديد يكون التعديل على الشرط الثانى
condition2                  >>----------->  تحقيق الشروط الثانى بتحديده الحقل الدال عليه فى الجدول فى  قاعدتك هو الترقية
وعنصر التحكم الدال عليه فى التقرير هو مربع نص باسم  nn ويتم كتابته بين علامتين &

فيتم تغير سطر الكود السابق الى خذا السطر 
txtcounupgrade = DCount("[الترقية]", "الاستبان العام", "[الاسم]='" & txtname & "' And [الترقية]='" & Me.nn & "'") وهذا مرفقكم بعد التعديل عليه  
اعتذ للتأخير فى الرد عليكم انا فى العمل واعتذر ان وجدت اى اخطاء املائيه الكيبورد كلها انجلش وباكتب بسرعه وبدون مراجعه لضيق وقتى 
5عدد مرات تكرار الاسم.rar

اتفضلى التعديل كما ينبغى ان يكون
الاجازات.rar

اتفضل 
 
الترقيم للاجل والنقدي.rar

اتفضل 
aaaa-2.rar

ههههههههههههه
الموضوع كبير ومرهق ومتعب فعلا كما تفضل استاذى القدير ومعلمى الجليل الاستاذ @ابو خليل
ولكن هذه نفحات شهر رمضان الكريم وفتح الله تعالى بها علي فى تحقيق المطلوب وفضلا وكرما استأذن من استاذى الجليل ومعلمى القدير الاستاذ @ابو خليل باجابة طلب اختنا السائلة راجيا من الله تعالى القبول فنوكون ممن تقضى على ايديهم حوائج العباد واتمنى ان لا اكون قد تجاوزت حدودى فى مخالفة قواعد المشاركات بوضع المرفق
 
وايضا اعتذر لعدم الاهتمام بشكل اكبر بتنسيق العمل لضيق الوقت
Vacations.rar

rrrrrr.rar

اتفضل طلب حضرتك اصبح جاهز
ترقيم تلقائى برمجى.rar

السلام عليكم ورحمة الله تعالى وبركاته
اختنا الكريمة @ام ناصر
اعتذر عن وجود خطأ فى المرفق السابق حيث كنت على عجلة من امرى

تم بحمد الله تعالى الانتهاء من اعادة التكويد مرة اخرى بعد ترتيب افكارى وبفضل الله تعالى تمت التجربة بنجاح
الميزات

- فى حالة عدم وجود تاريخ بداية الفترة المستحقة تظهر رسالة تفيد بذلك
-فى حالة عدم وجود تاريخ نهاية الفترة المستحقة تظهر رسالة تفيد بذلك
-فى حالة ان التاريخ الذى تم ادخاله فى النموذج عن بداية الفترة المستحقة غير موجود فى جدول الــ  Salary  تظهر رساله ايضا تفيد بذلك
-فى حالة ان التاريخ الذى تم ادخاله فى النموذج عن نهاية الفترة المستحقة غير موجود فى جدول الــ  Salary  تظهر رساله ايضا تفيد بذلك

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


- تظهر رسالة تفيد بنجاح عملية الاضافة وعدد سجلات الاضافة
-فى حالة اضافة حسب كود موظف محدد لو لم يتم اختيار كود الموظف تظهر رسالة تفيد بذلك
وعندما يتم اختيار كود الموظف
تظهر رسالة سؤال هل تريد اضافة بيانات الموظف باسمه
 
اترككم مع التجربة واتمنى ان شاء الله تعالى ان تستمعوا بهذا العمل المتواضع
update v2.rar

السلام عليكم ورحمة الله تعالى وبركاته
 
اخى الحبيب استاذ @محب اوفيسينا كل عام وانتم بخير
 
اولا انا اعتذر لضيق وقتى الشديد
كان مفروض اتناقش كع حضرتك فو شوية حجات
ولكن على كل حال ممكن النقاش يتم بعد التجربة وذلك لضيق لضيق الوقت وحتى لا اطيل عليك اكثر من ذلك
مميزات هذه القاعدة كالاتى
- عند الفتح ادارج المجلدات الرئيسية لو لم تكن موجوده  وهم كالاتى
  1-  المجلد الرئيسى  abdullah
       2- المجلد الفرعى  Attachment
            3- المجلد الفرعى برقم السيارة
                  4- عند الضغط على زر  ادارج مرفقات من الكمبيوتر يتم انشاء مجلد بتاريخ اليوم  داخل مجلد  رقم السيارة
وذلك تحسبا لو اردتنا التعامل مع نفس السياره بنفس الرقم فى تاريخ اخر
 
والجديد المرونه فى الاتى وركز حبتين
1- لو تم حذف مجلد المرفقات يتم حذف سجلات البيانات الخاصة بالمرفقات التى تم حذفها فى الجدول tbl_car_attachments_list  بطريقة الية دون تدخل منك
2- لو تم ارجاع مجلد المرفقات فى مساره الصحيح يتم اضافة سجلات البيانات الخاصة بالمرفقات فى الجدول tbl_car_attachments_list  بطريقة الية دون تدخل منك
انا عن نفسى عجبانى جدا الاافكار والية العمل بهذا الشكل
 
 
 
 
Automotive APP.rar

اعمل مربع نص
واكتب الكود ده فى مصدر بيانات مربع النص
 
="<b>صفحة </b>" & [Page] & " من " & [Pages] واتأكد ان الاعدادات زى الصورة دى بالظبط


 النتييجة


 
وده مرفق بالتعديل   ليكون مثال عملى
استخدام تنسيق html فى جزء محدد فى عناصر الاكسس .rar

اليك هذا المرفق بايد عربية وبنفس النتيجة وانظر الى الاكواد المستخدمه
الدعاء للاستاذ الجليل والمعلم القدير @رمهان 
 
FindAsUType - بايد عربيه رمهانية -.rar

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا

 
Access Import_ up 2.rar

اهاااااااا سهله جدا ان شاء الله 
فقط
 
فى استعلام2 غير المعيار الاتى  فى  الحقل1
 
<=1000 الى المعيار الاتى
 
<=DLast("[رقم]";"Sheet1")  
وممكن برضو 
 
<=DMax("[رقم]";"Sheet1")  
Serial (1).rar