شامل2

السلام عليكم الاستاذ ابو خليل وكبف ذلك؟

السلام عليكم اخينا الوحدة النمطية تحوي كلمة سر

للرفع

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

السلام عليكم سؤالي يحتوي على طلبين بعد ان تم اجراء التعديلات على مثال بسيط لبرنامج مبيعات ومشتريات مع بعض الاخوة في المنتدى توجد بعض المشاكل ومنها المفتاح (تراجع) يعمل بشكل غير جيد وفائدته عند ادخال عدد (كمية) لغرض البيع ثم التراجع عن الرقم زيادة او نقصان فان هناك مشكلة تحدث في الحقل الباقي من المادة سؤالي هنا؟ هل يمكن معالجة هذه الحالة؟ واذا كان لابد فكيف يمكن جعل تحديث بيانات هذه القائمة او أي قائمة اخرى تحدث عند معاينة القائمة(عند الطباعة) اي الضغط على مفتاح طباعة بحيث يعطينا الفرصة للتراجع عن عدد المواد التي تم بيعها بشكل مناسب . ونستغني عن المفتاح ( تراجع) نهائيا مثال2.rar

السلام عليكم اخي العزيز بحار الاكسس نرجو تزويدنا بنسخة غير محمية للفائدة

السلام عليكم اخي العزيز فكرة البرنامج رائعة هل يمكن اجراء التعديل الاتي: - اضافة اسماء المراقبين مع مدارسهم الاصلية. - اضافة تقرير يعرض فقط اسم المدرسة و رئيس اللجنة والمراقب الاول - اضافة تقرير فقط باسماء المراقبين من كل مدرسة بعد ان يتم ادخال مدارسهم

السلام عليكم جمعة طيبة مباركة شكرا للتوضيح

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

يمكن انشاء حقل جديد في استعلام وتضع المعادلة

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

السلام عليكم اشكر اخي العزيز ياسر خليل أبو البراء الحمد لله تم التغلب على المشكلة وايجاد الحل باستخدام الصيغة IF(B4<573000;CalTh(B4;C4;D4;E4;F4);CalTh2(B4;C4;D4;E4;F4))= وجاري العمل لاكمال الدالة الثانية.

السلام عليكم هل من سبيل الى طريقة في ايجاد الخطأ؟

هذا الملف المرفق الورقة1 عندما يكون الراتب 5730000 1.rar

لا زالت نفس المشكلة؟

السلام عليكم الاخ العزيز كنت على انتظارك منذ 4 ساعات عملت هذه الدالة Function CalTh(a, x, y, d, e) As Variant If a < 566000 Then بالاعتماد على قيمة a يتم تنفيذ الشروط التي تاتي بعد then وتعمل بالشكل الصحيح وعندما لا يتحقق الشرط المفروض يتم استدعاء الدالة وكما في : Else Call CalTh2 End If End Function علما ان CalTh2 هي دالة ثانية Function CalTh2(a, x, y, d, e) As Variant ولكن لا يتم استدعائها السلام عليكم اخي العزيز يظهر هذا الخطأ

السلام عليكم ظهرت هذه الرسالة في اثناء كتابة دالة الفيجوال بيسك هل يمكن انشاء دالة اخرى واستدعائها وفق شرط في الدوالة الاولى. نفرض ان الدالة الاولى اسمها Function CalTh(a, x, y, d, e) As Variant هل يمكن عمل دالة ثانية باسم Function CalTh2 وجعل الشرط وفق قيمة a

السلام عليكم الاخ ياسر خليل أبو البراء هل العمل الذي قمت به الان هو صحيح؟ لانه يعطي نتائج صحيحة؟

السلام عليكم الاخ ياسر خليل أبو البراء شكرا لك على ملاحظتك القيمة والرائعة هل يمكن اختصار الكود السابق الى أقل من هذا العدد من الاسطر؟

السلام عليكم وضعت سابقا ملف لايجاد الضريبة حسب الراتب الاسمي وفد بدأت بوضع دالة خاصة لذلك ولكن حدث خطأ في هذه الحالة اتمنى معرفة الخطأ 1 - Copy (2).rar

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

الاخ ياسر خليل أبو البراء المدخلات توجد في المثال المرفق هو الراتب الاسمي لان الضريبة تحسب على مقدار الرتب

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

الاخ العزيز ياسر خليل أبو البراء انا أسأل كيف تم الحصول على تلك النتائج ؟

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