جدول للمستخدمين وارقامهم

اخي الكريم

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

============================

يوجد أكثر من طريقة ولكن سنذكر أثنان منهن:

الأول:

في نفس نموذج الدخول وضع مربعات نص مصدر كل منها اسم اسم المستخدم ورقم المستخدم وجعلها مخفي وفي الشفرة نكتب أوامر لمقارنة اسم المستخدم ورقم المستخدم اللذان يتم إدخالهما باسم المستخدم ورقمه الموجودين في الجدول0

الثاني:

استخدام دالة Dlookup مع أي من عبارتي Select و If للبحث في الجدول والمقارنة لتحديد المستخدم وصلاحياته 0

فأي منهما تريد ؟

جزاك الله خيرا اخي الكريم على الرد وعلى سعة صدرك

بالنسبة للمواضيع السابقة فلا اعتقد والعلم عند الله انه يوجد موضوع شبيه (فانا من الزوار الدائمين للقسم) فا اغلبهم يتحدث عن اضافة مستخدمين جدد وليس البحث عن مستخدم

ارجوا شرح الطريقة الاولىاذا سمحت (اذا مافيه كلافه عليك :D ).

السلام عليكم

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

( ليس نفس الغرض و لكن ممكن استخدام نفس الأسلوب )

http://www.arabteam2000.com/vb/showthread....ighlight=%D3%D1

مشكور اخي مصراوي على الرابط انا نزلت القاعدة عندي وهي الي شيبت راسي :D

في القاعدة يتم فحص جدولين لحقل واحد وانا الي ابيه جدول واحد فيه حقلين

مرة اخرى شكرا جزيلاً

لقد واجهتني مشكلة أكبر من المشكلة الأصلية و هي :

هل ضمير الغائب "هي" فى ردك " هس التي شيبتني" يعود علي المشكلة الاصلية ، فتكون بذلك المشكلة قد حلت

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

بجد مش فاهم هل هي الحالة 1 أم 2

:o :o :o

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

هي يعود على شعري:D

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

باانتظار الاجابة

ولكم جزيل الشكر

الأخ الفاضل

الطريقة الأولى هي متعبة من وجهت نظري لأنني أتبع فيها طريقة تكر من النماذج عموماً سأشرحها لك بناء على رغبتك وربما يأتي أحد الأخوة بطريقة أفضل وأسهل0 عموماً اتبع الأتي:

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

1_ اعمل نماذج خاصة بإدخال البيانات واجعل خاصية إدخال البيانات "نعم"

2- اعمل نماذج للتعديل فقط وذلك بجعل خاصية الحذف "لا" السماح بالاضافة "لا "السماح بالتحرير "نعم "

3_اعمل نماذج للحذف والتعديل

4_ اعمل نموذج لجول المستخدمين وأرقامهم

5_ أجعل تلك المربعات مخفية غير مرئية

6_ ضع مربعي نص على النموذج الأول بأسم UserNam والثاني باسم UserPassword ومن خاصية بعد التحديث الخاصة بمربع النص UserPassword أكتب التالي

If UserName = اسم المستخدم الأول And User Password = رقم المستخدم الأول Then
DoCmd.OpenForm "إدخال البيانات "
End If

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

مثلآ :

 If UserName = المسؤلAnd User Password = رقم المسؤل Then
DoCmd.OpenForm " الحذف والتعديل والاضافة "
End If

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

مشكور اخي 5060 على الاجابة

ساجرب الطريقة واوافيكم بالنتيجة

مشكور مرة اخرى

الاخ5060

في شي لم افهمه في هذه الطريقة وهو كيف اجعل الحقول في الجدول افقية

وياليت تشرح الطريقة الثانية اذا سمحت لان الطريقة الاولى تبدو لي طويلة بعض الشي

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

مع العلم ان ارقام الموظفين واسمائهم مخزنين في جدول المستخدمين

ارجوا ان لا اكون قد اثقلت عليك باسئلتي

ولك تحيتي

مازلت انتظر رد:confused:

الأخ/فهد

ابشر بسعدك

سوف أشرح لك بطريقة مفصله وميسرة تتمكن من خلالها العمل بسهولة

بس ياليت تصبر علي شوي حيث أنني مشغول بعض الشي والموضوع يبي له شرح 0

لك تيحياتي

ماتقصر اخي 5060

انا ماني مستعجل خذ راحتك اخوي يكفي ردك لي

ولك جزيل الشكر

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

آمل أن يكون هذا ما تريد

للتجربة أحد المستخدمين المسجلين : رقم 1 الاسم 5060

اضغط للتحميل

(f) (f) (f)

والله اني لا اعرف كيف اشكرك اخي مصراوي

