اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

02 الأعضاء
  • Posts

    97
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو العراقي المدلل

  1. اشكرك استاذ جعفر على الاهتمام وبارك الله فيك وزادك من العلم بس مع الاسف اخي العزيز لم يكمل الاستعلام يحذف جميع الجدول والمطلوب حذف بعض خانات من الجدول وجربت الكود ولم ينفع اسف استاذي العزيز هذي مدة ادور على حل ولم اجده
  2. اشكرك استاذ العزيز جربت كل شي ولم يفيد قمت باعادة تسمة الاسماء العربية الى الانكليزية وبدون مسافات ولاكن لم ينجح الامر تظهر الرسالة بالحذف ولاكن لا يحذف الخانة المطلوبة فارجو استاذ العزيز ان تساعد اخوك اكون ممنون منك واسف على الازعاج اخي جزاك الله كل خير كود.rar
  3. اخوان الاعزاء ارجو بيان الخطاء الذي بالكود الكود لا يحذف
  4. اشكرك اخي العزيز جربت هذا الكود المرفق يطلع رسالة بانه تم حذف ولاكن لا يحف فارجو بيان الخلل اكون ممنون الجدول اسمه الرئيسي والنموذج الفرعي الذي مراد مسح خاناته اسمه 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
  5. السلام عليكم ارجو المساعدة منكم يا اخواني الاعزاء في حذف بعض الجداول بشرط عند تغيير قيمة مربع سرد عندي جدول متكون من 120 خانة الجميع في نموذج واحد واخذت 15 خانة منه في نموذج اخر من نفس الجدول المطلوب عند تغيير قيمة في مربع سرد اسمه رتبة يقوم بحذف الخانات الموجودة في النموذج الثاني المتكون من 15 خانة
  6. اخي العزيز اشكرك بس المطلوب هو عدم تكرار نوع السلاح للوحدة الواحدة
  7. السلام عليكم اخواني الاعزاء ارجو المساعدة في منع التكرار في نموذج في نوع السلاح و الوحدة اي لا يتكرر الاثنان معا يعمي مثل ل1 مسدس لا يتكرر مرة اخرة 1.rar
  8. اشكرك اخي جنت اجرب وما انتبهت لها صار ممنون منك جزاك الله كل خير
  9. اشكرك اخي الغالي لاكن اخي الزيادة بغد موجودة المطلوب اذا كانت الزيادة موجودة النقص يساوي صفر واذا كان النقص موجود الزيادة يساوي صفر الخلل موجود بالزيادة فارجو المساعدة اكون ممنون منك
  10. السلام عليكم ارجو المساعدة في تحويل القيمة السالبة اذا وحدة في حقل الزيادة او النقص الى صغر اذا كانت الزيادة موجودة فلابدة ان يكون النقص صفر وبالغكس 1.rar
  11. السلام عليكم اخواني الاعزاء محتاج في النموذج والتقرير بيان النسبة المؤية اي عند كتابة النسبة الؤية على سبيل المثال 21% في خانة الضريبة تضاف هذه النسبة الى المجموع الكلي والعكس للخصم تنقص من الخصم وفي المجموع العام يبين مبلغ الخصم كلولهومبلغ الضريبة كله اي مجموع الخصم و مجموع الضريبة والمجموع العام للفاورة في النموذج وفي التقرير اكون ممنون منكم بيع مواد عامة.rar
  12. السلام عليكم ارجو من الاخوة الاعزاء المساعدة في المشروع المطلوب هو قيمة الضريبة وتكون نسبة مؤية الخصم نسبة مؤية المجموع + الضريبة - الخصم وفي التقرير بيان مجموع الضريبة المبلغ و بيان الخصم بالمبلغ للفاتورة بيع مواد عامة.rar
  13. اشكرك اخي العزيز وبارك الله فيك وزادك من العلم
  14. السلام عليكم اخواني الاعزاء ارجوا المساعدة في جمع قيمة جدول في النموذج الرئيسي بشرط لمدة شهر واحد فقط اي اليكون المجموع المبين للشهر الحالي فقط وعند انتهاء الشهر يضهر قيمة الشهر القادم اي يكون المجموع لشهر فقط ("[السلف]";"[المبلغ]") =DSum استخدمت هذه الدالة ولكن الشرط ناقص
  15. السلام عليكم اخوان الاعزاء ممكن المساعدة عندي مشروع قمت باضافة كود fSetAccessWindow (SW_SHOWMINIMIZED) fSetAccessWindow (SW_HIDE) لكي يخفي قائمة اكسس ولكن صارت عندي مشكلة هي عند فتح النموذج الرئيسي واختيار فتح التقرير من داخل النموذج الرئيسي لا يضهر او يكون وراء النموذج للعلم قمت باعدادت التقرير الى منبثق ولم يفد قمت بكتابة كود اخفاء النموذج عند الفتح ولاكن يفتح الجدوال والنماذج اي خاصية اخفاء الاكسس ضاعت ولا اريد هكذا فهل من حل او كود عند فتح التقرير يأتي الى المقدمة اكون ممنون منكم
  16. السلام عليكم عندي نموذج في مبلغ التسديد والمطلوب كود عندما يكون فارغ يكون نتيجة 0 لكي تتم علمية الجمع بصحيح ولاكن مصدرو استعلام ليس جدول فهل يوجد حل حاولت القيمة الافتراضية تكون 0 ولاكن لم يفيد فارجو المساعدة وجزاكم الله كل خير
  17. اخي العزيز المطلوب هو [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
  18. السلام عيكم اخواني الاعزاء ارجو المساعدة في دمج هذا الكود 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 هو مربع نص فيهما الرسالة التنبيهية عند وقوع الحدث
  19. اشكرك اخي العزيز بارك الله فيك زادك من العلم وفعل خير وان شاء يتقبل الله منك يجعله صدقة جارية
×
×
  • اضف...

Important Information