كل الانشطه

وعليكم السلام ورحمة الله وبركاته الاوفيس لو كان ٦٤ بت قم بازالته وتنصيب اوفيس ٣٢ بت ثم اعمل ريجستر للاداه مره اخري

عندما اقوم بملء بيانات التلاميذ لا تظهر اسماء التلاميذ في باقي الصفحات المرتبطة بها التقرير اليومي لمستشار التربية - ثانوي - 11.5.0.rar

@منتصر الانسي مفترض الرصيد التراكمي يزيد لما تكون في فاتورة و ينقص عند وجود دفع في حالة بتحصل لمن تكون في عدة رحل في نفس اليوم وبيحصل انه اي رحل في نفس اليوم بتتجمع مع بعض والصح اي رحلة تكون في صف مثلا عندك المورد رقم 4 Pertonour عندة عدد 2 رحل يوم 12/10 حط كل وحدة في صف 150300000 و 143550000 عمل ايه في الاول جمعهم الاتنين مع +153000000=446850000 الصح الطبيعي انه 153000000 + 150300000=303300000 +143550000=446850000 +147150000=594000000 وهكذا اذا عندي دفع يخصم كل عملية تكون لوحدها

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

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

وعليكم السلام ورحمة الله وبركاته .. بدايةً أهلاً وسهلاً بك أخي الكريم في المنتدى ، ونتمنى أن تجد ما تبحث عنه دائماً . وطبعاً ذلك يتحقق أولاً باتباع قواعد وسياسة المنتدى للحصول على نتيجة لطلبك ؛ بحيث يكون العنوان ذو شرح مختصر يدل على المشكلة . ومن ثم التوضيح في الطلب داخل المشاركة دون البخل ( ) في الكلمات على أصدقائك وأخوتك هنا . وكي تدعم شرحك وجوب وضرورة ارفاق ملف بسيط ليتم التعديل عليه بعد رؤية المشكلة على أرض الواقع .

أخي طاهر ، هل هذا ما تريده ؟؟ إذا كان هو فعلاً ، فانظر ماذا سنفعل . أولاً انشاء مربع نص ولنفترض اسمه = txtRowNumber ، وسنجعل قيمته أو مصدر بياناته = "=1" ليقوم بعد السجلات الحالية في التقرير . ( الإضافات حتى لا نقوم بتعديل أي تركيبة في تقريرك وللتوضيح طبعاً ) ثانياً إنشاء مربع نص أيضاً للتاريخ ولنفترض اسمه = txtAutoDateDisplay . وسنجعل له قيمة مصدر بيانات بناءً على الاستعلام مصدر التقرير = =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[Auto_Date],"") حيث الهدف من فكرتي هو عدّ السجلات بناءً على مربع النص txtRowNumber وقسمتها على 2 للتوسيط وبالتقريب طبعاً حتى لة كان عدد السجلات 10 مثلاً فسيكون العرض في السجل 6 مثلاً . ثالثاً إنشاء مربع نص أيضاً للرقم وسأفترض اسمه = txtEmployeeIDDisplay . وسيكون له قيمة مصدر بيانات = =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[EmployeeID],"") وطبعاً قمت بإخفاء الحقول الأصلية . ولكن عليك تجربة الفكرة على سجلات كثيرة للتأكد من الفكرة . المرفق لتجربته :- Z1.zip

ارجو توسيط الرقم وتاريخ التسليم فقط اما الخطين z1و z2 تمت معالجتهم

السلام عليكم عندي ٣ جداول راس الفاتورة و جدول الوارد وجدول المنصرف مربوطين برقم الفاتورة عاوز اعمل كارت الصنف بحيث يظهر امتى وارد وامتى انصرف هل فيه حل لما اعمل فلترة يظهر ف الجدولين

شكرا استاذي عبدالله بشير عبدالله وبارك الله فيك على المساعدة

