Foksh

من وجهة نظري في آكسيس ، ليس هناك طريقة مباشرة للتراجع إلى الخلف بخطوة واحدة بمجرد حدوث خطأ. ومع ذلك، يمكنك تحقيق هذا السلوك بتخزين حالة السجل الحالي أو القيمة السابقة واستعادتها في حالة حدوث خطأ. على سبيل المثال ، إذا كنت تقوم بتعديل سجل في جدول ، يمكنك تخزين القيمة الأصلية قبل التعديل ، وإذا حدث خطأ ، يمكنك استعادة القيمة الأصلية . إلخ ، يمكنك تحقيق فعل ما يشبه التراجع خطوة واحدة. هذا يتطلب بناء نظام إدارة الأخطاء والتعامل مع الحالة بشكل مناسب. يمكن أن تكون هذه عملية تعقيد حسب نطاق التطبيق ومتطلبات الأداء. ومن باب التوضيح ببن جملتي تحاوز الأخطاء ، هذا توضيح بسيط DoCmd.SetWarnings False تُستخدم لتعطيل رسائل التحذير في Access. عندما تكون هذه الجملة مُفعّلة (True هو القيمة الافتراضية)، ستظهر رسائل تحذير للمستخدم عند تنفيذ أوامر معينة، مثل حذف سجلات. يُفضل استخدامها عند القيام بعمليات قد تؤدي إلى فقدان بيانات أو تغييرات هامة وتريد تجنب ظهور رسائل التحذير. On Error Resume Next يستخدم لتجاوز الأخطاء والمتابعة في تنفيذ الكود بدلاً من إيقافه عند حدوث خطأ. إذا حدثت أي أخطاء، فإن الكود يستمر في التنفيذ بدلاً من الإيقاف عند الخطأ. يُستخدم بشكل عام عندما تكون على دراية بالأخطاء المحتملة وتريد متابعة تنفيذ الكود بشكل متواصل دون التوقف عند حدوث خطأ. تحتاج إلى استخدام هذه الجمل وفقًا لاحتياجات محددة لتحقيق السلوك المطلوب في التطبيق الخاص بك

مشاركة مع الأستاذ @kkhalifa1960 ، وإن كنت قد فهمت المطلوب بشكل صحيح إليك هذه الفكرة . أولا سنقوم بإنشاء جدول بشكل تلقائي ؛ وسيكون اسمه Tbl_Rep كمثال . ثانياً سنقوم بإدراج نتيجة الفلترة والتي تمت حسب ما يلي :- التاريخ من - إلى اسم الصنف - داخل هذا الجدول مع العلم أن الجدول هو مصدر التقرير Bayan . ثالثاً سنقوم بعرض التقرير بناءً على السجلات التي تم اختيارها . وأخيراً المرفق bayan _ prin.accdb

اخي الكريم في المرفق خلل ، اهتم بسلامة المرفق حتى لا تتشعب الأمور ويتجه الأخوة لتصحيح الأخطاء بدلاً من حل المشكلة المطلوبة .

للأسف لا

وعليكم السلام ورحمة الله وبركاته أخونا الكريم ،، أخي من خلال الصور الواضح أن قاعدة البيانات تالفة للأسف . وكمحاولة انشىء قاعدة بيانات جديدة وقم بمحاولة استيراد من القاعدة التالفة إلى القاعدة الجديدة ( عل وعسى ) أن تنجح الفكرة .

أيضاً كمشاركة أخرى Me.RecordSource = "SELECT cert.* FROM cert WHERE (((cert.[Lot])=[Forms]![cer]![Text8]));"

اخي الكريم ليس الهدف اختياري أفضل إجابة بقدر ما هو ايجاد الحل لأي مشكلة والإستفادة من طرق الحل حتى وإن اختلفت . على العموم جزاك الله خير ؛ وأتمنى أن تكون قد وجدت الحل فعلاً

