الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

بيئة عدة مستخدمين

بدأه snmdody في 28 يونيو 2009 · 4 رد · 536 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته ..

أسعد الله أوقاتكم بكل خير ..

(( في البداية حاولت جاهداً الحصول على معلومة تفيدني عن طريق البحث في المنتدى ولكن كل محاولاتي بآت بالفشل وذلك بسبب ظهور رسالة خطأ مراراً وتكراراً عند محاولتي البحث))

أتمنى أن أجد حلاً جذرياً لمشكلتي والمتمثلة في ظهور رسائل خطأ عند محاولة أكثر من مستخدم من تسجيل بيانات في نفس الوقت ، ودائماً أستخدم الكود الموضح أدناه لإجراء عملية الحفظ أو التعديل :

If rs.State = adStateOpen Then rs.Close
rs.Open "TblOrderBusNos", CN, adOpenDynamic, adLockOptimistic

فهل المشكلة في الكود أم في شىء آخر ؟

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

بارك الله فيكم ،،

#2

السلام عليكــم ورحمـة الله وبركاتــه ،،

If db.State = adStateOpen Then db.Close
db.Provider = "microsoft.jet.oledb.4.0"
db.Open App.Path & "\vehicalprog.mdb"

ضع هذا الكود في موديل ومن ثم ضع الموديل في كل فورم وان شاء الله تنحل المشكلة

#3

مشكور أخي الكريم على مرورك ، ولكن ليس هذا ما أردته ، وما أريده هو عدم ظهور رسائل خطأ (تكرار أرقام السجلات مثلاً) في بيئة عدة مستخدمين

#4

السلام عليكــم ورحمـة الله وبركاتــه ،،

ماذا تقصد بتكرار ارقام السجلات

#5

اخي الكريم

غير نوع الؤشر adOpenDynamic الى adOpenKeyset

مواضيع مشابهة