أبوبسمله

برجاء ارفاق مثالك للتعديل عليه بالتوفيق

السلام عليكم استاذ شوقى مشاركه مع اخى واستاذى مهندس @Eng.Qassim جزاه الله خيرا واستكمالا للموضوع السابق بخصوص هذا الموضوع وبالنسبه للترقيم من والى حسب طلبك ثم يقوم منك بطلب تسلسل آخر وحسب ما فهمت من السؤال والاستيضاح الفعلى منك ع الرسائل زميلى العزيز فانه وكما وضحت لك الافضل انشاء جدول خاص بهذه الارقام ولكن دعنا من هذه النقطه الان وع حسب المشكله التى واجهتك بالنسبه للحذف وبعد توضيح انه لا يحبذ الحذف وانما ترك السجل مع وضع حقل من نوع (نعم ولا) للاستفاده منه على الاشاره بان هذا السجل ملغى ونستطيع الفرز عليه ع السجلات المطلوبه وليست الملغيه ولانه فى الوضع العملى اليدوى اذا تم استخراج ايصال برقم وتم الغاء هذا الايصال لا نقوم بقطع هذا الايصال ورميه ولكن نقوم بالتاشير عليه بانه ملغى ويترك مكانه او يدرج اصله مع الاستمارات والصوره تبقى بالدفتر ع حسب نوع العمل فقمت بادراج حقل YN وحقل Nots للملاحظات فالجدول T1 وقمت بادراج مربعى نص بالنموذج T1 وهما txtS و txtE لكتابه بدايه التسلسل ونهايته بالنسبه للقيم الموجوده بهذه الحقول قمت بوضعها فالقيمه الافتراضيه لمربعى النص يمكنك فالوضع الحالى تغيير هذه القيم للتجربه على اى قيم اخرى دون الدخول لوضع التصميم ولكنها لن تكون ثابته فى حاله اغلاق النموذج وفتحه ولهذا يجب انشاء الجدول لعدم الدخول كل مره لوضع التصميم ووضع القيم الجديده وايضا متى تم العمل بهذه الارقام وع حسب ما تريد معرفته وقمت بانشاء استعلام qry لفرز السجلات بناء على txtS و txtE Between [Forms]![T1]![txtS] And [Forms]![T1]![txtE] وقمت بادراج الكود التالى فى نفس الحدث السابق Private Sub Form_BeforeInsert(Cancel As Integer) 'Me.M = DLast("M", "T1", (DCount("*", "T1") Mod 50)) + 1 x = Nz(DMax("m", "qry"), 0) If Val(x) = 0 Then Me.M = Me.txtS ElseIf Val(x) >= Val(Me.txtE) Then MsgBox "برجاء ادخال ارقام القسيمه الجديده" DoCmd.CancelEvent Exit Sub Else Me.M = Val(x) + 1 End If DoCmd.RunCommand acCmdSaveRecord End Sub بالنسبه لخانه الالغاء عندما يتم التاشير عليها سيتم اخفاء السجل من النموذج مباشره اتركك الان مع المرفق للتجربه واذا فى استفسار اتفضل استاذ شوقى بالتوفيق ترقيم تلقائى_2.accdb

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

مشاركه مع اخى واستاذى العزيز محمد استبدل الرسائل بـ DoCmd.OpenQuery "Q2" فقط بالتوفيق

ماشاء الله شرح مبسط ورائع وان شاء الله ننتفع به جزاك الله خيرا استاذ @Amr Ashraf 💐 واضيف تعليق لمعلمنا العزيز @jjafferr جزاه الله عنا خير الجزاء وكل اساتذتنا الذين تعلمنا ونتعلم منهم كل يوم بارك الله لنا فيهم وزادهم الله من فضله وعلمه وجزاهم الله خيرا ومرجع من ميكروسوفت https://support.microsoft.com/ar-sa/office/تضمين-استعلام-بداخل-استعلام-آخر-أو-تعبير-باستخدام-استعلامًا-فرعيًا-a8532322-e42f-4f94-bc38-ace7c182916a?ui=ar-sa&rs=ar-sa&ad=sa ومرجع اخر ايضا https://wiki.hsoub.com/SQL/subquery بالتوفيق

ويفتحها عليكم اخوانى واحبابى ويزيدكم من فضله وعلمه بالتوفيق اخوانى

