ابو جودي

نعم قم بتجربة الملف على المرفق الخاص بى وانظر الى النتيجة

طيب ممكن سؤال يا عسل انت عامل اسم الملف كالاتى FileName.accdb يا ترى لو فى ملف بدون امتداد وما تسالنى ازاى وليه واسمه FileName ايه اللى راج يصير وياك

طيب كنت احضر المرفق واذا بالرد وصل من الباش مهندس @Moosak بس ولانى حضرت المرفق وطبعا عملت حساب كل شئ مش راح اشرح اترككم مع التجربـــــة وراح نشوف رد يضاف للمكتبة Extract Filename And Extension.zip

ياريت ترفق قاعدة البيانات

ممكن اشارك بفكرة مع الاخذ فى الاعتبار عدم تغيير حالة زر الـ Num Lock db5.mdb

طيب للاسف تم التلاعب فى العلاقات بين الجداول داخل الاستعلامات مصدر التقارير وذلك وفقا للتعديل الجديد لا ادرى خل لذلك تأثير مستقبلا على اى شئ ولكن هذا طلبك تم تعديل الاستعلامات والتقارير وفقا لتلك الحالة الجديدة برنامج اعداد الخطط لمركز السلام(3).zip

ما هو لما نحاول نرد على سؤال مش مفهوم .. اصبر لما نشوف اسم التقرير ايه ومنين افتح التقرير سيادتك ؟؟؟

طيب اذا انا فاهم صح جرب المرفق هل هاد قصدك برنامج اعداد الخطط لمركز السلام(3).zip

you welcome

الله يسلم حضرتك وكل عام وحضراتكم جميعا بخير وصحة وسعادة ولكن اخرتها صيرت ملح وكنت اتصور انى عسل عندما تصطدم بالواقع الاليم \ #انا_حزين

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

اضم صوتى لصوت المهندس @Eng.Qassim فعلا انا كنت ناوى اطلب كل ما سبق وطلبة الباش مهندس قاسم ولكن رجاء عمل موضوع مستقل لكل نقطة مستقلة على ان يدل اسم الموضوع على ( العنوان ) على مدلول المحتوى من الداخل

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

يا 100 مليون اهلا ♥ كل عام وانتم بخير استاذى الجليل

وعليكم السلام ورحمة الله تعالى وبركاته ولكن لا يمكن الاعتماد عليه كليا سواء قرأت شرح الكود قبل او بعد الترجمة اعتقد قراءة وتحليل الكود افضل بكثيـــــــــــــــر جرب الكود الاتى بالموقع وقول لى رأيك هو مش كودى وانا اللى كتبته بعد وضعه بالموقع ولله انا ضيعت وماصيرت فاهم شئ بالكود 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

اثراء للموضوع وغير ما يلزمك بالوحدة النمطية لتحصل على الترقيم بالشكل اللى يريحك وغير ما

الموضوع انى لما قمت بوضع الافكار بالمرفق وقمت باستدعاء احد دوال الـ API لم اضع فى الاعتبار وقتها دعم 32 , 64 بت تم تعديل الكود اتفضل المرفق print only one time (64 , 32 Bit).mdb

لا اعتقد ولكن الاعتماد على الرقم هذا فقط غير مناسب لان بعض المعالجات لا تظهر لها رقم كما ان Getint هو اسم وضعه المبرمج ولايشير لما يحتويه الا ان وضعت لنا الكود لنرد عليك بالرد المناسب فيما يخص الكود ولو تكرمت لو تشاركنا افكارك فى وضع التشقير والية الحماية وانا انصحك بالاعتماد على رقم الـ UUID ويمكنك الخصول عليه من الكود الاتى Public Function GetUUID() Dim strComputer As String Dim objWMIService, colItems, objItem strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems GetUUID = objItem.UUID Next End Function

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

لا انا لم اقل لك تحدى ولكن قلت لك ابشر شتان ما بين الكلمتان ومعناهما

ليس العدف الوصول للنماذج ولكن التجربة والتأكد من الفاعلية ولكن فى المرفق الأخير وعد منى اليك لا و لن تسطيع الوصول لأى شئ ابشر

جزانا الله واياكم .. يا اهلا بك

انا جربت على اوفيس 2021 64 , 32 وكان كل شئ تمام طيب ممكن طلب عند حضرتك مانع ادخل ريموت على الجهاز عند حضرتك اون لاين لارى المشكلة بنفسى وحضرتك مشكورا راح تتابع معى كل شئ لو موافق ممكن نستخدم AnyDesk طلبت ذلك ايضا من والدى الدكتور @الحلبي ولكن لم يصلنى الرد

لا يمكن عمل ذلك من الاستعلام بطريقة مباشرة ولكن يمكن اذا كان الكود الاتى فى وحدة نمطية لتتمكن استدعاء الكود فى زوايا التطبيق المختلفة حتى لو فى استعلام الروتين المستخدم فى الوخدة النمطية : Public Function CheckFolder(strFolderPath As String) As Boolean Dim strIsFolder As String strFolderPath = strFolderPath strIsFolder = Dir(strFolderPath, vbDirectory) If strIsFolder = "" Then CheckFolder = False Else: CheckFolder = True End Function الان فى الاستعلام وحسب ما اشرتم فى رأس الموضوع اضف فى حقل جديد السطر الاتى CheckFolder([folderName]) مع العلم ان حقل الـ folderName فى الاستعلام لابد وان يحتوى على المسار كاملا للمجلد

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