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

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

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

اسف استاذي العزيز هذي مدة ادور على حل ولم اجده 

اشكرك استاذ العزيز 

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

فارجو استاذ العزيز ان تساعد اخوك اكون ممنون منك واسف على الازعاج اخي جزاك الله كل خير 

كود.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 هو مربع نص 

فيهما الرسالة التنبيهية عند وقوع الحدث 

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