عمل لنك بالجداول بالكود

الاخوة الاعزاء

لدى قاعدة بيانات قمت بتقسيمها على 2 قاعدة بيانات احدهم تضم الجداول والاخرى تحتوى على النماذج والاستعلامات والتقارير

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

ثم فى القاعدة الاخرى التى تحتوى على النماذج قمت بعمل لنك للجداول

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

قد يسال سائل ان اقوم بعمل كلمة السر على القاعدة الثانية مثل الاولى انا لا اريد ذلك

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

وما اريد هو عمل هذا اللنك بالكود

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

rabiemohamed كتب:
الاخوة الاعزاء
لدى قاعدة بيانات قمت بتقسيمها على 2 قاعدة بيانات احدهم تضم الجداول والاخرى تحتوى على النماذج والاستعلامات والتقارير
القاعدة التى تحتوى على الجداول قمت بعمل كلمة سر لها وتحتوى على جدول المستخدمين حيث يحتوى على الحقول(اسم المستخدم - كلمة السر - الاسم كامل - الصلاحيات ) هذه القاعدة قمت باغلاقها بكلمة سر ارى انه يصعب فتحها
ثم فى القاعدة الاخرى التى تحتوى على النماذج قمت بعمل لنك للجداول
فى القاعدة الاولى المستخدم لن يستطيع فتحها والاطلاع على الجداول بنسبة كبيرة فيذهب للقاعدة الثانية ويقوم بفتح الجداول وفتح جدول المستخدمين ومعرفة اسماء المستخدمين وتعدين صلاحياتهم
قد يسال سائل ان اقوم بعمل كلمة السر على القاعدة الثانية مثل الاولى انا لا اريد ذلك
السؤال فى القاعدة التى تحتوى على النماذج وبها الجداول مرتبطة بالقاعدة الاولى لا اريد عمل لنك بجدول المستخدمين
وما اريد هو عمل هذا اللنك بالكود
اى يكون هناك نموذج يتم فتحه فيظهر اسماء المستخدمين وامكانية التعديل والاضافة من خلال هذا النموذج فقط

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

تفضل هذا الكود

احتمال أن يفتح أمامك الطريق بتنقيحه وفهمه ليساعدك

Option Compare Database
Option Explicit

Dim db As Database
Dim rs As Recordset

Private Sub Form_Load()
'هذا الكود مخصص لفتح قاعدة البيانات
'إذكر كلمة المرور أخر السطر
' استبدل a1111 بكلمة المرور الخاصة بك
Set db = OpenDatabase("E:\db1", False, False, "MS Access;PWD=a1111")
'هذا السطر مخصص لفتح الجدول وعرض البيانات منه
Set rs = db.OpenRecordset("table1")
'هذه الدالة مخصصة لعرض السجلات من الجدول علي النموذج
displayrecord
rs.MoveFirst
End Sub

Function displayrecord()
' هذه هي الادوات الخاصة بعرض البيانات
'
Me.Text0 = rs!ID
Me.Text2 = rs!PName
End Function

عمل لنك بالجداول بالكود

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