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

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

السلام عليكم ورحمة الله تعالى وبركاته إصلاح مشاكل قواعد البيانات أداة لاستعادة البيانات الناجمة عن تلف قواعد البيانات تستخدم تقنيات متقدمة لفحص قواعد بيانات Microsoft Access التالفة وتدعم النسيقات (.mdb . accdb) وتقوم باستعادة أكبر قدر ممكن من البيانات مما يقلل الخسارة الناجمة عن تلف قواعد البيانات. الاداة مجانية للاستخدام الغير تجارى من يريد الكراك يراسلنى على الخاص حتى لا ننتهك قوانين المنتدى بنشرها 159905355_DataNumenAccessRepair.rar

تفضل ما طلبت =IF(OR(AND(ISEVEN(A1),ISEVEN(B1)),AND(ISODD(A1),B1=9)),"غرفة 15",IF(AND(ISEVEN(A1),ISODD(B1)),"غرفة 13",IF(OR(AND(ISODD(A1),ISEVEN(B1)),AND(ISODD(A1),B1=7)),"غرفة 5","غرفة 20"))) جملة شرطيه1.xlsx

السلام عليكم ورحمة الله تعالى وبركاته احيانا نريد عمل معرف خاص بنا برمجيا طبعا يختلف الكود تبعا لاسم الجدول والحقل ونوع الحقل اليوم سوف اقدم لكم فكرتى المتواضعة فى تلك الوظيفة التى يمكن وضعها فى وحدة نمطية ليمكن -استدعاؤها فى زوايا التطبيق المختلفة بكل سهولة -امكانية التحكم اثناء استدعاء الوظيفة فى البادئة ان اردت اضافة بادئة ما -التحكم فى موعد اعادة التعيين ليبدأ العدد من الرقم 1 مرة أخرى سنويا او شهريا او يوميا الكوووووود '|---10/04/2022______________________________________________| '|___www.officena.net________________________________________| '| | '| _ +-----------officena-----------+ _ | '| /o) | ||||| | (o\ | '| / / | @(~O^O~)@ | \ \ | '| ( (_ | _ ----oOo--Moh--oOo----- _ | _) ) | '| ((\ \) +/o)----------3ssam---------(o\+ (/ /)) | '| (\\\ \_/ / \ \_/ ///) | '| \ / \ / | '| \____/________Mohammed Essam________\____/ | '| | '| 10/04/2022 | '| | '|_____www.officena.net______________________________________| '|_____Thank you for visiting https://www.officena.net_______| '======Control in Special increment prefix ID===============================================================================================================================' ' ____ __ ____ ____ __ ____ ____ __ ____ ______ _______ _______ __ ______ _______ .__ __. ___ .__ __. _______ .___________. ' ' \ \ / \ / / \ \ / \ / / \ \ / \ / / / __ \ | ____|| ____|| | / || ____|| \ | | / \ | \ | | | ____|| | ' ' \ \/ \/ / \ \/ \/ / \ \/ \/ / | | | | | |__ | |__ | | | ,----'| |__ | \| | / ^ \ | \| | | |__ `---| |----` ' ' \ / \ / \ / | | | | | __| | __| | | | | | __| | . ` | / /_\ \ | . ` | | __| | | ' ' \ /\ / \ /\ / \ /\ / __| `--' | | | | | | | | `----.| |____ | |\ | / _____ \ __| |\ | | |____ | | ' ' \__/ \__/ \__/ \__/ \__/ \__/ (__)\______/ |__| |__| |__| \______||_______||__| \__| /__/ \__\ (__)__| \__| |_______| |__| ' ' ' '===========================================================================================================================================================================' Function MySpid( _ ByRef strFieldName As String, _ ByRef strTableName As String, _ Optional strPrefixe As String = vbNullString, _ Optional strResetYYorMMorDD As String = "YY", _ Optional nDay As Integer = 0, _ Optional nMonth As Integer = 0, _ Optional nYear As Integer = 0) As String Dim strLinkCriteria As String Dim strOldID As String Dim strNxtID As Long Dim intLenPrefixe As Integer Const intNumberOfZeros = 6 intLenPrefixe = Len(strPrefixe) + 1 If nDay = 0 Then nDay = Format(Date, "dd") If nMonth = 0 Then nMonth = Format(Date, "mm") If nYear = 0 Then nYear = Year(Date) - 2000 Select Case strResetYYorMMorDD Case Is = "YY": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 6), 2), 0) = nYear ' Yearly Reset Case Is = "MM": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 4), 2), 0) = nMonth ' Monthly Reset Case Is = "DD": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 2), 2), 0) = nDay ' Daily Reset End Select strOldID = Nz(DLast("" & strFieldName & "", strTableName, strLinkCriteria), 0) strNxtID = CLng(Right(strOldID, intNumberOfZeros)) strNxtID = strNxtID + 1 MySpid = strPrefixe & Format(nDay, "00") & Format(nMonth, "00") & Format(nYear, "00") & _ String(intNumberOfZeros - Len(CStr(strNxtID)), "0") & CStr(strNxtID) End Function يتم استدعاء الوظيقة بشكل عام من خلال الكود الاتى MySpid("FldName", "TblName") فى هذه الحالة يتم اعادة تعيين الترقيم سنويا ------------ ولكن للتحكم الكامل ولتغيير الاعدادات MySpid("FldName", "TblName", "AnyPrefixe", "yy or MM OR DD","DayDate","MonthDate","YearDate") AnyPrefixe البادئة التى تريد أن تبدأ الترقيم بها غيرها كما تريد MySpid("FldName", "TblName", "AnyPrefixe") yy or MM OR DD لو اردت اعادة تعيين الترقيم سنويا سوف تكون yy وبدون استخدام هذا الجزء هذا هو الاحتيار المفضل تبعا للكود MySpid("FldName", "TblName", "AnyPrefixe", "yy") لو اردت اعادة تعيين الترقيم شهريا سوف تكون MM MySpid("FldName", "TblName", "AnyPrefixe", "MM") لو اردت اعادة تعيين الترقيم يوميا سوف تكون DD MySpid("FldName", "TblName", "AnyPrefixe", "DD") --------- DayDate لتبدأ الترقيم من خلال رقم يوم محدد يعنى مثلا لو اردنا الترقيم يبدا من يوم 23 MonthDate لتبدأ الترقيم من خلال رقم شهر محدد يعنى مثلا لو اردنا الترقيم يبدا من شهر 09 YearDate لتبدأ الترقيم من خلال رقم سنه محدد يعنى مثلا لو اردنا الترقيم يبدا من عام 21 اجمل الامنيات بالاستمتاع مع هذا الكود وهذه الافكار هذا الاصدار الاول من كتابتى للكود لم اتمكن من التجربة بشكل كبير.. فضلا وكرما موافاتنا بالنتيجة فى حالة حدوث اى خطأ Special increment prefix ID.accdb

