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

السلام عليكم برنامج ادارة المدارس الخاصة ورياض الاطفال يهم كل شخص صاحب مصلحة تتعلق بالمدارس الخاصة ورياض الاطفال برنامج مفتوح المصدر من تصميمي اتمنى لكم الفائدة حجم الملف 7 ميجا بعد الضغط لذا سأرفعه على ميديا فير وازودكم برابط مباشر http://www.mediafire.com/file/7l9bt2c3c13hr59/%D9%85%D8%AF%D8%A7%D8%B1%D8%B3_%D8%AE%D8%A7%D8%B5%D8%A9_%D9%88%D8%B1%D9%8A%D8%A7%D8%B6_%D8%A7%D9%84%D8%A7%D8%B7%D9%81%D8%A7%D9%84.exe/file أي استفسار انا جاهز ........... او على واتس اب 00962787787573 ** قريبا انتهي من تصميم برنامج محاسبة شركات شامل وموسع ........ عند الانتهاء سأرفعه لكم لكي تعم الفائدة الان شغال على برنامج ادارة مكتب محامي ........ اللي يهمه هذا البرنامج يكتب ملاحظة وسأزوده به مجانا http://www.mediafire.com/file/7l9bt2c3c13hr59/مدارس+خاصة+ورياض+الاطفال.exe

تفضل 🙂 . . . جعفر 1004.Microsoft Access Database جديد _(2)_.accdb.zip

السلام عليكم برنامج محاسبة ومخازن 2019 يهم كل شخص صاحب مصلحة تتعلق بالبيع والشراء برنامج مفتوح المصدر من تصميمي اتمنى لكم الفائدة كلمة السر 12345 أي استفسار انا جاهز ........... او على واتس اب 00962787787573 ** قريبا انتهي من تصميم برنامج محاسبة شركات شامل وموسع ........ عند الانتهاء سأرفعه لكم لكي تعم الفائدة الان شغال على برنامج ادارة مكتب محامي ........ اللي يهمه هذا البرنامج يكتب ملاحظة وسأزوده به مجانا محاسبة ومخازن 2019.rar

وعليكم السلام تفضل الفهرس2.xlsm

نفضل أخى احمد الطحان جرب الملف ok_11.xlsx

الخطأ هذا لا علاقة له بتعديل كود SQL 🙂 النموذج الرئيسي له مصدر بيانات ، يعني النموذج مضمن . مصدر بيانات النموذج هو استعلام للجدول invoice ، ولاحظ انك استخدمت النجمة * ، معناها انك تريد جميع حقول الجدول . وبالفعل ، تم عرض جميع حقول الجدول . ولما نأتي الى الحقل اللي يظهر لنا في رسالة الخطأ fatora_no ، نشوف انك قائل انه لا يمكن حفظ السجل بدون ان تكون هناك معلومة فيه ، نعم مطلوب . ولكن ، لما ننقر على زر الحفظ في النموذج ، نصل الى هذا السطر من الكود Me.Refresh ، والذي معناه ان يحفظ بيانات النموذج الرئيسي . ولكن جميع حقول النموذج غير مضمنه ، اي لا تُحفظ في الجدول ، إلا الحقل nn يجب حفظه (لأنه حقل مضمن) !! ولا يستطيع البرنامج حفظ هذا الحقل بدون قيمة لحقل fatora_no (لأنه غير مضمن) ، لذا ، فقيمة الحقل nn لن تُحفظ في الجدول !! . وبالنظر الى الجدول ، نرى انه بالفعل ، لا توجد فيه ولا نتيجة واحدة . والطريقة الصحيحة هي: يجب ان يكون النموذج الرئيسي غير مضمن ، ويكون حقل nn غير مضمن (مثل بقية الحقول) ، ثم تأتي الي الكود ادناه ، وتضيف حقل "رقم الايصال" nn ، وتجعل الكود يضيفه الى جدول invoice ، مثل ما يضيف بقية الحقول. . جعفر

