أبو إبراهيم الغامدي

أستاذ جعفر.. بل أتفق معك أنت!

أهلا @ابا جودى من المفترض أن قاعدة البيانات الخلفية هي التي يطبق عليها الضغط والإصلاح! لا القاعدة الأمامية! وفي تقديري هذا ما تفعله أنت! أرجو الرجوع إلى ملف تعليمات أكسس لمعرفة القيم التي يمكن استخدامها لهذه الخصيصة

أهلا @kaser906 للأسف ما لا يعرفه الكثير أن أكسس يستعمل خصيصة الإخفاء للإشارة إلى الجداول الموقتة! وما المشكلة في ذلك؟! المشكلة أن أكسس يقوم بحذف بيانات هذه الجداول عند الضغط والإصلاح..

فعلا أستاذ جعفر.. مبارك عليك أستاذ كاسر شارة الخبراء.. أتمنى أن يكون لى معك مشاركات فى المستقبل

في تقديري أن هذه المقطوعة من الشفرة ناقصة! وعند مراجعتي _على عجل_ للمشاركات المتعلقة بالموضوع وجدت أنها تفتقر إلى الطريقة الصحيحة للطبيق!

@محمد احمد لطفى @مسفر أرجو أن يكون هذا المثال مقنعا.. progressbar.mdb

مبارك عليك أستاذ @مسفر شارة الخبراء.. لقد كنت كذلك بالفعل.. حصل لى الشرف بمزاملتك في أحد المشاركات وكنت رائعا.. أتمنى لك مزيداً من النجاح

عزيزي مسفر.. نعم اتفق معك.. ولا يزال لدي حلول أخرى! لكني أريد أن أصل إلى حل مقنع بالطرق التقليدية.. أما بالنسبة للمؤقت فلا مفر من استخدامه؛ سواء كان ذلك: مؤقت النموذج أو موقت Win32API ، أو كان مؤقت يصنعه المبرمج. إذ العملية برمتها تعتمد عليه! وفي نظري مؤقت النموذج أنسب الحلول للمبرمجين المتوسطين,, ولا أفكر أبدا في تطوير فئات برمجية لمعالجة مثل هذه الأمور!

لا عليك.. لا يزال هناك حلول! جرب هذا: progressbar.mdb

ممكن تزودني بالشفرة الموجودة في النموذجين

أعتذر عن هذا الخطأ غير المقصود.. غاب عن ذهني تصفية الاستعلام عن طريق النموذج.. جربه الآن progressbar.mdb

أهلا @محمد احمد لطفى أرجو أن تكون طريقة العمل سهلة الفهم.. سوف يقلع النموذج الرئيسي في الخلفية مع نموذج البدء، وعند انتهاء الفترة الزمنية سوف يظهر النموذج الرئيسي ويغلق نموذج البدء.. progressbar.mdb

أهلا استاذ @رمهان بشرط أن يكون التطبيق على قاعدة البيانات الخلفية وليس الأمامية في بيئة العمل المفصولة

أهلا @qathi أرجو أن يكون المثال سهل الفهم D3.accdb

Set db = CurrentDb()  sql = "select * from tblUserClose where UserName=" & "'" & MyUserName & "'" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.Edit rs("UserOn") = "ON"  rs.Update  rs.Close للمعلومية.. الإجراء Rs.Close يقوم بإغلاق الغرض Rs فقط ولا يحرره من الذاكرة إذا كنت تريد تحرير الغرض Rs من الذاكرة.. استخدم المنهج Set Rs=Nothing ' Db وكذلك على الغرض Set Db=Nothing

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

أستاذ @رمهان نص عبارتي: "في مخيلتي طريقتان سوف أعمل عليهما.. إن شاء الله.." ولقد اعتذرت لضيق الوقت..

ليتك أرفقت النموذج بدلا من الصورة لأني لا أعلم سبب وجود البيانات في صف واحد! هذه الإشكالية ليست في مرفقي.. هذه الإشكالية تزول عند معرفتك بآلية التنفيذ؛ سواء كانت الصناديق في نموذج واحد أو نماذج متعددة..

أستاذ @عبدالله المجرب هذه المشكلة في تقديري ناتجة عن تذبذب الاتصال الشبكي.. أرجو منك التاكد من عتاد الاتصال الشبكي (الأسلاك، الموزع، الخادم..)

احتاج إلى مزيد من التفصيل لو تكرمت.. للمعلومية.. استخدمت لنافذة تعديل القيم؛ نوافذ ويندوز Windows Forms وليس نوافذ أكسس Access Forms ولعل هذا سبب اشكالية في نقل المثال للواقع.. وهنا أنتظر منك أن تؤكد لي أن المثال يعمل؟

أهلا @حلبي الشفره التالية تفي بالغرض إن شاء الله Private Sub Form_Current() If Not NewRecord Then Parent.Bookmark = Me.Bookmark End If End Sub الموظفين.accdb

أهلا بكم.. في الحقيقة لن أتمكن من تطبيق كلا الطريقتين لضيق الوقت.. هذه إحداهما على عجل.. خطوات التنفيذ أتركها للمناقشة.. إلى المثال: Database1.accdb

أهلا بكم.. أشكرك أستاذ @رمهان على ثقتك بي وأثني بالزملاء الكرام.. في مخيلتي طريقتان سوف أعمل عليهما.. إن شاء الله..

أستاذ قدور المثال المرفق ليس به بيانات ولا توجد علاقات! على أي حال في المثال المرفق نموذج به ثلاثة مستويات للجداول: الجدول الرئيسي --> الجدول الفرعي --> الجداول المتربطة بالجدول الفرعي.. بمعنى: يمكن استخدام جدول رئيسي واحد فقط، وجدول فرعي واحد فقط، وجداول متعددة مرتبطة بالجدول الفرعي كما في الصورة هذا في تصوري مقبول.. كمثال يمكن البدء به.. للأهمية يجب أن يكون بين الجداول المطلوب تصديرها علاقة قائمة وإلا لن تكون البيانات منضبطة النسق.. إليك المثال: ExportToXML.accdb

أهلا أستاذ @عبد الله قدور نعم ممكن.. أولا.. يجب أن يكون التصدير باستخدام المنهج Application.ExportXML ثانيا.. لابد من وجود علاقة بين جدول البيانات الرئيسي والجداول الفرعية، كما يمكن إضافة توابع الجداول الفرعية ثالثا.. يمكن اضافة الجداول الفرعية وتوابعا أيصا باستخدم المنهج Application.CreateAdditionalData الشفرة التالية تبين طريقة إضافة البيانات الفرعية Sub ExportCustomerOrderData() Dim objOrderInfo As AdditionalData Dim objOrderDetailsInfo As AdditionalData Set objOrderInfo = Application.CreateAdditionalData ' Add the Orders and Order Details tables to the data to be exported. Set objOrderDetailsInfo = objOrderInfo.Add("Orders") objOrderDetailsInfo.Add "Order Details" ' Export the contents of the Customers table. The Orders and Order ' Details tables will be included in the XML file. Application.ExportXML ObjectType:=acExportTable, DataSource:="Customers", _ DataTarget:="Customer Orders.xml", _ AdditionalData:=objOrderInfo End Sub فضلا راجع ملف تعليمات أكسس، أو طالع الروابط التالية من Docs  Office VBA Reference  Access Application.ExportXML Application.CreateAdditionalData