مالك الحرايزة

ازعجناك استاذا يعطيك العافية @Moosak ما فائدة استعلام البحث عن غير المتطابقات وهل يعمل على قاعدتي الصورة مرفقة

شكرا لسرعة الرد استاذنا الفاضل ً@Moosak عند اختيار مادة ثانية مثلا لاب توب يظهر الجميع ويوجد موظف استلم كل الاحترام

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

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

Ezril شكرا صديقي شاراجع المرفق واكتب السؤال في مشاركة جديدة

للرفع

للرفع

للرفع

تفضل moho58 base 1 - Copy.accdb

moho58 جرب صديقي base.accdb

الاخ moho58 تفضل حسب ما فهمت base 1.accdb

للرفع

السلام عليكم ورحمة الله وبركاتة في المرفق نموذج طلب اجازة المطلوب عند كتابة الرقم العسكري في مربع النص وعند الضغط على انتر ان يجلب معلوماتة من جدول النقليات الرتبة والاسم ويتم تسجيل اجازة له اذا سجلت اجازة لاكثر من شخص يظهر بالاسفل طلبات الاجازة اريد عند الضغط على اعتماد الاجازة ان يرحلها الى جدول القطع الخاص بالاجازات شكرا اجازات 2023 - Copy.rar

للرفع

للرفع

في المرفق سند المطلوب هو اذا كانت قيمة الكمية تساوي 0 (صفر) ان يحذف الكلام فقط الموجود في الصف وان يرتبها خلف بعض لا يترك صف فارغ على ان يصبح كما في الورقة الثانية على ان يبقى عدد الصفوف كما هي نفس التنسيق علما بانه يوجد 750 صفحة يصعب الحذف اليدوي سند 1.docx

كل الاحترام kkhalifa1960 هو المطلوب ولجميع الاخوة لقد حاولت في الحل وطلع نفس حلك تقريبا

للاسف لا يبدا نفس ترتيب التسلسلي في جدول الرتب عميد عقيد مقدم رائد نقيب الخ

شكرا للرد اخ Barna ترتيب الرتب في العمل بهذا التسلسل لا يوجد جنود اريد حسب الجدول الرتب التسلسل كل الاحترام

السلام عليكم ورحمة الله وبركاتة اريد ترتيب التقرير الذي يحمل اسم حسب التاريخ 1 حسب الرتب العسكرية مرتبة حسب ترتيب جدول الرتب كل الاحترام 22.rar

الاخ ابوخليل شكرا جزيلا زاد الله في علمك الاخ ابوبسمله شكرا اخي زاد الله في علمك بالتوفيق

الاخ ابوخليل يعطيك العافية في المرفق نموذج Fautt اختيار نوع السند مثلا تحريك ثم ادخل رقم السند ثم زر ادخل نوع ورقم السند للتعديل اذا اخترت رقم السند 8 وضغطت على زر تعديل السند يظهر لي معلومات السند السند مع ازرار حفظ وحذف اما اذا اخترت رقم السند 7 لا يظهر الازرار للتعديل لانة اكثر من عشر مواد اكتشفت السر في حقل text77 بحث ولم اجد الحل شكرا جزيلا م1.rar

شكرا اخ ابوخليل فتحت الاستعلامين الموجودين في الكود ولا يوجد If Me.Combo36 = "سند تحريك مواد" Then DoCmd.OpenQuery "modvou7", acNormal, acEdit DoCmd.OpenQuery "modvou77", acNormal, acEdit Me.autot.Requery Me.autot1.Requery If Me.Text11 = 0 Then MsgBox "لا يوجد بيانات تاكد من البحث" Me.Command71.Visible = False Me.Command56.Visible = False Me.Text77 = 0 INSERT INTO tabsu ( voucherno, description, idproduct, datna, idstore, notes, out ) SELECT trans.voucherno, trans.description, trans.idproduct, trans.datna, trans.idstore, trans.notes, trans.out FROM trans WHERE (((trans.voucherno)=[Forms]![Fautt]![Text9]) AND ((trans.description)=[Forms]![Fautt]![combo36]));

السلام عليكم ورحمة الله وبركاتة اريد تفسير الكود التالي وهل يوجد في الكود لا يظهر عدد المواد في السند اكثر من عشر مواد If Forms!user!mod = 0 Then MsgBox "غير مسموح لك بالتعديل" Exit Sub End If DoCmd.SetWarnings False If IsNull([Combo36]) Or Me.Combo36 = "" Then MsgBox "اختر نوع السند", vbOKOnly + vbCritical, "اكمل" Me.Combo36.SetFocus Exit Sub ElseIf IsNull([Text9]) Or Me.Text9 = "" Then MsgBox "رقم السند", vbOKOnly + vbCritical, "اكمل" Me.Text9.SetFocus Exit Sub End If If Me.Combo36 = "سند تحريك مواد" Then DoCmd.OpenQuery "modvou7", acNormal, acEdit DoCmd.OpenQuery "modvou77", acNormal, acEdit Me.autot.Requery Me.autot1.Requery If Me.Text11 = 0 Then MsgBox "لا يوجد بيانات تاكد من البحث" Me.Command71.Visible = False Me.Command56.Visible = False Me.Text77 = 0 Exit Sub Else Forms![fautt]![Combo1].Value = Forms![fautt]![autot]![idstore].Value Forms![fautt]![Combo3].Value = Forms![fautt]![autot1]![idstore].Value Forms![fautt]![Text1].Value = Forms![fautt]![autot]![datna].Value Me.Combo3.Requery DoCmd.OpenQuery "queryi", acNormal, acEdit Me.Requery Me.Text77 = 1 End If End If Me.Command71.Visible = True Me.Command56.Visible = True Me.Command56.Enabled = True If Me.Combo36 = "سند اخراج" Then DoCmd.OpenQuery "modvou7", acNormal, acEdit Me.autot.Requery Forms![fautt]![Combo1].Value = Forms![fautt]![autot]![idstore].Value Forms![fautt]![Text1].Value = Forms![fautt]![autot]![datna].Value Me.Text77 = 1 End If If Me.Combo36 = "سند ادخال" Then DoCmd.OpenQuery "modvou71", acNormal, acEdit Me.autot.Requery Forms![fautt]![Combo1].Value = Forms![fautt]![autot]![idstore].Value Forms![fautt]![Text1].Value = Forms![fautt]![autot]![datna].Value End If If Me.Text11 = 0 Then MsgBox "لا يوجد بيانات تاكد من البحث" Me.Command71.Visible = False Me.Command56.Visible = False Me.Text77 = 0 Exit Sub Else Me.Text46.SetFocus Me.Command77.Enabled = False Me.Text9.Enabled = False Me.Command7.Enabled = False Me.Combo36.Enabled = False Me.Text1.Enabled = False End If DoCmd.OpenQuery "query277", acNormal, acEdit DoCmd.SetWarnings True End Sub

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