السلام عليكم ورحمة الله وبركاته أخي الكريم @2005sft رفع الله قدرك وأعلى شأنك وبعد: أما عن أدوات Kutools For Excel فهي مجموعة إضافات تسهل التعامل بالإكسيل قد تكون نزلتها ثم لم تعدّها بشكل تام على حاسوبك فيعطيك هذه الملاحظة وهي - والله أعلم - خدمات مدفوعة وبذلك يكون قد تم التطرق لأحد أسئلتك الكريمة إليك الرابط: من هنا أخي الكريم أما عن السؤال الآخر ذو شقين يتعلق الأول منهما بنطاق التاريخ في كل شيت bb5:bb22 أي في كل شيت في العمود BB ستجد تاريخ انتهاء كل سنة وهنا وضعها في النطاق من bb5 حتى bb22 كما سترى لاحقاً في صورة من الملف ، أما الشق الثاني هو يتعلق بنطاق ناتج قيمة مبلغ الزكاة في كل سنة وفق الكود التالي: Function kh_Sum_Hijri(MyNSheet As String, Firstdate As String, Enddate As String, Rngdate As String, RngSum As String) Dim kh_Calendar As Integer kh_Calendar = Calendar Calendar = vbCalHijri If IsDate(Firstdate) And IsDate(Enddate) Then kh_Sum_Hijri = kh_Sum(CDate(Firstdate), CDate(Enddate), Sheets(MyNSheet).Range(Rngdate), Sheets(MyNSheet).Range(RngSum)) End If Calendar = kh_Calendar End Function حيث أن Range(Rngdate) هو bb5:bb22 و Range(RngSum) هو bj5:bj22 والله أعلى وأعلم تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته.

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

السلام عليكم مشاركه مع والدى العزيز @محمد حسن المحمد جزاه الله كله خير 🌹 بالنسبه للاده Kutools For Excel كما اذكر انها يجب شرائها بعد الفتره التجريبيه المسموحه يمكنك تحميل الاداه من الرابط التالى ولا تحتاج تفعيل وجزاه الله خيرا استاذ على بالتوفيق

