أبوبسمله

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

وعليكم السلام ورحمه الله وبركاته موجود معاينه قبل النشر اضغط ع الزر المعلم بالاحمر بالصوره بالتوفيق

ايوه شايف ده اخى العزيز موسى ولكن ما قصدته بالرجوع لمشاركه اخى العزيز ابوجودى فنظرتى للتعديل عالوضع الحالى كحقل واحد بتغير المتغير IDField بتغيير اسم المتغير مثلا strField من نوع Variant ليحمل اى نوع من القيم ثم نقوم بفحص المتغير اذا كان رقم او نص او تاريخ او نعم ولا وبعدها نكمل باقى الكود ولما ترجع true or false هل ساقوم بفحص النتيجه فالنموذج ايضا ام ماذا ؟ وسؤالى بقا لاخى العزيز @ابو جودي هل الفكره اللى قصدتها ع نوع واحد ام بكتابه روتين عام يشمل ( اذا كان رقم او نص او تاريخ او نعم ولا ) لكل الحالات فردى او ثنائى او ثلاثى او رباعى ؟ وفقكم الله واعانكم لما فيه كل خير تقبلوا تحياتى ومرورى ومتابع

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

جميل استاذ موسى @Moosak ولكن ع ما يبدوا انك لم تنتبه الى باقى السؤال من اخى ابوجودى اعانك الله ع الكود وفى انتظار ابداعتكم وفقكم الله وان شاء الله فى ميزان حسناتكم بالتوفيق اخوانى

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

واضافه الى ما سبق ولكن باستخدام استعلام فرعى بداخل الاستعلام qryBySubQry انظر الحقل فى وضع التصميم RSabek RSabek: (SELECT nz(Sum([Daen]),0)-nz(Sum([MDeen]),0) FROM tblName WHERE (((NewtblName.SName)=[SName]) AND ((NewtblName.SDate)>[sdate]))) بالتوفيق TestRseedSabk_BySubQry.accdb

وعليكم السلام وبارك الله فيكم والدى العزيز ابويوسف وجعل ماتقدمونه لاخواننا فى ميزان حسناتكم 🌹

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير افتح الاستعلام فى وضع التصميم واقف على الحقل RSabek هتلاقى موجود به داله DSum RSabek: Nz(DSum("[daen]-[mdeen]";"tblName";"SName='" & [SName] & "' And [id]<" & [id]);0) جمع حقل الدائن ناقص المدين من الجدول بشرط الاسم يكون مساوى للاسم بالاضافه لرقم العمليه اللى هو الترقيم التلقائى اقل من الرقم اللى قبله , ويمكن استعمال التاريخ بدلا منه وفى حقل Rseed Rseed: ([RSabek]+[Daen])-[Mdeen] قمنا بجمع الرصيد السابق + الدئن ناقص المدين ومرفق تعديل للمثال باستخدام التاريخ بدلا من الترقيم التلقائى RSabek: Nz(DSum("[daen]-[mdeen]";"tblName";"SName='" & [SName] & "' And [SDate]<" & Format([SDate];"\#mm\/dd\/yyyy\#"));0) بالتوفيق TestRseedSabk_ByDate.accdb

السلام عليكم مشاركه مع والدى العزيز @محمد حسن المحمد جزاه الله كله خير 🌹 بالنسبه للاده Kutools For Excel كما اذكر انها يجب شرائها بعد الفتره التجريبيه المسموحه يمكنك تحميل الاداه من الرابط التالى ولا تحتاج تفعيل وجزاه الله خيرا استاذ على بالتوفيق

جزاك الله خيرا اخى واستاذى محمد @ابو جودي 🌹 من فضلك ارسل لى

السلام عليكم اخى الفاضل @abouelhassan اعذرنى لعدم التعديل على مثالك ولكن اليك مثال ان شاء الله يوضح لك الطريقه للحصول ع الرصيد السابق انظر للصوره ثم اطلع ع المثال المرفق بالتوفيق TestRseedSabk.accdb

اتفضل احد هذه الموضوعات وبالبحث ستجد اكثر