على هذا المثال الرائع وهذا ما اريد :D ولا يسعني الا ان ادعوا الله الكريم رب العرش العظيم ان يدخلك فسيح جناته ويغفرلك ويرحمك انت وانا وجميع الاعضاء في هذا المنتدى الطيب .

وشكرا مرة اخرى

واقول للاخ 5060 تراك ماقصرت والاخ مصراوي كفى ووفى

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

الأخ/فهد

كلنا في هذا المنتدى يدا واحدة والهدف واحد واحب أضيف على مثال الأخ مصراوي التالي:

1_ استخدم مع المثال أكواد أخفاء الجداول وإظهارها حتى لا يتمكن الأخرين من إستيراد جدول المستخدمين عن طريق قاعدة أخرى ولإطلاع عليه0

2_ استخدم كود التشفير لكلمات المرور حتى تزيد من قوة حماية برنامجك0

الأخ /مصراوي

مثال ممتاز الله يعطيك العافيه قمت بالواجب وزيادة 000 ما أحلى التكاتف

00000000000000

ياليت أخي الفاضل وأن تشرح الطريقة خطوة بخطوة لأن الشرح في المنتدى يبقى أرشيف للجميع أما المثال فربما قد يفقد من الموقع ولا باس بأن يكون المثال أخر حل بعد الشرح _ في الأسئلة

لقد ابدعت فعلاً أتمنى لك التوفيق من أعماق قلبي0

محبك /مصلح

تسلم اخي 5060 على اضافاتك النافعة والمهمة

وشكرا جزيلا

السلام عليكم

هذا شرح المثال ، مع ملاحظة انه أعد ليجاوب علي السؤال فقط و يستحب اضافة ما قاله الاخ 5060 عليه

'المطلوب كان التاكد من مطابقة الاسم و رقم المستخدم قبل فتح الفورم الافتتاحي
'حيث الأسماء و الأرقام المناظرة مخزنة فى الجدول Users
'فى الحقلين UserIDno & User Name
'لعمل ذلك أنشأنا فورم عليها 2 صندوق نص و زر
'اسم صندوق النص الخاص بالرقم هو SID
'اسم صندوق النص الخاص باسم المستخدم هو User
'تم وضع الكود التالي فى حدث عند النقر للزر
'============== (1) ==============
'تعريف المتغيرات المستخدمة
Dim x As Integer, Y As String, Z As Integer
'============== (2) ==============
'بدأ من هنا سنجري اختبارات و نوقف عمل الاجراء فى حالة فشل الاختبار
'عن طريق Exit Sub

'التأكد من و جود قيمة في كل من صندوقي النص
If IsNull(Me.SID.Value = 0) Or IsNull(Me.USER.Value) Then
MsgBox " يجب ادخال الاسم و الرقم", 48, "Authorization Warning Message"
Exit Sub
End If
'============== (3) ==============
'التأكد من و جود رقم المستخدم فى الجدول
x = Me.SID.Value
Z = DCount("[USER NAME]", "USERS", "[UserIDNO]=" & x)
If Z = 0 Then
MsgBox " لا يوجد مستخدم بهذا الرقم ", 48, "Authorization Warning Message"
SendKeys "{ESC}"
Exit Sub
End If
'============== (4) ==============
'التأكد من مطابقة الاسم المناظر لرقم المستخدم فى الجدول للاسم المكتوب علي الفورم
'  وهنا فى حالة فشل الاختبار سيستمر التنفيذ حتي Exit sub
'ويتم ايقاف الاجراء
' اذا نجح الاختبار نستخدم Goto  لاكمال التنفيذ بدون المرور علي Exit sub
'كان من اللمكن استخدام نفس طريقة الاختبارات السابقة و لكن فقط تم التنويع
Y = DLookup("[USER NAME]", "USERS", "[UserIDNO]=" & x)
If Y = Me.USER.Value Then GoTo ESCVALID

MsgBox "  رقم مستخدم غير صحيح لهذا الاسم ", 48, "Authorization Warning Message"
SendKeys "{ESC}"
Exit Sub
ESCVALID:
'============== (5) ==============
'فتح الفورم
DoCmd.Close
DoCmd.OpenForm "Start"

اخي مصراوي

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

شرح رأئع رائع الله يعطيك الصحة والعافيه وهذا اللي نرغب فيه حتى يكون لدينا أرشيف سهل وواضح 0

ولكن الفضول يشدني من دماغي

هل يمكن عن طريق هذا الكود تحديد صلاحيات للمستخدمين بحيث نحدد الصلااحيات في الجدول مثلاً من كان رقمه 1010 يسمح له بالحذف والتعديل 0

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

تراني أسئل عن أعضاء وزوار كثيرين كلنا نطمع في معرفة ذلك 0

لك تحياتي0