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

ازعجناك استاذا يعطيك العافية @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

الاخ ابوبسمله

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

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

زاد الله في علمكم

كل الاحترام