كنت افكر في طلباتك السابقة .. حول تاريخ الصلاحية وقد شرحت هناك الطريقة المثلى لتتبع المنتجات حسب تاريخ نهاية الصلاحية واقترحت عمل جدول وسيط يساعد في تطبيق نظام ( FIFO) الداخل اولا يخرج اولا وبما انه لا يهمك التدرج .. والمسؤلية ستكون على مسؤول المخزن لذا يمكننا حصر طلبك وتحقيقه بشكل عادي خطوات التنفيذ : 1- يجب عمل حقلين في جدول الاصناف : أ- سعر الصنف ( حسب الوحدة ) .. ب- نسبة الضريبة% في جدول التفاصيل ( النموذج الفرعي ) : ( الوارد فقط) - عند اختيار الصنف ينزل : السعر المفرد آليا _ نسبة الضريبة - يدخل العدد ليظهر مجموع السعر شاملا الضريبة - يدخل تاريخ نهاية الصلاحية يدويا يتاح للمستخدم تعديل سعر الصنف يدويا .. ويمكنه لاحقا تصحيح السعر في جدول الأصناف _____ في نموذج الفرعي ( الصادر ) لا يلزم ظهور الاسعار .. وعند عملية اخراج صنف منتهي تظهر رسالة تنبه بذلك والمستخدم حر في اكمال الاجراء او الإلغاء ________ اذا الشرح وافي ومفهوم وراق لك .. يمكنك رفع المرفق بعد عمل الفقرة 1 ( لجميع الاصناف)

السلام عليكم استبدل هذا Private Sub UserForm_Initialize() Call showinlistbox End Sub بهذا Private Sub UserForm_Initialize() TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value) Call showinlistbox End Sub TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value)

اريد ان يظهر أخر رقم في العمود A في الخانة المطلوبة والموجدة في نموج الإدخال حسب الملف المرفق ... وشكرا https://www.mediafire.com/file/fefzkr31kfps51d/برنامج-تسيير-الموظفين2028+__.xlsm/file

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

عملت الطريقة و وضعت ما قاله و لكن لم تنجح العملية هل هناك من عملية في vba لاستخراج RichTextBox

فضــــــلا الرجاء التعديل باضافة الخصائص التالية: زيادة: الحقل Prix_achat_final= ( (ثمن شراء المنتوج × قيمة الضريبة على المنتوج ) )÷100 + ثمن الشراء ويكون ظاهر في النموذج الفرعي في نموذج frmInvoice زيادة زر "حفظ" يجب ان تكون جميع الحقول مملؤة في هذا النموذج والنموذج الفرعي التابع له SubformInvoiceDetail إضافة الأزرار في نموذج frmInvoice : الأول- الأخير - حذف - زيادة شرط الكمية المخرجة من المخزن في النموذج الفرعي يجب أن تكون اكبر من الصفر - حقل الكمية المتوفرة في المخزن والموجود في النموذج لا تظهر أثناء التصفح بالأزرار وتظهر فقط في حالة الضغط على زر جديد : أي عند اضافة اخراج اتلاف سلعة الرجاء المساعدة والتوجيه وبارك الله فيكم stock7 .rar

رغم اني لم افهم لماذا يتم احتساب رصيد تراكمي لرصيد تراكمي ولكني عدلت الملف للحصول على النتيجة المطلوبة تحياتي QuickBooksStyle.rar

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

جزاكم الله خيرا وأحسن إليكم 🏵️ آمين يارب العالمين 🤲 💐

قمت بإضافة البيانات واعدت فتح التطبيق وظهر بشكل طبيعي كما بالصورة لم يكن هناك اي كميات في النسخة التي قمت بتنزيلها من موضوع الأخ @ابوخليل تم معالجة هذا الأمر في المرفق تحياتي stock6 .rar

أخي الفاضل .. يتم اختيار أفضل إجابة للإجابة التي حققت لك المطلوب ، وليس لإجابة صاحب الموضوع . لذا تم نقل الإجابة للأستاذ @عبدالله بشير عبدالله جزاه الله خيراً .

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

السلام عليكم و رحمة الله و بركاته عندي اوفيس 365 و ينقصني بعد الاضافات في VBA و خاصة ملف RICHTX32.OCX لانني لم اجد في toolbox الاداة هذه و اسمها RichTextBox بارك الله فيكم

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

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