ابو جودي

لا مش فاهم بفول لك ايه الله يرضى عليك انا لا فاهم الارقام ولا عارف ايه الناتج اللى يطلع الله يرضى عليك 1- حط القيم اللى انت عاوزها فى النموذج وفلتر وصدر التقرير وهات النتيجة هنا فى صورة وطبعا دى الغلط 2- اعمل صورة جديدية انت بايدك فى ملف ورد مثلا بالشكل المطلوب بالارقام اللى مفروض تطلع

اتفضل يا سيدى جرب ورد علية بالنتيجة لو تكرمت Test1(4).accdb

طيب قبل ما ابدأ العمل 1- هل اقوم بعمل الاستعلامات من خلال الاكواد ؟! الميزة : تقليل عدد الاستعلامات والنماذج العيب : مستقبلا ان اردت اى تعديل لابد من فتح التصميم والتعديل برمجيا على الاكواد وجملة الـ SQL الخاصة بالاستعلام وقكها الجميل ستكون كثيرة يعنى لابد من معرفتك التامة لكل جملة كيف سيكون عملها وتأثيرها --------------------------- 2- عمل العدد الكافى للاستعلامات حسب المتطلبات طبقا لمعايير الاختيار من النموذج ؟! الميزة : مستقبلا ان اردتعمل اى تحديث تستطيع تحديد الاستعلام وعمل ما تريد بسهولة العيب : كثرة الاستعلامات فى انتظار ردك للشروع بالعمل

ابشر

اتفضل يا سيدى الفاضل Test1(4).accdb

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

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

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