أبوبسمله

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

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

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

جزاك الله خيرا اخى ومعلمى وشيخنا الجليل @ابوخليل 💐

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

مشاركه مع اخوانى واساتذتى جزاهم الله كل خير لدى سؤال استاذ @ahmus ماهو نوع الشبكه الذى تقصده هل هى LAN ام WAN للبحث معكم وهل اطلعت على المواضيع الذى وضعها لك اخى واستاذى ابوجودى وبالاخص الموضوع التالى لانى قمت بتجربته وعند تغيير الايبى بالجدول الى اى ايبى آخر وغلق الجدول يخرج من قاعده البيانات بعد 10 ثوانى بالتوفيق

طيب قلى خطواتك بالتفصيل امشى عليها واشوف لان هذا ما يظهر عندى

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

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله كل خير من إرشادات لتسمية الحقول وعناصر التحكم والكائنات فى ميكروسوفت لا يمكنها أن تتضمّن أحرف تحكم (قيم ASCII من 0 إلى 31). واليك الرابط https://support.microsoft.com/ar-sa/office/إرشادات-لتسمية-الحقول-وعناصر-التحكم-والكائنات-120c27fa-7ae1-4182-9baa-dbd183179cc3 هذا والله اعلى واعلم بالتوفيق

واياكم استاذ شوقى بالتوفيق

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

السلام عليكم استاذ شوقى مشاركه مع اخى واستاذى مهندس @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 تقبلوا تحياتى ومرورى

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