ruan

اطراء افتخر به لكوني مبتدأ نوعا ما في الاكسيس .. فهل من الممكن بعد اضافات على البرنامج ارسله لك على الايميل الخاص بك لتعديل على ما يجب التعديل .. مع خالص الود

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

استاذ محمد طلب اخير ... ارجوا ان تلقي نظره على الكود في زر التسديد في نموذج التسديد ... لا اعرف اين الخلل.. الشكر موصول للاستاذ قاسم ... If IsNull([نوع العمله]) Then MsgBox ("خانة نوع العمله فارغة يرجى املائها") DoCmd.CancelEvent Else If IsNull([تاريخ التسديد]) Then MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها") DoCmd.CancelEvent Else If IsNull([التسديد]) Then MsgBox ("خانةالتسديد فارغة يرجى املائها") DoCmd.CancelEvent Else If [التسديد] > [نص28] And [نوع العمله] = "دولار" Then MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار") DoCmd.CancelEvent Else If [التسديد] > [نص30] And [نوع العمله] = "دينار" Then MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي") DoCmd.CancelEvent Else Dim r r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير") If r = vbYes Then DoCmd.Close acForm, "التسديد" DoCmd.Close acForm, "نموذج1" DoCmd.OpenForm "نموذج1" MsgBox ("تم ادخال المبلغ بنجاح") Else If r = vbNo Then MsgBox ("تم التراجع عن ادخال المبلغ") DoCmd.CancelEvent End If End If End If End If End Sub alruan.rar

اشكرك شكرا يعجز اللسان ان يحصيه .. الله يوفقك دينا واخره ...

بقت مشكلة الحذف في نموذج1 .. والتفقيط بالسبة لعملة الدولار alruan.rar

شكرا اسناذ قاسم

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

السلام عليكم ... عندي برنامج ديون احتاج اضهار معلومات الزبون في نموذج الزبائن2 ... وكذلك مجموع الديون المترتبة على الزبائن في نموذج1 .. مع خالص الشكر الديون.rar