بارك الله فيك على هذا التوضيح السلس والواضح .. ودمتم برعاية الله وتوفيقه ..

السلام عليكم اخى الفاضل @abouelhassan اعذرنى لعدم التعديل على مثالك ولكن اليك مثال ان شاء الله يوضح لك الطريقه للحصول ع الرصيد السابق انظر للصوره ثم اطلع ع المثال المرفق بالتوفيق TestRseedSabk.accdb

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

ههههههه غريبة احنا حتى فى رمضان ان امكن رفع القاعدتان للتحربة

بارك الله فيك جزاك الله خير

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

جزاك الله خيراً استاذي العزيز.. اسأل الله ان يتقبل صيامكم وقيامكم وان يغفر لي ولكم وجميع المسلمين

وعليكم السلام ورحمة الله وبركاتة وكل جمعة وانت طيب وامين يارب العالمين

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

تسلم بارك الله فيك، أحسنت، وجعل الله مجهودكم في ميزان حسناتكم، كل الشكر والتقدير أستاذنا.

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

أخ محمد .. بارك الله فيك وهذا الشرح الجميل كما عودتنا .. هل افهم من كلامك ان تكون أدوات Kutools For Excel المرفقه مشتراه فلذلك تكون برقم سري للتعديل .. او ان المدخل لهذا الشيت جعل رقم سري لكي لا يتم التعديل عليه .. مع العلم ان أدوات Kutools For Excel محمله على الاكسل لدي .. فهل يمكن الغاء هذا الرقم السري للاطلاع .. تفبل الله منا ومنكم الصيام والقيام

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

تفضل أخي الكريم إن شاء الله يكون المطلوب mas_مدد الخدمة المسجلة بالتامينات.xls

بارك الله فيك استاذنا الفاضل على هذه الاضافه

انا عارف انك شغال على شئ سوف يرى النور قريبا وانا منتظر بلهفة مشتاق ديما شغالين لا تقلق ابشر بالخير ان شاء الله

ممتاز استاذ محمد بارك الله فيك -عمل ممتاز وبالفعل سيفيد العديد من الأعضاء .. أكرمك الله والى النجاح والتقدم دائما لمنتدانا

كيف عرفت إنّي ناوي أجدد المكتبة 😅 لا يكون شغلت البخور والعفاريت عندك 👻 إنت كثر شغل أفكار وشخابيط بس عشان نملي المكتبة بسرعة 😋

الله عليك معلمنا واستاذنا / @ابو جودي

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

شكرا لكم احبتي كنتم الافضل ورمضان مبارك اجمعين يا غوالي

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

اتفضل اسف كنت مستعجل ولم انتبه لتلك النقطة جدول البرامج-v3.accdb

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

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

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

السلام عليكم أخي الكريم يرجى معاينة الملف التالي بعد التعديل عليه أرجو أن يناسبك الحل Activex Combo box.xlsm

نسأل الله سبحانه وتعالى ان يديم عليك نعمة الايمان والعلم

السلام عليكم ورحمة الله وبركاته إخوتي الأكارم : تبين لي بعد تنزيل الملف وإضافته للإكسيل أنه فورم يختص بفك حماية ملفات إكسل للأستاذ المحترم @أ / محمد صالح لكنني لم أجربه بعد...تقبلوا تحياتي

طيب ولماذا نكتب الكود حسب المعطيات ليه ما نكتب كود ذكى وهو يشتغل لحاله حسب حاجة المستخدم يعنى بدون لا تعديل فى كتابة الاكواد ولا شئ ويقدر يشتغل مع اى قاعدة او اى جدول او اى حقل مهما كانت الاسماء واختلفت كمان يكون اكثر ذكاء يقدر يبدا الترقيم بالبادئة الى يريدها المستخدم en , ex or Mossa كمان يكون اكثر ذكاء يقدر يقدر يعمل اعادة التعيين للترقيم حسب الحاجة يوميا او شهريا او سنويا يعنى يعمل رسيت لوحدة حسب انت عاوزه يعمل الرسيت امتى من نفسه لوحده بدون ما تدخل تعدل شئ فى الكود فكر كده شوية يا باش مهندس ودعبس هنا وهناك @Moosak الاقيش عندك الكود الذكى ده لو مش عتدك اتفضل

الحمد لله الذي بنعمته تتم الصالحات