Foksh

اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة

جرب وأخبرني يالنتيجة حل البحث.mdb

ممكن توضح طلبك أكثر ؟؟

اخي الكريم أفضل حماية موجودة لك الآن هي حماية أكسيس نفسها ، قم بحفظ المشروع بصيغة Accde فقط ، ولن تتمكن حتى أنت من التعديل على النماذج

تفضل مثال ، قم بتعبئة الحقول واضغط حفظ ستلاحظ انه اخذ الرقم التلقائي قبل عملية الحفظ ، ليتحقق من آخر رقم محفوظ في الجدول ويزيد عليه 1 Dmax.accdb

هل تنفع هذه الفكرة testDbNotes.accdb

اذا كانت المشكلة في أنه سيقوم شخصين باستخدام نفس النموذج مثلاً لإضافة سجل جديد ( ويترتب عليه استخدام نفس الجدول طبعاً ) ، وكان الترقيم تلقائي في حقل الـ ID عادة ؛ ففي مثل هذه المشاكل كنت اعتمد طريقة أني أجعل الترقيم مستخدماً DMax في حدث زر الحفظ يقوم بإضافة الترقيم لحقل الـ ID أو رقم الفاتورة أو رقم المريض .... الخ في نفس الزر وقبل إجراء عملية الحفظ . هكذا لن يتعارض الترقيم المزدوج أو المكرر مع أمر الحفظ . هذه كفكرة استخدمها عادةً دون الحاجة لأي أكواد ..... إلخ

تمت التجربة على نظام ويندوز 7 نواة 32 ، ولم يقبل تثبيت اوفيس 64 بت بأي إصدار ..

تأكدي من امتداد الملف اذا كان MDB أعتقد أنه يكون محفوظ بنسخة أقدم من 2010 ، وإذا كان ACCDB يكون من 2010 وأحدث إن لم تخني ذاكرتي

لا يوجد تواريخ بالمرفق ، فطرحت الفكره له ليستغلها 😅

جرب هذه الفكرة البسيطة stlist.accdb

الفكرة جميلة ، وقد يكون هناك فكرة ، سأجربها وأعطيك الرد 🙂

لم أقم بتجربة هذا الكود ، انشئ وحدة نمطية جديده واكتب الكود فيها :- Function GetConnectedDevices() Dim objShell As Object Dim objExec As Object Dim strCommand As String Dim strOutput As String Set objShell = CreateObject("WScript.Shell") strCommand = "arp -a" ' يمكك استبداله بأمر آخر حسب نوع الشبكة الخاصة بك Set objExec = objShell.Exec(strCommand) strOutput = objExec.StdOut.ReadAll GetConnectedDevices = strOutput End Function جرب استدعاء الكود بمربع نص مثلا عن طريق GetConnectedDevices()

جاري إنشاء نظام تشغيل وهمي 32 ، وتجربة ما إذا كان سيقبل تثبيت الأوفيس 64 أم لا ، من باب اكتساب معلومة ليس إلا

أخي @ابووحيد ، أسعد الله مسائك والحاضرين والغائبين جميعاً ، برأيي لمعرفة الإجابة الدقيقة والسليمة هي أن تقوم بتجربة ذلك بنفسك ، لا أن تحكم على الموضوع من تجارب الآخرين ( في هذا الموضوع أقصد ) ، وأنا ما طرحته كان عن تجربتي الشخصية ، ومن خلال معلومتي فأعتقد أنه يمكن تثبيت أوفيس 64 بت على نسخة ويندوز 32 بت ( رغم أنني لم أقم بتثبيت ويندوز 32 بت منذ حوالي 10 سنوات أو أكثر قليلاً ، وكانت في بداية لإصدار ويندوز 7 ) .

حاول الإستفادة من المرفق في هذه المشاركة

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

ارسل مرفق لتعديل التوافقية ( وليس على كود الأستاذ ابو خليل )

بعد إذن الأستاذ الفاضل @ابوخليل ،، في النموذج الفرعي الذي قمت بإضافة الكود إليه فقط ضع كود تجاوز الخطأ في بداية الكود في حدث on current كما فعلت انا ، وسيجح الأمر باذن الله تعالى. On error resume next

ولك بالمثل أخي @محمد احمد لطفى

اعتقد هذا طلبك Update Prog.mdb

تابع هذه المشاركة

اتمنى اني اكون فهمت صح 😅 تفضل هذه الفكرة Prog.accdb

هذه الفكرة شريط تحميل يظهر لك وكأنه تحميل حقيقي ، يتمد على الوقوف العشوائي في كل مرة يتم فيها تشغيل الشريط ؛ طبعاً بالإعتماد على موديول RandomX وموديول Sleep ، وكنت استعمله في فكرة مسح الجداول من البيانات ( إعادة ضبط المصنع للقاعدة وإفراغ جداولها من البيانات ) طبعا كمثال وتشغيل استعلامات الحذف تبعاً لكل تغيير نص. هي كفكرة تستطيع تطويرها ، واعتقد ستجد مشاركات أفضل منها بكثير 😊 Prog.accdb

سأرفق لك فكرة قد تعجبك فانتظرني 😅