عن نفسى اتعلم من اخوانى واساتذتى هنا وبالفريق العربى للبرمجه بالبحث والقرائه ومحاوله مساعده اخوانى فهذا اكثر مايفيدنى فالتعلم والتجارب العمليه فلست سوى هاوى يحب البرمجه وقواعد البيانات واستفيد بها فى عملى فقط بمعرفتك الكثير عن الكود فحاول توظيفه قدر ما استطعت والمحاوله الدائمه والبحث قبل السؤال فهذا سوف يزيد من معلوماتك وخبرتك فالتعامل مع الكود وبالنسبه للوحدات النمطيه فما هى الا الاكواد التى تعرفها وبمرور الوقت والاطلاع والممارسه سوف تقوم بانشاء الوحدات التى تريدها فى عملك ويوجد بالمنتدى بعض المواضيع التى تساعدك بالبدء سوف احاول ان اضع لك روابطها بالنسبه لما قمت بعمله فانه استعلام فرعى بداخل الاستعلام يمكنك اخراجه كاستعلام ويمكن مع كثره البيانات تحتاج لاخراجه كاستعلام عادى ثم الربط بينهم In ( SELECT MainTable.InvoiceNumber FROM MainTable INNER JOIN SubTable ON MainTable.MainSerialNumber = SubTable.SubID WHERE (((SubTable.DescriptionMaterial) Like "*" & 'خصم' & "*")); ) انظر المرفق قمت باخراج الاستعلام الفرعى لاستعلام عادى اسمه q ثم قمت بادراجه بداخل الاستعلام الاساسى والربط بينهم والحصول ع نفس النتيجه وع ما اعتقد انه سيكون اسرع من وضعه كاستعلام فرعى مع كثره البيانات بالتوفيق Rubber Salse.accdb

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

السلام عليكم اتفضل اخى ان شاء الله يكون ما تريد بالتوفيق Rubber Salse.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا خيرا بالنسبه للتحكم فى حجم الخط للبلد Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me.txtFull = "<font size=4><b>" & Me.devicename & "</b></font>" Me.txtFull = Me.txtFull & " " & "<font size=2>" & Me.country & "</font>" End Sub وغير الارقام لتصل للرقم المناسب فى برنامجك اما عن شرح الكود فهو ببساطه لدمج الحقلين devicename و country مع بعض ولكن استخدمنا اولا الحقل من نوع Rich text كما شرحنا بالسابق من اجل استخدام تنسيقات الهتمل للتحكم فالخط من حيث الحجم وخلافه ويلزمك الاطلاع ع لغه الهتمل للمزيد من التحكم بالتوفيق

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

السلام عليكم ورحمه الله وبركاته كل عام وانتم والامه الاسلاميه بخير مشاركه مع معلمى العزيز وشيخنا الجليل @ابوخليل جزاه الله خيرا وبارك الله لنا فيه وفى جميع اخواننا واساتذتنا الافاضل الذين نتعلم منهم كل يوم 💐 نعم يمكن ذلك ولكن ليس بالطريقه العاديه ولكن باستخدام الحقل Rich text ولفعل ذلك ادرجنا حقل نص عادى ومن التبويب بيانات ومن خاصيه تنسيق النص نختار نص منسق وفى جزء التفصيل وعند حدث عند التنسيق وضعنا الكود التالى Me.txtFull = "<font size= 4><b>" & Me.devicename & "</b></font>" Me.txtFull = Me.txtFull & " " & Me.country وطريقه عرض التقرير معاينه قبل الطباعه بالتوفيق formattext.accdb

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

نعم هذا صحيح بيضاء لاننا نتعلم منك اخى ومعلمى وشبخنا الجليل @ابوخليل ومن اخوانى واساتذتى الافاضل اجمعين جزاكم الله عنا كل خير إن لم تكن شطاره فإنها مهاره معلمى العزيز اعلم انك متابع لهذا المشروع ومعلمى العزيز جعفر له تعقيبات عليه ايضا جزاكم الله عنا كل خير لكم منى اجمل وارق التحايا وجزاكم الله عنا كل خير 💐

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى العزيز محمد @ابو جودي جزاه الله كل خير 💐 اه ممكن اتفضل قمت بالتعديل على مثال اخى محمد سداد (2).accdb

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

وعليكم السلام اتفضل اخى @samisalim ان شاء الله يكون ما تريد بالتوفيق ‏‏‏‏devicesdb12 -9_00013_1.accdb

بالتوفيق