ممكن لو سمحتو يا مبدعون في الاكسس

[مسافر2]

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

مسا الخير

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

مثلا

عندي فورم لشؤون الموظفين وفي قسم شؤون الموظفين جهازين اريد ان يفتح هذا البرنامج عندهم صفحات الخاصه لهم بدون باسرد او غيره لكن يفتح في جهاز المشتريات فورمات المشتريات وهكذا في كل الاقسم

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

' ÎÇÕ ÈÑÞã ÇáåÇÑÏÓß

Dim obj_FSO As Object, obj_Drive As Object

Set obj_FSO = CreateObject("Scripting.FileSystemObject")

Set obj_Drive = obj_FSO.GetDrive("c:\")

'MsgBox obj_Drive.SerialNumber

ww = obj_Drive.SerialNumber

Set obj_FSO = Nothing

Set obj_Drive = Nothing

---------------

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

ولكم التحية

[منتصر الانسي]

اخي العزيز

طالما وكما ذكرت أن البرنامج لا يحتوي على نظام مستخدمين وصلاحيات فيمكنك انشاء فورم وليكن frmMain بحيث يكون هو الفورم الرئيسي الذي يفتح مباشرة عند تشغيل البرنامج وفي حدث OnOpen أو عند الفتح اكتب كود شبيه لهذا

Select Case HardNo

Case = 123456789

DoCmd.OpenForm "frm1"

Case = 987654321

DoCmd.OpenForm "frm2"

.

.

.

End Select

DoCmd.Close acForm ,"frmMain"

حيث يتم أولا قراءة رقم الهارد وبناء عليه يتم فتح النموذج المطلوب ثم يتم إغلاق الفورم الرئيسي

مع تحياتي,,,

[مسافر2]

شكر لك يا اخ منصور على المرور وعلى الرد

ولو تكرمت كيف اضع لوحة رئيسة بحيث اضيف فيها ارقام الهاردسكات

ولك التحية والدعاء عن ظهر غيب