ابو جودي

نعم يوجد تمكين الشفت.mdb

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

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

اتفضل الدائن والمدين.rar

انا كتبت لك الحل على فكرة واذا مش عارف تنفذ هذه قاعدتك بعد التعديل اجازات الضباط1 - Copy.zip

اللهم امين يارب العالمين 🤲

الموضوع اصلا من منتدى اوفيسنا ليش التكرار ؟ فى راس محرر اكواد النموذج تجد السطرين التاليين 'هذا مثال أعتز به فهو حقا إلتقاء للفكر العربى 'وكذالك من دواعى سرورى به مشاركتى العمل فيه خبير وعملاق من عمالقة أوفيسنا رمهان لان كنت انا صاحب الفكرة وتمت على يد الاستاذ @رمهان رجاء تقليل المواضيع المكرره والاكواد بالمسميات التى وضعتها 'هذا مثال أعتز به فهو حقا إلتقاء للفكر العربى 'وكذالك من دواعى سرورى به مشاركتى العمل فيه خبير وعملاق من عمالقة أوفيسنا رمهان ''رمهان ''اوفيسنا Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = Nz(comb_Search, "id") & " Like ""*" & txt_Search & "*""": Me.FilterOn = True End Sub ''رمهان ''اوفيسنا Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = (Nz(comb_Search, "ID")) & " Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub يغلق للتكرار

اين مرفق القاعدة الرئيسية .

اتفضل 1- تاريخ اخر اضطرارية =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='اضطرارية'"),"yyyy/mm/dd") 2- تاريخ اخر حافز =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='حافز'"),"yyyy/mm/dd") 3- تاريخ اخر مغادرة =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='مغادرة'"),"yyyy/mm/dd") 4- تاريخ اخر سنوية =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='سنوية'"),"yyyy/mm/dd")

اذا ناوى تتعامل مع سيكوال يبقى سيب الاكسس وروح ل vb.net ولكن سيكون هناك اختلافات قليلة فى بناء الاكواد وبما انك نويت التغيير ما انصجك بال vb.net انصحك بالتوجه فورا وبدون تفكيــر لـ #C

هات البرنامج الرئيسي لان انا ما عدلت اى شئ الا فى النموذج الرئيسي فقط

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

يضاااااااااااااف للمكتبـــــــــه وقت الحصاد

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

وهذا تعديل من اخر ببعض التعديلات لالغاء الكمبو بوكس من النموذج الفرعى واخيرا اتمنى على الله تعالى ان لا تكون هناك تعديلات اخرى لات بجد تعبت خلاااااااص Test1(5).zip

طيب شوف كده Test1(4).accdb

تسلم ايدك فعلا

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

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

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

ابشر

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

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

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

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