مشكله بسبب تعدد استخدام البرنامج على اكثر من جهاز

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

اخي الكريم استدعي بركة PoolConn الاتصال في حدث الفورم لاود للميدا فورم الاساسي للبرنامج او الفوم الاساسي

وسوف تنحل المشكله إن شاء الله لاني واجهتني وانا استخدم نفس المكتبه والبركه والان يعمل برنامجي علي خمسة اجهذة دون اي مشاكل

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

اخي العزيز سابقا واجهتني نفس المشكلة وكان السبب هو في الفورم الرئيسي الذي هو بداية تشغيل البرنامج لم اضع الموديل الذي يغلق قاعدة البيانات

اذا كانت مفتوحة ووضعت الكود التالي

If db.State = adStateOpen Then db.Close

db.Provider = "microsoft.jet.oledb.4.0"

db.Open App.Path & "\vehicalprog.mdb"

واستمر عمل البرنامج بصورة صحيحة

شكرا للاخوة الاعضاء الذين ساهموا فى مداخلاتهم السريعه لحل مشكلتى لكنى للاسف ميعادى مع العميل بعد اسبوع لتجربه ملاحظاتكم اتمنى من الله ان تكون فيها الصلاح

اتمنى لو حدن اخر لديه طريقه او تجربه اخرى فليبلغنى بها فى رد جديد

على فكرة اخى ذاكر الفانكشن PoolConn موجوده فى كل فورم فى البرنامج

لو الداتا مفتوحه يقفلها ولو مغلقه يفتحها

المشكله ان الجهاز المستخدم الذى ينادى البيانات من الجهاز الاخر لو مفتوحه ياتى برساله ان allready using

شكرا اخى ذاكر

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

انا حملت مثال بسيط مستخلص من برنامجى الذى اريد ان احمله على ثلاث اجهزة كل مستخدم سوف يتعامل مع الشاشات الخاصه به والتى سوف تتعامل مع البيانات التى موجودة فى على احدى هذه الاجهزة( حفظ – اضافه – الغاء – بحث ) نوع حافظه البيانات اكسيس

البرنامج شغال معايا كويس جدا على جهاز واحد لكن المشكله مش عارف اجعل الثلاث اجهزة يتعاملوا معه فى ان واحد

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

هذا الكود الذى ياتى لى بأن البرنامج مستخدم بالفعل ولا يريد التفاعل من خلال الجاهزين الذان يقران البيانات من الجهاز الاخر

Public condb As New ADODB.Connection

Sub PoolConn()

' If condb.State = adStateOpen Then condb.Close

' condb.Open "Provider = msdasql;dsn=elrada;"

' condb.CursorLocation = adUseClient

End Sub

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

Public condb As New ADODB.Connection

Sub PoolConn()

If condb.State = adStateOpen Then condb.Close

condb.Provider = "microsoft.jet.oledb.4.0"

condb.Open App.Path & "\elrada.mdb"

End Sub

ايهما اصح وايهما لا يعطينى بأن البيانات للقراءه فقط ولا يمكن لتعامل مع البرنامج

Elrada.rar

الحمد لله البرنامج اشتغل تمام الا اذا اشترك مستخدمين فى ادخال سجل فى نفس الفورم الواحد سسظهر ان السجل مكرر

الكود الذى استخدمته فى المديول هو

Sub PoolConn()

If condb.State = adStateOpen Then condb.Close

condb.Provider = "microsoft.jet.oledb.4.0"

condb.Open App.Path & "\elrada.mdb"

End Sub

شكرا للاخوة الاعضاء الذين وجهوانا الى الكود الصحيح