كنت سابقاً قد اعتمدت في محاولة التفعيل عن بعد لبرنامجي على مثل هذه الفكرة ، لذا جرب هذا الكود عله يفيدك Private Sub CommandButton_Click() Dim filePath As String Dim fileContent As String ' تحديد معرف الملف على Google Drive filePath = "https://drive.google.com/uc?export=download&id=1KMBf9MxyB7gnrjev2TXkPUbZDuwXK12i" ' قراءة محتوى الملف fileContent = GetFileContent(filePath) ' وضع قيمة الملف في مربع النص Me.Textbox.Value = fileContent End Sub Function GetFileContent(filePath As String) As String Dim xmlHTTP As Object Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP") ' إرسال طلب HTTP للحصول على الملف xmlHTTP.Open "GET", filePath, False xmlHTTP.send ' إرجاع محتوى الملف كنص GetFileContent = xmlHTTP.responseText End Function وحيث أن CommandButton هو اسم الزر في نموذجك. و Textbox هو اسم مربع النص الذي سيتم جلب القيمة له من الملف.

هات مرفق 😊

ألا وهو !!

انا قمت بشرح العملية بالخطوات الـ 4 ، لكن عند التنفيذ يتم تنفيذها بجملة حسابية واحدة (710-70)-(32-8) = 616

لدي فكرة قمت بتطبيقها سابقاً على أحد المشاريع ، سأرفقها غداً إن شاء الله 😉

1. انت قمت بشراء 710 وقمت بمرتجع 70 يصبح الشراء ( 710 - 70 = 640 ) 2. قمت ببيع 32 ، ومرتجع بقيمة 8 يصبح البيع ( 32 - 8 = 24 ) 3. المشتريات - المبيعات = مبلغ البضاعة في المخزن 4. ( 640 - 24 = 616 ) هذا على حسب ما فهمت 😅

في محاولة سابقة مني ، حاولت إنشاء قاعدة بيانات تحاكي ChatGPT بإن يتم طرح سؤال ، ويتم الرد على السؤال داخل النموذج 😅 لا أريد أن أشجع أو أحبط آمالي ؛ لكن المشروع كان ولا زال يحتاج عمل ومتابعة حتى يتم إنتاجه .. سأحاول طرح الموضوع في موضوع مستقل ومشاركة الأساتذة خبراتهم للخروج بـ AccessGPT 😁

تفضل أخي @gavan الملف المرفق يحتوي معه البرنامج المستخدم في سحب الصور من السكانر . تحميل الملف

مشاركة مع الاستاذ @kkhalifa1960 موجود عندي نسخة معدلة تعمل على سحب الصور من السكانر و الفيدر وحفظها بصيغة Pdf . انتظرني حتى أصل العمل وسأرفقها لك إن شاء الله.

استغفر الله اخي الكريم ، ثم يأتيك الله بالفرج ، فلا تقلق 🤗

فرج الله همك أخوي الغالي ، ولا يهمك ، وترى انا ما قلت لك تقسم القاعدة انشئ قاعدة جديدة فارغة وانشئ فيها جدول بنفس الحقول ، وانسخ 15 اذا اردت من السجلات فقط . يطلع حجمها 2 ميجا تقريباً

الف سلامة عليك استاذنا الغالي ، وبيني وبينك هذه الأجواء تشجع على المرض ، والحمد لله على كل حال ( ما صارلي غير اليوم اللي تحسنت فيها من الإنفلونزا ) اخي الكريم ، اهتم بداية وقبل طرح الموضوع بالعلاقة بين الجداول ان كانت تهمك ، و أيضاً طريقة أفضل لتصميم النموذج و عرض البيانات ، فكما رأيت اصبح النموذج لا يقبل اضافة البيانات بعد الاستعلام

تفضل محاولتي أخي الكريم @husseinharby ,, ولا أعلم أن كنت قد فهمتك بشكل صحيح ,, Database2.accdb

وين المرفق أخوي

Private Sub Form_Open(Cancel As Integer) ' منع التعديل Me.AllowEdits = False End Sub

قيمة low و high موجودين في النموذج ؟؟ لم أقم بفتح المرفق للإطلاع عليه 😊

متابع ..