مشكلة في ملف مشترك عند تسجيل الدخول

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

4 ساعات مضت, عبدالله المجرب said:

لمشكلة للاسف ظهرت اليوم بشكل متكرر 

ولاحظت التالي 

اذا اغلقت البرنامج عند احد المستخدمين وفتحت عند احد اخر (قبل دقيقة لا استطيع الدخول من كمبيوتره بسبب الرسالة) فان البرنامج يعمل 

جربت عند اكثر من واحد و كانت هذه المحلاحظة مكررة كما ذكرت سابقا لا يعمل وعند اغلاقه عند واحد اخر يعمل عند زميله 

 

===

قمت بجعل جدول المستخدمين كجدول محلي وعممت النسخة 

عمل البرنامج لدى الجميع بعد مرور ساعة تقريبا ظهرت هذه الرسالة 

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

---

الرجاء افادتي هل هناك حل شافي لهذه المشكلة

أستاذ @عبدالله المجرب 

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

[عبدالله المجرب]

في ٣٠‏/٥‏/٢٠١٩ at 17:11, رمهان said:

استخدم docmd.runsql للتعديل وشوف

طبعا نفس جملة التعديل اعلاه

اكتب من الموبايل

كنت استعملها سابقا وعدلتها الى هذه بناء على مقترح باستعمال .update  

اعتقد ان المشكلة تخص عدم تحرير الجدول او القاعدة من الذاكرة 

فما الحل لهذه المشكلة

في ٣٠‏/٥‏/٢٠١٩ at 18:11, أبو إبراهيم الغامدي said:

أستاذ @عبدالله المجرب 

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

الاتصال بين الكمبيوترات ممتاز وساقوم ان شاء الله في الغد بالتأكد 

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

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