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

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

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

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

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

مرحبا معرفتي قليلة يجب اضافة حقل في الجدول لاسماء النماذج التي تريد عليها صلاحية كل الاحترام

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