بسم الله الرحمن الرحيم
اخواني واعزائي
السيدات والسادة
السلام عليكم ورحمة الله وبركاته..
بعد البحث عن اجابة عن سؤالي في منتدانا الرائع دون جدوى.. أطرح سؤالي وطلبي عليكم عسى أن يسعفني بالإجابة أحد مشرفي أو أعضاء المنتدى:
لدي نظام مكون من ملف الواجهات وملف البيانات (أكسس). وملف البيانات محمية بكلمة مرور
كذلك فإن ملف البيانات موجودة على سيرفر بينما ملف الواجهات في أجهزة المستخدمين
ويتم الربط بينهما بواسطة الكود التالي:
Dim wrkJet0 As Workspace
Dim dbs0 As Database
Set wrkJet0 = DBEngine.Workspaces(0)
Set dbs0 = wrkJet0.OpenDatabase("\\admin\F" & "\Data.accdb", False, False, ";PWD=" & "000")
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb()
For Each tdf In db.TableDefs
If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
On Error Resume Next
tdf.Connect = ";DATABASE=" & "\\admin\F" & "\Data.accdb"
tdf.RefreshLink
End If
Nextالمشكلة:
المشكلة اخواني تتركز في أن الدخول إلى السيرفر عبر الشبكة يتطلب اسم مستخدم ولنفترض أنها: (abcd). وكلمة مرور ولنفترض أنها (1234)
كيف أجعل ملف الواجهات الإتصال بملف البيانات الموجود في (سيرفر محمي بكلمة مرور) بواسطة الكود وبدون اضطرار المستخدم أن يقوم بالإتصال بالسيرفر عن طريق الوندوز
أرجو أن يكون طلبي واضحا..