نجوم المشاركات

السلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونو جمبعا بخير حال الموضوع اليوم قد وضحه العنوان كنت قد وعدت الاخوة فى هذا الموضوع ببعض التحديثات فوجدت ان كل هذه التحديثات يقدمها تطبيق واتساب اتجهت بفضل الله وكرمه الى محاكات نظام واتساب بالاكسس هذا الموضوع هدية لككم واتمنى ذكر الحقوق ان امكن ذلك والان مع الشرح اعتذر لرفعه على موقع خارجى لانتهاء المساحه هنا حجمة 2 ميجا فقط https://www.mediafire.com/file/ir1l91d6g18d8iy/AccessWatsapp.rar/file اتمنى التجربة واعلامى بالنتائج شكرا لكم

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

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

جرب هذا الماكرو Option Explicit Sub Calendar() Dim I As Byte Dim x As Double Dim y As Byte Dim m As Byte: m = 2 Application.ScreenUpdating = False Range("my_rg").ClearContents For I = 1 To 12 x = DateSerial([p2], I, 1) y = Day(Application.EoMonth(x, 0)) Cells(7, m) = x: Cells(7, m).AutoFill Destination:=Range(Cells(7, m), Cells(y + 6, m)), Type:=xlFillDefault m = m + 3 Next Application.ScreenUpdating = True End Sub الملف مرفق My_Calendar.xlsm

السلام عليكم لو سمحتم لى بالمشاركة هذه فكرة أرجو أن تكون موافقة لطلبك تفضل Test.accdb

أخي الكريم حتى يسهل عليك كتابة الكود يفضل أن تقوم بتسمية الجداول والحقول بحروف انجليزية وهي عادة حسنة يتبعها كل المبرمجين والمحترفين ولذا ينبغي عليك تسمية الجدول بـ names وحقل المعرف بـ id ثم أضف هذا الكود في حدث قبل الإدراج Private Sub Form_BeforeInsert(Cancel As Integer) If DCount("*", "[names]") >= 10 Then DoCmd.RunSQL "delete from names where id=" & DMin("id", "[names]") End If End Sub ومعناه كالتالي: إذا كان عدد السجلات في جدول names يساوي 10 يجري استعلام حذف السجل صاحب رقم id الأصغر موفق بإذن الله

صديقي العزيز انضر المرفق عله يساعدك

جزاك الله كل خير ياستاذ احمد وشكرا علي ردك

بارك الله فيك .. وزادك الله علماً نافعاً ينتفع به المسلمين

حتى لو كان الملف محمي بالشفت تستطيع فكه والغاء الشفت بواسطة هذا التطبيق تمكين الشفت او الغائه برنامج رائع جدا Shiftتمكين الشفت م نالخارج.mdb

تفضل الخلل كان بربط الحقول لا داعي لربط الحقول في النموذج كون الحقول تم ربطها في الجداول المحل 1.accdb

مجهود جبار تسلم ايدك .

يعنى يجب عليك تمكين الماكرو كما بالصورة

دائما مبدع استاذ / محمد جعله الله في ميزان حسناتك ان شاء الله تحياتي لكل اهل البحيرة

بارك الله فيك استاذ محمد ان شاء الله هيكون برنامج ممتاز جعله الله فى ميزان حسناتك

بارك الله فيك يا مبدع الاكسس مع النت

وعليكم السلام مبدع وبارك الله فيك

حاول عمل استعلام يضم الحقول التي تريد من الجداول .

بسم الله الرحمان الرحيم اليوم سأقدم لكم مشروع صغير و هو احتساب الاعمار منها العام و الشهر و اليوم سوف أرفق لكم هذا الملف البسيط مع تحياتي لكم المبرمج : مناد سفيان ............ الجزائر

انا اخبرتك بالمشكلة وانها المعيار المعيار لا يتوافق مع التنسيق في حقل التاريخ واللي عملته انني وحدت التنسيق في الجدولين وفي مربعات التحرير في النماذج كيف ؟ انت وضعت في بعض الاماكن التنسيق هكذا : Month([date_n]) & " / " & year([year_n]) وفي البعض الآخر هكذا : Month([date_n]) & "/" & year([year_n]) لاحظ الفرق والمتمثل في المسافات الخالية في : " / " والافضل انك تجعلها جميعا مثل الثانية اي بدون مسافات

وعليكم السلام هلا بأخوي حربي بعدنا على عزومة الكاهي وباقلّه ودهن ولكن للعلم ، لا تستطيع ان تُظهر ملفات pdf في PictureBox ، وانما تعرضه في متصفح الانترنت ن للعم جعفر 556.za-EMP_webbrowser.mdb.zip