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

شرح كيفية اظهارمتعدد الصفحات من اليمين وطريقتين للتنقل بين الصفحات مع عقاب الله لكل من كذب الانبياء الملف الانبياء واوالدعوة.xlsm

تفضل هذه الجزئية DateDiff('yyyy',[EmpBirthDate],Now()) Between " & _ Me.txtFrom & " And " & Me.txtTo

اسمحلي أبا جودي بهذا الدخول المفاجئ 😅 كحل سريع ، قم بتعديل المعيار الذي أسفل الحقل Grde في الاستعلام هكذا (تحذف النجمة التي على اليمين ) : Like "*" & [Forms]![frm_Search]![Ser_Grade] والنتيجة : Database271.accdb

انظر الى الموضوع هذا ان شاء الله تجد فيه مرادك وهذا التطبيق على قاعدتك .. اتفضل Database11 v2.accdb

تم معالجة الملف وبرفقه المطلوب. تعديل تاريخ.rar

انا اتخضيت مش تخبط الاول وترمى السلام 🤭 يا هلا باش مهندس @Moosak اتفضل يا سيدى اسمح لك طبعا افعل ما تشاء كلنا ملك يمينك وتحت امرك انا كنت ناوى اربط له المرفق بالمرفق السابق لموضوعه الاخر تباعا والنهوض تدريجيا بمستوى الحلول مع التغييرات اللازمة لا احاول تقديم الحل فقط وانما احاول تقديم النصح والارشاد للبناء الصحيح

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

تفضل انظر للمرفق مدد الخدمة المسجلة بالتامينات.xls

