Foksh

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

للأسف لا

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

أيضاً كمشاركة أخرى 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 موجودين في النموذج ؟؟ لم أقم بفتح المرفق للإطلاع عليه 😊

متابع ..

انسخ في جدول جديد وقاعدة بيانات جديده عدد من السجلات العشوائية ( 50سجل فرضاً ) ، وارفق الجدول 😁 بلاش 2 جيجا 😅

ده ناتج عن حذف السجلات ، والترقيم التلقائي لا يقوم بتعويض الفاقد ، واذا كان حقل الترقيم مفتاح أساسي مع جداول أخرى فإنك ستواجه مشكله لو حاولت ترتب السجلات بتعويض الفاقد ، وكحل للحقول اللاحقة ( يعني لو فرضاً عندك السجل رقم 8000 وحذفته ورجعت سجلت سجل آخر جديد سيصبح الترقيم 8001 مع العلم ان 8000 تم حذفه ) استخدم الدالة Dmax لإضافة رقم حسب آخر رقم موجود في الحقل في الجدول 😅