مشاركه معكم اخى العزيز ابوجودى فالكود التالى تم اضافه البيانات لمصدر عنصر التحكم ل txtArabic Private Sub BtnToArabic_Click() On Error GoTo Err_Handler Me.frmToArabic!txtArabic.ControlSource = "=" & Me.frmToArabic!txtUnicode Exit_Handler: Exit Sub Err_Handler: MsgBox Err.Description Resume Exit_Handler End Sub

الف مبروك @ابو جودي ومبروك علينا اسره واعضاء اوفيسنا 💐🌹 واسال الله تعالى ان يعينك ع هذه المسؤليه الجديده وانت لها ان شاء الله

الان تم بحمد الله تعالى اصطياد كل الاخطاء والتعامل معها كما ينبغى والتعديل النهائى على قاعدة البيانات ملك آياديكم الان E-Invoicing v.4.0.3.zip

الشكر لله ثم لمعلمنا وشيخنا الجليل ابو خليل بالتوفيق اخى

السلام عليكم ماخدتش بالى انك عاملى اشاره مع اساتذتى الافاضل لان المعرف متغير للفلاحجى 😀 مشاركه مع معلمنا العزيز وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير 💐 نفس كود استاذى العزيز مع تعديل صغير لتصفيه النموذج الفرعى لاذن الصرف ع رقم المخزن المراد الذهاب اليه وفى نقطه تانيه نسيتها النموذج الفرعى لاذن الصرف تم تعديل مصدر السجلات من الجدول لاستعلام لنفس الجدول مباشر بالنموذج واضافه معيار [TempVars]![xNum] تحت حقل رقم المخزن Private Sub رقم_مخزن_DblClick(Cancel As Integer) Dim xNum As TempVar TempVars!xNum = Me.رقم_مخزن.Value Dim frmName As String Dim stlink As String frmName = "اذن الصرف" stlink = "[رقم الفاتورة]=" & Me![رقم الفاتورة] DoCmd.OpenForm frmName, , , stlink End Sub بالتوفيق Database_1.accdb

السلام عليكم مشاركه مع اخوانى واساتذتى محمد وعمر جزاهم الله خيرا يمكن استخدام الداله DateValue([date1]) بدل من الداله format تقبلوا تحياتى ومرورى

على ما يبدوا انك مشغول مثلى لعدم ارفاقك المثال بعدالتعديل لانه عند استبدال الاستعلام بالاستعلام الجديد وعند التشغيل يقوم بمطالبه قيم وليس لدى الوقت الكافى لتتبع الاستعلام والتعديل لرؤية النتيجه

الحمدلله الذى بنعمته تتم الصالحات ارجو منك ارفاق المثال بعد اضافه الحل اخى عمر بالتوفيق

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

اخى عمرو كيف تريد اظهار وانت محدد المعيار بين تاريخين بدايه التوريد ونهايه التوريد ولى سؤال كيف يكون هناك مبيعات سابقه عن ميعاد التوريد لعل احد الاخوان او الاساتذه يساعد بفكره تيسر لك ما تريد بالتوفيق

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

واياكم اخى فيه خطوه لابد من توضيحها اولا فالاستعلام رئيس قمت باضافه حقل اسمه NumJob لإضافه به رقم حسب المسمى الوظيفى لتسهيل عمليه الفرز وجعل رئيس اللجنه بالاعلى NumJob: Switch([job2]='رئيس لجنة';1;[job2]='مراقب أول';2;[job2]='مراقب';3;[job2]='ادارى';4;صواب;5) ثم تم عمل التقرير بالطريقه العاديه عن طريق الويزارد واضافه فرز عن طريق الحقل الجديد NumJob قم بعمل تنسيقاتك واضافاتك بالتقرير السابق لك كما تريد بالتوفيق توزيع1.accdb

السلام عليكم استاذ @احمد حبيبه القى نظره على الصوره هل هذا ما تريد ان لم يكن فوضح اكثر بارك الله فيك حتى يتثنى لاخوانك واساتذتنا بمساعدتك بالتوفيق

واياكم استاذ عمر وانت اللى قمت بالحل فالمشاركه التاليه للاستفسار فلم افعل شىء ربنا يوفقك 😀

وعليكم السلام استاذ @Amr Ashraf جرب ووافنى بالنتيجه Amr.accdb

جزاك الله خيرا اخى واستاذى @أبو إبراهيم الغامدي 🌹💐 ان شاء الله فى ميزان حسناتك الحمد لله قمت بعمل تحديث للويندوز والان كل شىء تمام وشغال زى الفل متابع شرحك اخى واستاذى

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