طاهر الوليدي

لم تصنع شياء 33333.rar

غير اسلوب السؤال الى كود ارسال الرقم السري الى الايميل عند نسيانه بنفس طريقة المواقع

وكذالك نريد امر حذف بيانات بين تاريخين محددين

اخواني العزاء بارك الله فيكم وجزاكم الله عني خير ولمن ساعدني ويساعدني دائما الموضوع قد سويت عدة عمل بنفس هذا ولكن هذه تعبتني من امس لليلا مازبطت معي كومبو رقم 1 باسم الحساب رئيسي وكمبو رقم 2باسم البنود وهو فروع الحساب اريد عند ختيار بنك في 1 تظهر اسماء البنوك في الكمبو رقم 2 فقط وعند ختيار صندوق يظهر اسم صندوق1 وعند اختيار مسيرات مالية تظهر بنودها عدد ها 34 بند وهكذا مرفق صورة والمثال33333.accdb 333.rar

ممتاز الله يبارك فيك هل ممكن نقوم بتلوين الخط bold ugn الرسالة الى لون احمر او اي لون مثلا

نزل برنامج فك الضغط زابيا الى جانب ارار

تم وضع دالة اجمالي الصفحة السابقة اجمالي الصفحة الحالية اجمالي جميع الصفحات بالاضافة الى التفقيط بدمج الوحدة النمطية التي افضلها اتمنى ان يكون هذا هو طلبك دعوتكم sum.rar

شكرا جزيلا استاذي الفاضل كتب الله اجرك

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

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

موجود ممكن ترسل المقطع نطبقها ونعيدها لك

جميل جدا هل ممكن عملها في التقارير والنماذج وكيف

شوف اذاكان هذا قصدك 123.rar

شكرا استاذ شيفان دائما للخير سباق جزاك الله خيرا

ممتاز

العمل ممتاز جدا بارك الله فيك ولكن نحو تطوير ه ياحبذا جعل التحديد عدد السجلات الان تكتب 5 فيختار من 1-5 ولكن اذا اردت سجلات من 6-8 صعب فيتكرر 1-8 نفس الاسماء في التقرير الاخير واذا السجلات كثيرة صعب ممكن وضع رقم امر الصرف او رقم الفاتورة افضل من عدد السجلات بالا ضافة الى وضع خيار تبديل الصورة في خلفية التقرير من زر

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

طيب كيف اذا كان عام لجميع المراحل و المسامحة على كثرة لا اسئلة

شكرا استاذ صالح وجزيت خير وبارك الله فيك هل استطيع اعملها عام لجميع المراحل ام ان كررها لصف الاول الى الثاني من الثاني لثالث من الثالث لرابع وهكذا حتى التخرج

هل يوجد حل لنقل جميع الطلاب الناجحين من الصف الاول الى الثاني بشرط كلمة نجاح

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

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

شاهد الشرح هذا

وكيف احدف بيانات شهر محدد في جدول يحتوي على عدة بيانات لعدة اشهر على سبيل المثال حذف بيانات من تاريخ 1-12-2017 الى 31-12-2017 م او اي فترة يتم ادخالها

هنا بداية تصميم وحدة نمطية من يكمل الباقي علما انها احدى مشاركات للاستاذ محمد طاهر السابقة و يتناول ثلاث امور هي الأول الجمع لكل صفحة على حده و الثاني نقل مجموع الصفحة إلى التي بعدها ( ما قبله ) وفى آخر صفحة محموع الصفحات كلها الامر الثالث هو استدعاء اي قيمة من اي حقل بشرط تاريخ معين او غيره . بالنسبة الامر الأول من السؤال فهذه إجابته : كود لحساب مجموع رقمي لكل صفحة في تقرير ضع الكود التالي في الوحدة النمطية الخاصة بالتقرير: Option Compare Database Option Explicit Public PageSum As Double Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) PageSum = 0 End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) PageSum = PageSum + Reports![اسم التقرير]![اسم الحقل المطلوب جمع بياناته] End Sub أنشى في مقطع تذييل الصفحة مربع نص وسمه txtPageTotal واجعل مصدر عنصر التحكم له : =[ PageSum] بخصوص سؤال الشق الثاني فقد قمت بتجارب حتى وصلت لما أظنه جواب له : 1- في مقطع رأس الصفحة أنشئ مربع نص واجعله مباشرة فوق حقل المبلغ الموجود في مقطع تفصيل واجعل مصدر مصدر عنصر التحكم له : =[PagePreviousSum] 2- في مقطع تذييل الصفحة أنشئ مربعي نص أحدهما باسمtxtPageTotal والآخر باي اسم لايهم ، واجعل مصدر عنصر التحكم للأول : =[PageSum] وللثاني : =[Total]+[txtPageTotal] وفي الوحدة النمطية الخاصة بالتقرير ضع : Option Compare Database Public PagePreviousSum As Double Public PageSum As Double Public Total As Double Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) PageSum = 0 If Me.Page = 1 Then PagePreviousSum = 0 Total = PagePreviousSum End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) PageSum = PageSum + Reports![اسم التقرير]![اسم حقل المبلغ] PagePreviousSum =اسم مربع النص ' ضع اسم مربع النص بي [] اذا كان به مسافة End Sub لقد جربت الكود على 21 صفحة مليئة بالأرقام وتنقلت بينها وكانت النتيجة صحيحة . بالنسبة لمربع النص المسمى txtPageTotal فهو يظهر مجموع المبالغ في الصفحة دون أن يجمع معها المجموع السابق فإذا كنت في غير حاجة إليه فقم بإخفائه