Access XP

إليك القاعدة بعد التعديل Update.rar

الملف بعد التعديل الكود للورديات.rar

يا جماعة : أريد ردا .... حتى وان كان ( لا أعرف ) أو ( لا يمكن ) أو ( مستحيل ) المهم رد و بلاش طناش

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

أختي الكريمة سأفترض بأن النموذج الفرعي لديك اسمه MuSubForm ضعي في حدث ( عند النقر ) زر الأمر الكود التالي me.MySubForm.requery

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

هل من حل أو فكرة ؟؟؟

حل سريع ومؤقت db.rar

أخي العزيز أقترح عليك أن تكون حالة الموضوع في حقل واحد بالجدول ( جاري - منتهي - مؤجل ) ومن ثم تسهل عليك عملية الجمع

يبدو أنني استعجلت عندما وصفته بالعمل الرائع لأن كلمة رائع لا تفي هذا العمل حقه ... إنه فعلا هدية رائعة من مشرف رائع أخي مهند وفقك الله وزادك علما ونورا الملاحظات : 1 / يفشل البرنامج في نسخ نموذج User Logon 2 / البرنامج يعطي بأنه قد تم نسخ أو إضافة نموذج اسمه U…

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

هذا مثال للمشكلة التي أرجو أن أجد لها حلا لديكم ... مع الشكر الجزيل Report.rar

المثال بعد التعديل aa.rar

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

أرجو أن يكون هذا ما تريد aa.rar

حمدا لله على سلامته ... وما يشوف شر بإذن الله ، مع تمنياتي له بالشفاء العاجل

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

Private Sub Check1_AfterUpdate() If Me.Check1 = -1 Then Me.Check2.Enabled = True Me.Check3.Enabled = True Else Me.Chech2.Value=0 Me.Chech3.Value=0 Me.Check2.Enabled = False Me.Check3.Enabled = False End If End Sub

Private Sub Check1_AfterUpdate() If Me.Check1 = -1 Then Me.Check2.Enabled = True Me.Check3.Enabled = True Else Me.Chech2.Value=0 Me.Chech3.Value=0 Me.Check2.Enabled = False Me.Check3.Enabled = False End If End Sub

Private Sub Check1_AfterUpdate() If Me.Check1 = -1 Then Me.Check2.Enabled = True Me.Check3.Enabled = True Else Me.Chech2.Value=0 Me.Chech3.Value=0 Me.Check2.Enabled = False Me.Check3.Enabled = False End If End Sub