بارك الله فيك استاذ سليم معادلة ممتازة ولكن الأستاذ صالح اذا كان محتاج ان يكون الى اخر تاريخ بالعمود فيمكن استخدام المعادلة بهذه الطريقة =IF( A2="",""," مديونية من تاريخ " & TEXT(A2,"dd/mm/yyyy") & " حتى تاريخ "&TEXT(MAX($A$2:$A$900),"dd/mm/yyyy"))

هذه المعادلة =IF( A2="",""," مديونية من تاريخ " & TEXT(A2,"dd/mm/yyyy") & " حتى تاريخ ")

السلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونو جمبعا بخير حال الموضوع اليوم قد وضحه العنوان كنت قد وعدت الاخوة فى هذا الموضوع ببعض التحديثات فوجدت ان كل هذه التحديثات يقدمها تطبيق واتساب اتجهت بفضل الله وكرمه الى محاكات نظام واتساب بالاكسس هذا الموضوع هدية لككم واتمنى ذكر الحقوق ان امكن ذلك والان مع الشرح اعتذر لرفعه على موقع خارجى لانتهاء المساحه هنا حجمة 2 ميجا فقط https://www.mediafire.com/file/ir1l91d6g18d8iy/AccessWatsapp.rar/file اتمنى التجربة واعلامى بالنتائج شكرا لكم

