العراقي المدلل

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

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

يا اخوان لايوجد حل

اخوان الاعزاء ارجو بيان الخطاء الذي بالكود الكود لا يحذف

اشكرك اخي العزيز جربت هذا الكود المرفق يطلع رسالة بانه تم حذف ولاكن لا يحف فارجو بيان الخلل اكون ممنون الجدول اسمه الرئيسي والنموذج الفرعي الذي مراد مسح خاناته اسمه al Private Sub الرتبة_Change() Dim de As String On Error Resume Next de = MsgBox("حذف العلاوات القديمة ", vbYesNo + vbInformation, "تنبيه") If de = vbYes Then DoCmd.RunSQL "delete*form al الرئيسي.تاريخ استحقاق العلاوة الثانية,الرئيسي.تاريخ استحقاق العلاوة الاولى WHERE (((الرئيسي.تاريخ استحقاق العلاوة الاولى) Is Null)) OR (((الرئيسي.تاريخ استحقاق العلاوة الثانية) Is Null));" DoCmd.Requery End If End Sub Private Sub الرتبة_Change() Dim de As String On Error Resume Next de = MsgBox("حذف العلاوات القديمة ", vbYesNo + vbInformation, "تنبيه") If de = vbYes Then DoCmd.RunSQL "delete*form al الرئيسي.تاريخ استحقاق العلاوة الثانية,الرئيسي.تاريخ استحقاق العلاوة الاولى WHERE (((الرئيسي.تاريخ استحقاق العلاوة الاولى) Is Null)) OR (((الرئيسي.تاريخ استحقاق العلاوة الثانية) Is Null));" DoCmd.Requery End If End Sub

اشكرك اخي العزيز بس يار يت توضح الكود اكون ممنون منك

ارجو المساعدة يا اخوان

السلام عليكم ارجو المساعدة منكم يا اخواني الاعزاء في حذف بعض الجداول بشرط عند تغيير قيمة مربع سرد عندي جدول متكون من 120 خانة الجميع في نموذج واحد واخذت 15 خانة منه في نموذج اخر من نفس الجدول المطلوب عند تغيير قيمة في مربع سرد اسمه رتبة يقوم بحذف الخانات الموجودة في النموذج الثاني المتكون من 15 خانة

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

السلام عليكم اخواني الاعزاء ارجو المساعدة في منع التكرار في نموذج في نوع السلاح و الوحدة اي لا يتكرر الاثنان معا يعمي مثل ل1 مسدس لا يتكرر مرة اخرة 1.rar

اشكرك اخي جنت اجرب وما انتبهت لها صار ممنون منك جزاك الله كل خير

اشكرك اخي الغالي لاكن اخي الزيادة بغد موجودة المطلوب اذا كانت الزيادة موجودة النقص يساوي صفر واذا كان النقص موجود الزيادة يساوي صفر الخلل موجود بالزيادة فارجو المساعدة اكون ممنون منك

السلام عليكم ارجو المساعدة في تحويل القيمة السالبة اذا وحدة في حقل الزيادة او النقص الى صغر اذا كانت الزيادة موجودة فلابدة ان يكون النقص صفر وبالغكس 1.rar

السلام عليكم اخواني الاعزاء محتاج في النموذج والتقرير بيان النسبة المؤية اي عند كتابة النسبة الؤية على سبيل المثال 21% في خانة الضريبة تضاف هذه النسبة الى المجموع الكلي والعكس للخصم تنقص من الخصم وفي المجموع العام يبين مبلغ الخصم كلولهومبلغ الضريبة كله اي مجموع الخصم و مجموع الضريبة والمجموع العام للفاورة في النموذج وفي التقرير اكون ممنون منكم بيع مواد عامة.rar

ارجو المساعدة يا اخوان

السلام عليكم ارجو من الاخوة الاعزاء المساعدة في المشروع المطلوب هو قيمة الضريبة وتكون نسبة مؤية الخصم نسبة مؤية المجموع + الضريبة - الخصم وفي التقرير بيان مجموع الضريبة المبلغ و بيان الخصم بالمبلغ للفاتورة بيع مواد عامة.rar

اشكرك اخي العزيز وبارك الله فيك وزادك من العلم

السلام عليكم اخواني الاعزاء ارجوا المساعدة في جمع قيمة جدول في النموذج الرئيسي بشرط لمدة شهر واحد فقط اي اليكون المجموع المبين للشهر الحالي فقط وعند انتهاء الشهر يضهر قيمة الشهر القادم اي يكون المجموع لشهر فقط ("[السلف]";"[المبلغ]") =DSum استخدمت هذه الدالة ولكن الشرط ناقص

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

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

اشكركم تم حل المشكلة

ارجوا المساعدة يا اخوان الاعزاء

اخي العزيز المطلوب هو [mo] = 1 عندي نموذج رئيسي لقد وضعت فيه تنبيهات التنبيه الاول هو موعد1 اي عندما يظهر لي رسالة التنبيه التي بداخل موعد1 z والتنبيه الثاني هو عندما [br] <= يظهر لي رسالة التنبيه الثاني المطلوب الرسالتان تشتغل في ان واحد اذا تم الشرط ولاكن عندي الان لا يشتغلان سوية حتى ولو تم تنفيذ الشرط وحدث العداد لكي يميض التنبيه If [mo] = 1 Then Me.موعد1.Visible = Not (موعد1.Visible) Else Me.موعد1.Visible = False If [br] <= Then Me.z.Visible = Not (z.Visible) Else Me.z.Visible = False End If End If End Sub

السلام عيكم اخواني الاعزاء ارجو المساعدة في دمج هذا الكود Private Sub Form_Current() DoCmd.Maximize Me.موعد1.Visible = False Me.z.Visible = False Me.br.Requery End Sub Private Sub Form_Timer() If [mo] = 1 Then Me.موعد1.Visible = Not (موعد1.Visible) Else Me.موعد1.Visible = False If [br] <= Then Me.z.Visible = Not (z.Visible) Else Me.z.Visible = False End If End If End Sub في هذه الحالة الامران لا يشتغلان في ان واحد المطلوب دمج الكود لكي الامران يشتغلان مع بعض لقد وضعت الكود في حدث في الحال وجربت كل الطرق لم يفيد فارجو المساعدة للعلم الكودان يعملان ولكن كل على حدا z هو مربع نص موعد1 هو مربع نص فيهما الرسالة التنبيهية عند وقوع الحدث

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