المساعدة فى تقسيم قاعدة مع وجود باسورد

اخى العزيز

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

انا مش فاهم سؤالك انت نسيت الباسورد ولا ايه .

بعد تقسيم القاعدة خد النسخة الاصليه وضعها على اجهزة الشبكه

ثم من على كل جهاز افتح هذه القاعدة(man فى برنامجك) ومن قائمة ادوات اختر ادارة الجداول المرتبطه وحدد جميع الجدول سيسألك عن موقع القاعدة حدد له مكان الجهاز الذى علية القاعدة الرئيسيه (be فى برنامجك) ثم موافق .

ارجو ان يكون هذا هو المطلوب

اخي الكريم هاني

نشكرك على المشاركه

اخي الفاضل wehadyxp

تمت الإجابه على هذا الموضوع في هذا الرابط

ربط قاعدة بيانات عليها كلمة مرور

/index.php?showtopic=146011

راجع الكود الخاص في القاعدة الرئيسية والخاص بفتح قاعدة البيانات التي عليها كلمة مرور 1234

Dim wrkJet As Workspace
Dim dbs As Database
Set wrkJet = DBEngine.Workspaces(0)
Set dbs = wrkJet.OpenDatabase("database.data", False, False, ";PWD=1234")

DoCmd.SetWarnings False
DeleteTabel
On Error GoTo ErrorT

DoCmd.SetWarnings False
DeleteTabel
E = [TxtFilename]

DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "ddd", "ddd", False

MsgBox "تم ربط الجداول بنجاح"

ExitError:
	Exit Sub

ErrorT:
MsgBox "الرجاء التأكد من الملف ", , ""


		Resume ExitError


End Sub

الف شكر ولكن هذا المثال اختار ملف data ما اريدة هو عندما يفتح نموذج بدء التشغيل يدخل الباسورد لفتح الجداول لان القاعدة التى بها الباسورد محمية برقم سرى 1234 طالما ان هناك كلمة مرور عملية الربط لاتتم ولا يفتح الجدول اذا رغبت فى فتح الجدول الموجود فى القاعدة الرئيسية لايفتح الا اذا لغيت الباسورد الرجاء التطبيق على القاعدة المرفقة اعلاة وكل عام وانتم بخير

اخي الفاضل

تم وضع قاعدة البيانات الخاصة بك والتي بها رقم سري على هذا المسار C:\Documents and Settings\Duhoksoft\Desktop\BE.mdb

ثم تم فتح قاعدة البيانات man.mdb وتم فتح الجدول الجدول المرتبط وتم الفتح بدون طلب رقم سري

فما هو المطلوب ؟؟

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

link.rar

اخي الفاضل

هذا ملفك بعد التعديل

رجاء تحديد مكان معين لقاعدة الربط وليس في كل مرة تضعها في مكان مختلف

Private Sub Form_Open(Cancel As Integer)
Dim srtPath As String
Dim wrkJet As Workspace
Dim dbs As Database
' مسار قاعدة البيانات الموجوده بها الجداول والتي عليها رقم سري
srtPath = "C:\Documents and Settings\ITP\Desktop\link\link\man_be.mdb"
Set wrkJet = DBEngine.Workspaces(0)
Set dbs = wrkJet.OpenDatabase(srtPath, False, False, ";PWD=1234")

DoCmd.SetWarnings False
DeleteTabel
On Error GoTo ErrorT

DoCmd.SetWarnings False
DeleteTabel

DoCmd.TransferDatabase acLink, "Microsoft Access", srtPath, acTable, "tbl11", "tbl11", False

MsgBox "تم ربط الجدول بنجاح"

ExitError:
	Exit Sub

ErrorT:
MsgBox "الرجاء التأكد من موقع القاعدة ", , ""

		Resume ExitError
DoCmd.Close
End Sub

Public Sub DeleteTabel() 'كود حذف الجدول لإعادة ربطه من جديد
On Error Resume Next
DoCmd.DeleteObject acTable, "tbl11"
End Sub

link.rar

الف مليون شكرهذاهو المطلوب

حياكم الله اخواني

بارك الله فيكم على هذا المجهود

بس عندي سؤال

اريد اعمل المسار بطريقة مختلفة

وهو انه يكون موجود في جدول داخل القاعدة الاولى:

يعني ما يكون بهذا الطريقة:

srtPath = "C:\Documents and Settings\ITP\Desktop\link\link\man_be.mdb"

بل يكون في جدول دخل

القاعدة man

بحيث اكتب المسار في الجدول لي يتكون من حقل واحد

فكيف يمكن كتابة هذا الكود

هل السؤال صعب

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

معقول السؤال صعب