السلام عليكم اساتذتى واخواتى الكرام -أقدم لكم برنامج يهم كل العاملين بالتربية والتعليم وهو برنامج مرتبات المعلمين من أعمال وتنفيذ الأستاذ المحترم شعبان عطية الصباغ البرنامج يستخرج جميع المرتبات ويقسم ويجمع ويطرح بدون تدخل منك . تعليمات العمل على الشيت نأتي لطريقة العمل على الشيت فى صفحة ( بيانات ) يتم ادخال اسم المدرسة وشهر تحرير الاستماره فى الخانات الخاصة بها فقط حسب السهم أعلى يسار الصفحة ولا يتم ادخال أى بيانات أخرى بهذه الصفحة أولا : شيت المعلمين التابعين للقانون 155 والعمال المتعاقدين والمدرسين المتعاقدين خانات يتم ملئها يدويا وبدونها لايعمل الشيت بشكل سليم أولا : - جانب الاستحقاقات الاسم وبمجرد ادخال الاسم يتم الترقيم تلقائيا فى خانة المسلسل الوظيفة ويتم اختيارها من سهم القائمة المنسدلة وهى درجة الموظف الحالية التى يتقاضى عليها الحوافز والبدلات مع ملاحظة ان عامل متعاقد تشير للعامل المتعاقد ( 150جنيه) بينما معلم متعاقد تشير للمعلم المتعاقد (200جنيه) الدرجة للأعباء ويتم اختيارها من سهم القائمة المنسدلة وهى درجة الموظف التى يتقاضى عليها علاوة الأعباء حيث لا تتغير قيمة العلاوة عند ترقية الموظف 33% للعمال نظرا لحصول بعض العمال المتعاقدين على حكم ال33% يتم كتابة رقم 1 فى الخانة ليتم اعطائهم قيمة الحكم تلقائيا غير ذلك تترك الخانه فارغة اساسى 6 /2015 ويتم احتساب الحوافز والبدلات على اساسه اساسى 7 /2017 ويتم على اساسه حساب المعاشات الأساسية والزماله وخلافه ال3 علاوات الخاصة التى لم تضم للأساسى كل فى العمود الخاص بها ( 2013 - 2014 - 2015 ) قيمة العلاوتين الاجتماعية والاضافية فى العمودين الخاص بها اى مستحقات أخرى فى حالة حصول المعلم على أى مستحقات أخرى مثل بدل تفرغ أو حافز ماجستير أو دكتوراه يتم كتابته بالخانات الخاصة بذلك ويمكن تعديل رأس العمود لتناسب المسمى المطلوب مجموع ال3 علاوات وتوضع نهاية الشيت العامود ( DG) وهى مجموع ال3 علاوات التى تم ضمها للأساسى (علاوة ال10 % لسنة 2016 و علاوة ال10 % لسنة 2017 م وكذا علاوة الغلاء بنسبة ال10% ومجموع العلاوات ضرورى فى حساب الضرائب طبقا لنموذج الضرائب لسنة 2017 م ملاحظات هامه 1 - فيما عدا ما سبق لايتم ادخال أى بيانات يدويا بباقى الأعمده لعدم العبث بالمعادلات بها وحتى تخرج النتائج بشكل سليم 3 - توجد بعض الحالات لمن لا يتقاضون بدل الاعتماد ويتم منحهم زيادة فى حافز الأداء أو نسبة ال 91% يتم تعديل قيمة البدل بالمعادلة امام مسمى المعلم بمعرفة مسئول التطوير أو احد ملم بكيفية عمل ذلك ثانيا : - جانب الاستقطاعات يتم ادخال أى استقطاعات خاصة بكل معلم ان وجدت مثل الرابطة - مهن اجتماعية - مهن تطبيقية الخ ويمكن تعديل عنوان العمود ليناسب كل مدرسة مع ملاحظة التعديل بمفردات المرتب بنفس التعديلات ملاحظات هامه 1 - لا يتم التعديل بعامود قسط الاعارة والمدة السابقة حيث تدخل فى حساب الضرائب 2 - فى حالة اشتراك الموظف بالبحث العلمى لايتم كتابة شىء بالعامود وبمجرد ادخال ال4 جنيه بخانة الخدمات العمالية يتم حساب البحث العلمى تلقائيا لذا يرجى عدم تغيير عنوان العامودين 3 - يرجى عدم التغيير بعناوين الأعمده الا فى حالة الضرورة وذلك لارتباطها بمفردات المرتب وكشف التظهير وتوجد اعمده كثير مخفية يمكن الكتابة بها 4 - يوجد بعد عامود اسم البنك فى نهاية الشيت اعمده خاصة بحساب الدمغة والضريبة لا يتم العبث بها نهائيا ليتم حسابهما بشكل سليم 5 - يتم كتابة اسم البنك بكشف البنك امام كل مدرس ثانيا : شيت الاداريين ومشرفى النشاط والتابعين للقانون 81 لسنة 2016 م خانات يتم ملئها يدويا وبدونها لايعمل الشيت بشكل سليم أولا : - جانب الاستحقاقات الاسم وبمجرد ادخال الاسم يتم الترقيم تلقائيا فى خانة المسلسل الوظيفة ويتم كتابتها ولا يؤثر المسمى على أى شىء ومهم لمفردات المرتب الدرجة ويتم كتابتها ولا يؤثر المسمى على أى شىء ومهم لمفردات المرتب نقابى + حكم ركز معايا شويه الشيت اسهل من شيت المدرسين لو اتنفذ العمود ده بشكل سليم عارف طبعا ان الاداريين بالنسبه للنقابه اما نقابى أو غير نقابى وبالنسبه للحاصلين على الحكم بال33% اما واخد حكم أو مش واخد متفقين من السهم الموجود بالعمود ده هاتختار الأرقام من صفر وحتى الرقم 3 على النحو التالى : - 0 ويوضع امام الادارى غير النقابى والذى لم يحصل على حكم بال 33% 1 ويوضع امام الادارى النقابى والذى لم يحصل على حكم بال 33% 2 ويوضع امام الادارى غير النقابى والذى حصل على حكم بال 33% 3 ويوضع امام الادارى النقابى والذى حصل على حكم بال 33% اساسى وهمى ويتم على اساسه حساب المعاشات الأساسية والزماله وخلافه اساسى 30 / 6 / 2015 ويتم على اساسه حساب الأجر المكمل كل حسب موقفه من الحكم والنقابه اجر وظيفى + 7% ويتم على اساسه حساب الأجر والمتغير والمعاشات وكل شىء العلاوة التعويضية وحسابها من جملة المكمل والمتغير بدلات أخرى إن وجد ملاحظات هامه 1 - احيانا ونظرا لجبر الأرقام طبقا لتعليمات الماهيات تجد رقم 1 موجود فى خانة ال33% للناس اللى مش واخده حكم معلش امسحه وضيفه يدويا على خانة ال50 % ثانيا : - جانب الاستقطاعات يتم ادخال أى استقطاعات خاصة بكل إدارى ان وجدت مثل الرابطة - مهن تطبيقية الخ ويمكن تعديل عنوان العمود ليناسب كل مدرسة مع ملاحظة التعديل بمفردات المرتب بنفس التعديلات ملاحظات هامه 1 - لا يتم التعديل بعامود قسط الاعارة والمدة السابقة حيث تدخل فى حساب الضرائب 2 - فى حالة اشتراك الموظف بالبحث العلمى لايتم كتابة شىء بالعامود وبمجرد ادخال ال4 جنيه بخانة الخدمات العمالية يتم حساب البحث العلمى تلقائيا لذا يرجى عدم تغيير عنوان العامودين 3 - يرجى عدم التغيير بعناوين الأعمده الا فى حالة الضرورة وذلك لارتباطها بمفردات المرتب وكشف التظهير وتوجد اعمده كثير مخفية يمكن الكتابة بها 4 - يتم كتابة اسم البنك بكشف البنك امام كل إدارى ملاحظات هامة على البرنامج ككل 1 - يتم ترحيل البيانات تلقائيا لكشف التظهير للكل أو للبنك وكذا اقساط الزماله وكشف 2 تأمين ومعاش ويرجى المراجعة بعد التنفيذ 2 - يتم كتابة بيانات القصاصات يدويا او بعمل ارتباط فى الخانات الخاصة بها بمعرفة مسئول التطوير 3 - قبل الطباعة يتم اخفاء جميع الأعمده الخالية من البيانات والتعديل على تخطيط الصفحه حتى تظهر الأرقام بحجم ملائم للعين 4 - قبل الطباعة يتم جعل تنسيق الشيت بدون لون ( ابيض ) للتكلفة ولوضوح الأرقام ثم حفظ الصفحه بتنسيق pdf لتلائم الصفحة فى الطباعة 5 - اذا تم العمل بالبرنامج بشكل سليم عند عمل تسوية ضريبية سنويه فى نهاية العام لن توجد على الموظف أى مبالغ حيث تم احتسابها شهريا وبشكل سليم بعد مراجعة الضرائب بشبين الكوم 6 - عند حساب مكافأة الامتحانات لا يتم خصم أى مبالغ لحساب الضرائب حيث تم تسويتها شهريا ودفع ضرائبها مع المرتب على 12 شهر بدلا من خصمها مرة واحده مما يؤثر على قيمتها وذلك لجميع العاملين بالتربية والتعليم سواء الخاضعين للقانون 155 ( الكادر ) أو التابعين لقانون 81 لسنة 2016 ( الخدمة المدنية ) وهذا هو البرنامج-أتمنى ان ينال اعجابكم وعليكم بالدعاذ لصاحب هذ البرنامج بارك الله فيه وجزاه الله كل خير وجعل الله هذا العمل فى ميزان أعماله برنامج عمل مرتبات المعلمين الجديدة 2019.xlsx

تم معالجة الامر الفهرس_New.xlsm

السلام عليكم ورحمة الله وبركاته ما شاء الله تبارك الله لاقوة الا بالله ابداع حقيقي استاذ عبد اللطيف زادك الله علما ونفع بك وفتح عليك

عمل ممتاز بارك الله فيك وجزاك الله كل خير

حاليا تستطيع استخدام . ولكن في قائمة التعديلات ، إضافة هذه الميزة في مسقط التقارير 🙂 جعفر

يا شيخ 🙂

احسنت استاذ أحمد يوسف بارك الله فيك معادلات رائعة جعله الله فى ميزان حسناتك

وعليكم السلام اخوي خلف 🙂 انتظر عليّ شوي ، فانا اقوم بعمل تقرير مبني على استعلام جدولي ، وتتغير اسماء الحقول وعددها وعدد سجلاتها ، وبدون تغيير في الكود 🙂 تابعني هنا: جعفر

عمل موفق وبارك الله بيك جاري التحميل و اعطاء الرأي بعد ذلك

برنامج رائع ، سلمت يداك .

لم ياتينى اى ارقام تاكيد على ايميلى برغم التسجيل قم بالتسجيل باكثر من معرف ثم راسلنى بالهاشات للفك

تفضل ، الملف بعد التعديل 🙂 جعفر 1003.zip

السلام عليكم ورحمة الله وإليك الاختصار الذي وعدتك به (في الحقيقة هناك اختصاران أحدهما تبسيط مباشر للمعادلة والثاني تبسيط بالتسمية -شرح بسيط في المرفق-)، ولم أجد تبسيطا آخر... بن علية حاجي اقساط (2).xlsx

تفضل تم عمل المطلوب Microsoft Excel Worksheet جديد.rar

انا اعطيتك الجواب 🙂 جعفر

1. معلش ، اعمل اللي اخبرتك عنه ، وخلينا نشوف النتائج ، 2. انظر في مشاركتي الاخيرة ، لأني في نهايتها وضعت لك الحل لـ "مشكله اخري علي جهاز العميل وهي انا البرنامج لايفتح محرر الفيجوال بيسك" و "يخرج من البرنامج". جعفر

تفضل 🙂 . جعفر 1005.قروض.accdb.zip

بارك الله فيك

ما شاء الله تبارك الله شكراً لك أخي عبداللطيف دائما سباق للخير

وعليكم السلام بارك الله فيك استاذ عبداللطيف لك جزيل الشكر

قواعد المشاركة فى الموقع 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف. أخي الكريم يجب عليك إحترام قوانين المنتدى و خاصة المادة رقم1 الملونة بالأحمر موضوع مخالف يغلق.

تفضل لك ما طلبت ولكن لابد ان تلاحظ ان اعمدة مهمة العمل والبرنامج الأكاديمى والملتقى ولقاء خبير ليس بهم معادلات لأن هذه الأعمدة لا تحتوى على عمود العنوان بارك الله فيك تجربة2.xlsx

بارك الله فيك استاذى الفاضل وتسلم الايااااااااااادى يا رب

حياك الله - جزيت خيرا هو المطلوب

وين حقل "رقم الاذن" ، انا ما شايفه في النموذج!! ولو سمحت تعطينا الخطوات اللي تتبعها للوصول للخطأ 🙂 جعفر

تمت معالجة الامر (مع الترتيب الأبجدي للاسماء) Badil (1).xlsm

السلام عليكم هل كل ما تريده موجود في هذا الملف (مجرد قوائم)؟... إذا كان كذلك، بإذن الله سأقوم لاحقا بتطبيق ما قمنا بعمله على الملف الأول (كل قائمة نضع لها نموذجا من ورقة واحدة مع أكواد الطباعة) على هذا الملف الجديد... اصبر معنا والصبر جميل. بن علية حاجي

الاخ صلاح وبعد اذن الاخ على محمد على صورة من الكود ادخل على الرابط التالى به فولدر لطلبك

مشاركة مكررة يجب حذفها لقد تم الرد من قبل استاذنا الكبير سليم حاصبيا على هذا الرابط فى المشاركة الأخرى https://www.officena.net/ib/topic/88915-عمل-بودرة-حسابية-لكل-منتسب/

لك ما تريد _(تم تبديل الملف لان جحمه كبير جداً مما يعيق تنفيذ الماكرو) الكودين Option Explicit Sub FiND_DATA() Dim i%: i = 2 Dim arr, k%: k = 1 Dim H% Dim rg As Object Dim My_Table As Range: Set My_Table = Sijjel.Range("a1:L100") Salim.Cells.Clear Set rg = CreateObject("system.collections.arraylist") With rg Do Until Sijjel.Range("E" & i) = vbNullString If Not .contains(Sijjel.Range("E" & i).Value) And _ Application.CountIf(Sijjel.Range("E2:E" & i), Sijjel.Range("E" & i)) = 1 Then .Add Sijjel.Range("E" & i).Value End If i = i + 1 Loop Salim.Range("q1").Formula = "اسم المنتسب" '==================== For i = 0 To rg.Count - 1 Salim.Range("q2") = rg.Item(i) My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Salim.Range("Q1:q2"), _ CopyToRange:=Salim.Range("A" & k) H = Salim.Cells(Rows.Count, 5).End(3).Row k = H + 3 Next End With Salim.Range("q1:q2") = vbNullString Find_emPty End Sub '''''''''''''''''''''''''''''''''''''''' Sub Find_emPty() Dim lre%: lre = Salim.Cells(Rows.Count, "E").End(3).Row Dim arr1(), arr2() Dim i%, k%: k = 1 'Dim m%: m = 2 For i = 2 To lre If Salim.Cells(i, "e") = vbNullString Then ReDim Preserve arr1(1 To k): arr1(k) = Salim.Cells(i, "e").Row k = k + 1 i = i + 1 End If Next '====================================== Dim rg As Range Dim txt$ Dim f_addres$ txt = "اسم المنتسب" Dim m%: m = 1 Dim x x = Salim.Cells(Rows.Count, "E").End(3).Row Set rg = Range("E1:e" & x).Find(txt, after:=Cells(x, 5), LookIn:=xlValues, lookat:=xlPart) If Not rg Is Nothing Then f_addres = rg.Row + 1 Do ReDim Preserve arr2(1 To m): arr2(m) = rg.Row + 1 m = m + 1 If m > x - 1 Then Exit Do Set rg = Range("E1:e" & x).FindNext(rg) Loop While rg.Row + 1 > f_addres Else End If ReDim Preserve arr1(1 To UBound(arr1) + 1) arr1(UBound(arr1)) = x + 1 For i = 1 To UBound(arr2) Cells(arr1(i), 1).Resize(, 12).Interior.ColorIndex = 6 Cells(arr1(i), 6) = Application.Sum(Range(Cells(arr2(i), 6), Cells(arr1(i) - 1, 6))) Cells(arr1(i), 7) = Application.Sum(Range(Cells(arr2(i), 7), Cells(arr1(i) - 1, 7))) Cells(arr1(i), 8) = Application.Sum(Range(Cells(arr2(i), 8), Cells(arr1(i) - 1, 8))) Cells(arr1(i), 9) = Application.Sum(Range(Cells(arr2(i), 9), Cells(arr1(i) - 1, 9))) Cells(arr1(i), 10) = Application.Sum(Range(Cells(arr2(i), 10), Cells(arr1(i) - 1, 10))) Cells(arr1(i), 11) = Application.Sum(Range(Cells(arr2(i), 11), Cells(arr1(i) - 1, 11))) Cells(arr1(i), 12) = Application.Sum(Range(Cells(arr1(i), 6), Cells(arr1(i), 11))) Next '================================== End Sub '============================= الملف مرفق Badil.xlsm

تفضل ولكن ظهور مثل هذه الرسائل وذلك لإحتواء الملفات على فيروس فهذا منطقى لظهور هذه الرسالة فالطبيعى ان تفتح الملفات مباشرة بمجرد الضغط على الهايبر بارك الله فيك index2.xlsm

تفضل تجربة.xlsx

وعليكم السلام 🙂 التقرير لا يحترم فرز الاستعلام ، وانما يجب عمل الفرز في التقرير مباشرة 🙂 رجاء متابعة هذه المشاركة: جعفر

وعليكم السلام 🙂 في الكثير من الاحيان ، مادام الكود يعمل بطريقة صحيحة ، فلا علاقة لنا بكيفية عمله 🙂 تفضل: Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) Dim ctl As Control Dim MaxHeight As Long 'اعطاء قيمة اوليه لأطول حقل MaxHeight = 0 'نلف حول الحقول For Each ctl In Me 'اذا كان نوع الحقل نص ، ونحن في قسم التفصيل If TypeOf ctl Is TextBox And ctl.Section = 0 Then 'اذا كان طول الحقل اطول من القيمة الاوليه ، اذن قم بتغيير القيمة الاولية الى هذا الطول الجديد If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next 'نلف حول الحقول For Each ctl In Me 'اذا كان نوع الحقل نص ، ونحن في قسم التفصيل If TypeOf ctl Is TextBox And ctl.Section = 0 Then 'اعمل خط ، النقطة الاولى: يسار الحقل و وارتفاعه صفر 'والنقطة الثانية: يسار الحقل و وارتفاعه طول اطول حقل Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next ' نرسم خط ، النقطة الاولى عرض التقرير ناقص 3 تويب و وارتفاعه صفر 'والنقطة الثانية: عرض التقرير ناقص 3 تويب ، و ارتفاعه طول اطول حقل Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) ' نرسم خط ، النقطة الاولى: اقصى اليسار (يعني صفر) و ارتفاعه طول اطول حقل ' والنقطة الثانية عرض التقرير ناقص 3 تويب و ارتفاعه طول اطول حقل Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight) End Sub Private Sub Report_Page() 'تحميل خيارات الرسم عند فتح الصفحة Me.ScaleMode = 3 Me.ForeColor = 0 Me.DrawWidth = 3 End Sub . جعفر

ممكن تحذف فاصلة ، ثم تكتبها مرة ثانية ، فيطلع لك الخيارات 🙂 تفضل ، هذا الكود لفتح النموذج في وضع ورقة بيانات DoCmd.OpenForm "frmReturnedbyCus", acFormDS, , "[CusID]=" & Combo2 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 معظم الاعضاء يقرأون السؤال، وعلى اثره يرون مقدرتهم على الاجابة على السؤال، اما اذا يتطلب الموضوع ان انزل المرفق لأعرف السؤال، فـ 99.9% من الوقت ، انا لا انزل المرفق، وانتقل للموضوع التالي والآن نرجع الى سؤالك: بما انه لا يمكننا التأكد من نتائج برنامجك ، لأنه مربوط بميزان ، لذلك من الصعب الاجابة على السؤال !! لذلك، فالنجعل البرنامج يخبرنا بما يراه، وعليه نرى الطريقة الاصح لضبط الجواب 🙂 استعمل هذا الكود بدل الكود الذي ارفقته (هو نفس كودك، ولكن بتنسيق، وبه اوامر طباعة النتائج الى ملف MSComm_Listening.txt في نفس مجلد برنامجك) : Private Sub MSComm1_OnComm() On Error Resume Next Dim c As Variant Dim n As Integer Dim File_Path As String File_Path = Application.CurrentProject.Path & "\MSComm_Listening.txt" Open File_Path For Output As #1 If MSComm1.CommEvent = comEvReceive Then If comEvEOF Then MSComm1.InputLen = 1 Do While MSComm1.Input = "0" MSComm1.InputLen = 8 c = MSComm1.Input c1 = "" Print #1, "Do c=" & c & vbTab & "len(c)=" & Len(c) Print #1, For i = 1 To Len(c) cut = Mid(c, i, 1) Print #1, "For cut=" & cut If (IsNumeric(cut)) Or (cut = ".") Then Print #1, "Old c1=" & c1 c1 = c1 & cut Print #1, "New c1=" & c1 End If Next i Print #1, Label5.Caption = Val(c1) Print #1, "Val(c1) =" & Val(c1) Loop End If 'comEvEOF End If 'MSComm1 MSComm1.InBufferCount = 0 Close #1 End Sub . ثم قم بعمل الوزن بالطريقة الطبيعية ، ثم ارفق لنا ملف MSComm_Listening.txt ، واخبرنا كم يجب ان تكون النتيجة الصحيحة 🙂 جعفر

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

استاذى الفاضل جعفر الزر ٧ لا يعمل لدى وهو انشاء نموذج ارسال فما هو الحل شكرا لك

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

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

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