Function Ceiling2&(n#) Ceiling2 = -Int(-n) If n < 0 Then Ceil = Fix(n) End Function السلام عليكم جرب هذه الدالة

أخى الكريم المعادلة عادية وليست مصفوفة أى معادلة بسيطة وخفيفة ولا ترهقك .. فبالتالى ليس هناك داعى لعمل كود لها وهذا غير مهم.. ولكن اذا كنت تريد الكود فيجب استخدام هذا وتطويعه لما تريد Sub Ceiling() Range("B1") = Application.WorksheetFunction.Ceiling(Range("A1"), 1) End Sub ceiling 1.xlsm

تفضل الحل استاذ خالد لحساب مدة الخدمة (1).xls

طيب في حدث عند تحميل النموذج ضع هذه الشيفرة ..... Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Tb-Empl") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) If (IsNull(rs.Fields(5))) Then rs.Edit rs![نهاية الخدمة] = rs![تاريخ التوظيف] + 365 rs.Update End If rs.MoveNext Wend End If rs.Close Set rs = Nothing

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

بالإشارة إلى تعدد الإستفسارات حول تطبيق لاستخدام المنتدى على الهاتف المحمول يرجى الاحاطة بان التطبيق المتوفر هو من نوع PWA Progressive Web App (PWA) اذا تصفحت الموقع باستخدام آخر اصدارات الكروم ، www.officena.net ستجد تنبيه منبثق بعنوان اضافة officena الي الشاشة الرئيسية: و بالضغط عليه سيتم تحميل التطبيق و في حال لم يظهر الاشعار السابق يمكن الضعط على الثلاث نقاط اعلي صفحة المنتدى من الهاتف و اختيار تثبيت التطبيق او بالانجليزية Add to Home Screen و سيتم اضافة ايقونة للتطبيق

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

جرب المرفق اليك طريقتان في form1 &form2 invoice2.accdb

وبعد قليل تجدوا اخونا الغالى استاذى القدير ومعلمى الجليل الباش مهندس @Moosak يضع تلك المشاركة الله يخلى لنا اياه ولا يحرمنا منه ولا من مكتبته فننتظر منه بعد ان تمتلئ مكتبته مشاركتنا اياها مملؤه بدلا من المكتبة الخاوية التى ضحك علينا بها قبل فترة وهذا المرفق الأخير Database1011 v5.accdb

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وأحسن إليكم آمين يارب العالمين 🏵️🌺 أسأل الله تعالى أن يوفقنا وإياكم لما يحب ويرضى آمين والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸

السلام عليكم ورحمة الله وبركاته 💐🏵️🌸 أستاذنا الفاضل @محمد طاهر جزاكم الله خيرا وأحسن إليكم آمين إضافة ممتازة وهامة. بارك الله بكم تقبلوا تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🌺😊

اخي حلبي اتوقع انك تحتاح حين البيع - بالكرتون يتم خصم كرتون من المخزون - و عند البيع بالعلبة يتم خصم علبة من الكرتون علبة - و عند البيع بالحبة يتم الخصم من العلبة و اذا انتهت العلبة يتم خصم من العلبة التي يليها و اذا انتهت جميع العلب يتم الخصم من اول علبة من الكرتون التالي

اتفضل ياسيدى بس انا عندى مشكلة فى ضبط اخر حالة مش قادر اعرف السبب افتح النموذج frmFilter وشوف الجزء الاول الفرز بالرتبة تمام يعمل منفردا او يتم التصفية والفرز بناء عليها مع باقى القيم الاتية فى باقى الشروط الجزء الثانى الفرز بالجنس مثل سابقه الجزء الثالث والذى يحوى المشكلة يتم الفرز ولكن تختفى البيانات انا الان رايح اصلى التراويح بعدين نكمل ان شاء الله Database1011 v4.accdb

شكرا اخ على وربنا يبارك فيك

السلام عليكم اشكركم للرد والاهتمام " كل سنة وانتم طيبين " جربت المرفق ووجدت انه قدتم الغاء الحقلين fldname=me.ملاحظات 'fldrname1 = Me.مرفقات وهذان الحلقان اساسيان وضروريان بارك الله فيكم

الف الف شكر استاذي موسى .. الان عمل الكود بشكل رائع .. يعطيك الف عافية .. ❤️

جرب هذا : ((TransactionsT.TransToDept) Like '" & Forms!MainScreen!txtDepartment & "'"))

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

بارك الله في فيك استاذي @ابو جودي اشكرك على المداخلة والمساعدة تعديل في القمة و لا اروع

وإثراء للموضوع فكرتى المتواضعة على طريقة المعقدين نقسيا امثالى من بعد إذن استاذى الجليل ومعلمى القدير الاستاذ @Barna عدد 2 وظيفة ليمكن تطبيق المطلوب فى زوايا قاعدة البيانات الوظيقة الأولى حساب مدة التقاعد ولان المطلوب زيادة سنه فلقد تم التعامل مع الاكواد على ان يكون الوضع المفضل سنة واحدة بطريقة الية وفى حالة إن اراد المستخدم الزيادة عن السنة من خلال عدد الأيام من واقع ( مدة اضافية ) يتم ذلك بسهولة عند استدعاء الوظيفة بكل سهولة Public Function RetirementDate( _ ByVal dtContractDate As Date, _ Optional nDay As Integer = 0, _ Optional nYear As Integer = 1 _ ) If nDay = 0 Then RetirementDate = DateAdd("yyyy", nYear, dtContractDate) Else RetirementDate = DateAdd("yyyy", nYear, dtContractDate) RetirementDate = DateAdd("d", nDay, RetirementDate) End If RetirementDate = Format(RetirementDate, "dd/mm/yyyy") End Function طريقة استدعاء الوظيفة الاتية لحساب مدة التقاعد كالاتى RetirementDate([ContractDate],nz([addDayCont],0) ContractDate = تاريخ بدأ التعاقد ( تاريخ التعيين ) addDayCont = عدد الايام المضافة ( مدة اضافية ) ---------------------------- حساب الايام المتبقية للاحالة للتقاعد Public Function MyDayRem(GetRetirementDate) Dim EndContract As String EndContract = ChrW("1578") & ChrW("1593") & ChrW("1575") & ChrW("1602") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("1578") & ChrW("1607") & ChrW("1609") MyDayRem = IIf(DateDiff("d", Now(), GetRetirementDate) <= 0, EndContract, DateDiff("d", Now(), GetRetirementDate)) End Function طريقة استدعاء الوظيفة الاتية لحساب عدد الإيام المتبقية للإحالة إلى التقاعد كالاتى MyDayRem([RetirementDateValue]) وهذا ملف التطبيق تم التطبيق فى الاستعلام qryRetirDate من خلال الاكواد فى الوحدة النمطية Database1011.accdb

جزاكم الله كل خير

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

المستند هذا كبير جدا 1800 صفحة يجب ان تقسمه الى اجزاء لا تتعدى 500 او 600 صفحة ليصبح خفيفا ووالسلام ععليكم

جرب كده ولو تكرمت ممكن ترفق القاعدة كاملة رسالة خطاء عند فتح سجل جديد.accdb

هذا الموضوع ربما يفيدك ..وهناك الكثير من المشاركات في الموقع

جرب الجملة التالية ..فقط قم بتغيير 'b' بالعبارة لديك لانها غير مفهومة Forms!MainScreen!lstLastTrans.RowSource = "SELECT TransactionsT.TransID, TransactionsT.idEmp, TransactionsT.TransSubject, TransactionsT.TransCreatedOn, TransactionsT.TransToDept, TransactionsT.TransStatus, TransactionsT.TransType, TransactionsT.TransTitle, DateDiff(""d"",[TransactionsT]![TransCreatedOn],Now()) AS TransCreatedOn1 " & vbCrLf & _ "FROM TransactionsT " & vbCrLf & _ "WHERE (((TransactionsT.TransSubject) Is Not Null) AND ((TransactionsT.TransStatus) Not Like 'b') AND ((TransactionsT.TransType) Is Not Null) AND ((TransactionsT.TransTitle) Is Not Null)) " & vbCrLf & _ "ORDER BY DateDiff(""d"",[TransactionsT]![TransCreatedOn],Now()) DESC;"

الاستاذ/ @hougar وعليكم السلام هذا اقتراح جيد رغم انى اعتمدت طريقة استاذنا ومعملنا / @ابوخليلفى برنامجى طيب اعمل جدول الاصناف وضع فيه هذا الاقتراح ولعل احد الزملاء يقوم بعمل الكود المطلوب كما ورد فى كلام حضرتك جزاكم الله خيرا اخى الكريم

بجد شغل محترفين الله ينور عليك ننتظر منكم المزيد

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

الشكر لله عزيزي ولهذا المنتدى الذي نتعلم منه. بالتوفيق

شكرا لكم واللهم صلّ وسلّم على نبيّنا مُحمّد، وارضَ عن صحابته الأخيار. ورمضان كريم

جرب "فاصل الأنماط" (وهو مشروح هنا) اجعل لعبارة "تعريف القياس المحاسبي" وحدها نمط عنوان. فأنماط العنوان هي التي تظهر في جداول المحتويات.

السلام عليكم تفضل اخي العزيز وارجو ان يكون طلبك ملاحظة:التقرير السابق لا يقبل الترتيب مثل الاستعلام لذا اعدت تصميمه مع بعض التعديلات وعذرا للتقصير okترتيب الشهور في التقرير.rar

السلام عليكم الفيزيو سابقا كان احد مكونات حزمة الاوفيس ، ثم تم فصله ليصبح برخصة مستقلة يختص الاوفيس بالرسومات التوضيحية المختلفة منها على سبيل المثال لا الحصر - العمليات Process Flow diagrams - الهياكل التنظيمية - رسومات العصف الذهني Brain Storming - رسومات أدوات الجودة المختلفة - البرامج الزمنية البسيطة - الرسومات الهندسية البسيطة -....و العديد من الانواع الاضافية بحسب القوالب المختارة و ايضا هناك تطبيقات متقدمة تتعلق بتحليل البيانات رسوميا بخاصية الرسومات المحورية Pivot chart والتعامل مع البيانات الخاصة بالرسومات ، و ايضا ربط بيانات الرسومات مع قاعدة بيانات خارجية فى اكسيل مثلا