walid7799

احسنت وجارى التجربة جميل جداً ولكن يبقى الاكسس مفتوح بعد الاغلاق

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

تم تعديل الكود فى قاعدة if ليصبح كالتالى

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

نماذج للشرح

اشكر لحضرتك تعبك واهتمامك واليك المرفق ويمكن فتح المناقشة للوصول لبعض الحلول فى بعض المشاكل اذا لم تمانع Bank.rar

الاخوة الاساتذة تم قراءة الموضوع أكثر من 14 مرة ولم يجب احد برجاء من السادة خبراء المنتدى ابداء الرأى وشكراً

افتح form1 برنامج الأرشفة الالكترونية1.rar

ممكن تشرح انت عايز البحث يعمل ازاى ؟

اليك تصحيح البحث قوائم مرتبطة برنامج الأرشفة الالكترونية1.accdb

If MsgBox("هل تريد الحفظ", vbYesNo, "خطابات الضمان") = vbYes Then Application.SetOption "Confirm Record Changes", False If (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.value > N2]) And [BA1 = "زيادة"])) Then N3 = BA5 - N2 N4 = N3 + N2 BA19 = N4 Forms![ShowNew1]![BA19] = N4 Forms![ShowNew1]![N2] = N4 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True ElseIf (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.Value < N2]) And [BA1 = "تخفيض"])) Then N3 = N2 - BA5 N4 = N2 - N3 BA19 = N4 Forms![ShowNew1]![BA19] = N4 Forms![ShowNew1]![N2] = N4 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True ElseIf (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.Value = N2]) And [BA1 = "رد"])) Then N3 = BA5 - N2 BA19 = N3 Forms![ShowNew1]![BA19] = N3 Forms![ShowNew1]![N2] = N3 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True MsgBox "تم الحفظ بنجاح" ElseIf IsNull(([BA1] Or [BA3] Or [BA17] Or [BA22] Or [BA21])) Then MsgBox "أكمل البيانات الاساسية قالناقصة ايمة التسوية - رقم الخطاب - تاريخ الاصدار - تاريخ السريان" End If End If البرنامج تعتبر الجزء الاخير من القاعدة كأنه لم يكن ما الخطأ فى الصيغة

السلام عليكم ورحمة الله وبركاته الاساتذة الكبار وأصحاب الخبرة فى المنتدى الرائع أوفيسنا جعله الله منارة للعلم بحث كثيرا عن موديول أو كود جاهز على المنتديات المهتمة بالبرمجة واللغات عن كود لتحويل مجلد فى مدلد ODF ولكن فشلت من كثرة البحث هل يمكن عمل مديول لتحويل مجلد PDf إلى صور مع تغيير الاسم وامسار وشكراً لحسن تعاونكم مستقبلاً

جزيل الشكر ولاكن انا جربت كل اشكال الكود مع تقسيمه بمعنى if text1 < text2 then elseif text1 > text2 else endif وايضاً وضعت له Dim رقم طبعاً ..... ولكن فشلت ايضاً فكل الاكواد يتجاهلها الاكسس وكأنها ليست مكتوبة مع أن الكود صحيح وانا متاكد فهل من اهل خبرة يجيب لماذ هذا الكود بالاخص يتم تجاهله مع تنفيذ جميع اوامر المعادلات الحسابية الاخرى

الحقول جميعها أرقام شكرا للاهتمام من يشكر فأنما يشكر الله

السلام عليكم ورحمة الله وبركاته أخوتى واحبائى اعضاء منتدى أوفيسنا الاعزاء أفيدونا يا أهل الخير هل الكود يكون if text1 <> text2 then ........ else ...... end if ما الخطأ فى هذا الكود وليه الاكسس مش بينفذ الأمر لو الكود صحيح ؟

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

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

أسف على هذا الخطأ وجارى تدراكه جعلك الله منارة للعلم وجزاك خيراً عنا وزادك بسطة فى العلم والعقل وأكثر

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

أتمنى ان أكون لا أطيل على حضرتك لكنك أخ عزيز أحبك الله الذى احببتك فيه هبعت لحضرتك أخر تحديث للبرنامج لألقاء نظرة والتعليق بما يليق بعلم حضرتك New2.rar

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

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

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

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

اليكم البرنامج كامل نسخ كاملة ليست مكتملة للإفادة من السادة الخبراء على منتدى أوفسنا يمكن فتح أول مشكلة وهى فى النموذج الرئيسى (Bank1) به ثلاث Text للحصول على المجموع (F1 - F2 - F3) والمشكلة تتلخص فى إذا أحدى الثلاثة فارغة دون قيمة لا يتم احتساب القيم بطريقة صحيحة ثانى مشكلة فى نموذج البحث (Form2) حيث لا يتم ايجاد السجل إلا إذا تم مسح ما تبحث عنه فى خانات البحث . وتتوالى المشاكل والرجاء من الله ثم منكم للمساعدة فى حل أول مشكلة ضرورى والباقى يمكن حله فيما بعد Bank.rar فى زر تحديث القيمة الموضحة بالصورة لم أجد بديل لتحديث الناتج الجديد إلا من خلال هذا الزر ونسأل الله أن يفتح علينا فتحاً عظيماً وأياكم