السلام عليكم و رحمة الله و بركاته
انا اتعلمت vba بس مش محترف جدا :lol:
الان انا شغال على مشروع و الصفحة الرئيسية للمشروع مسوي فيها اسم المستخدم و كلمة المرور
انا سويت كود الي هو
Private Sub Command4_Click() If [UserName] = "محمد" And [Password] = "123" Then MsgBox "تفضـل بالدخـول يا محمد", , "مبـروك" Else MsgBox "خطا", , "مبـروك" End If End Sub
لكن المشكلة انه اسم المستخدم ثابت و كلمة المرور ثابتة
انا اريد البرنامج تفحص في جدول خاص باسماء المستخدمين و كلمات المرور
ارجو الافادة
اخي الكريم.. على هذا الرابط المستحدمون في جدول
مثال متواضع مني سيفيدك ان شاء الله
او ابحث عن "صلاحيات المستخدمين" في المندى
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
السلام عليكــم ورحمـة الله وبركاتــه ،،
وهذا - بعد إذن أستاذنا همام - مثال بسيط مباشر لطلب الأخ الكريم
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
اشكرك اخي ايهاب على المشاركة واحنا لازم ناخذ الاذن منك ..تحياتي
همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
اخى الكريم ..
ابحث بالمنتدى .. باستخدام خاصية البحث ستجد امثلة كثيرة جدا حول هذا الموضوع
بالتوفيق
الأصيل
.. غريبه جدا .. لم يظهر لى ردى اخوانى / ايهاب ، و همام إلا بعد ان كتبت الرد ؟؟ !!
طبعا مفيش كلام بعد رود استاذتنا
بالتوفيق
تم تعديل هذه المشاركة بواسطة الاصيل في 18 أغسطس 2009 في 14:56
قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..
كلام صحيح..اقتباسطبعا مفيش كلام بعد ردود استاذتنا
ولكن تعليق بسيط ..
مازال البرنامج بمستخدميه المتعددين يفتح فقط دون تحديد أى صلاحيات للمستخدمين.
والاستفسار لأخى صاحب السؤال .. أليس من الأفضل أن تفكر فى نظام صلاحيات لتطبيقك .. وطبعاً الموضوعات فى هذه النقطة كثيرة جداً بالمنتدى.
تحياتى
محمد ندا
تم تعديل هذه المشاركة بواسطة Mohamed Nada في 18 أغسطس 2009 في 21:21
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
ايهاب عثمان كتب:السلام عليكــم ورحمـة الله وبركاتــه ،،وهذا - بعد إذن أستاذنا همام - مثال بسيط مباشر لطلب الأخ الكريم
اخينا ابهاب ، جزاك الله خير وبارك الله فيك وزادك علماً ونفع بك المسلمين ،،
لي طلب بسيط وهو هل من الممكن ان تشرح لنا هذا الكود .. <<<< عاوز يفهم ^^
Private Sub Command5_Click()
Dim Rs As Integer
Rs = 0
1 For tst = 1 To DMax("[id]", "tblPas")
2 If N = DLookup("[nm]", "tblpas", "[ID]= " & tst) And P = DLookup("[ps]", "tblpas", "[ID]= " & tst) Then
3 DoCmd.OpenForm "f2"
4 Rs = 1
5 Else
GoTo 8
7 End If
8 Next tst
If Rs = 0 Then
MsgBox "error"
End If
9 End Subتم تعديل هذه المشاركة بواسطة (( عبدالله )) في 18 أغسطس 2009 في 23:01
لا إله إلا الله محمد رسول الله عليه الصلاة والسلام
سبحانك اللهم وبحمدك اشهد ان لا إله إلا انت استغفرك واتوب اليك
سأتقن الـ ++C و PHP إن شاء الله تعالى ...
جاري العمل على Microsoft Sql Server و MySQL ...
السلام عليكــم ورحمـة الله وبركاتــه ،،
بارك الله فيكم جميعاً اخواني الكرام.
أخي محمد ندا..
يمكن تحويل الفكرة السابقة الى نظام مبسط لصلاحيات المستخدمين اما بفتح حقل داخل جدول tblpas لتحديد الصلاحية ثم دمج قيمته في الكود كمعيار لدالة Dlookup
أو انشاء أكثر من جدول شبيه كل منها يختص بصلاحية الوصول الى نماذج محددة
ورغم وجود الكثير من الأفكار الثرية في هذا الصدد الا ان التنوع - في رأيي - مفيد
أخي ((عبد الله))
بداية ومنعاً للخلط أنوه أن ترقيم بعض الأسطر ليس الا للقفز اليها عند تحقق نتيجة ما عن طريق الأمر GoTo
شرح الكود :
*كما تلاحظ أن عندنا جدول به مجموعة من اسماء المستخدمين أمامها مجموعة من كلمات السر (كلمة مرور لكل مستخدم)
مع وجود حقل ترقيم تلقائي في الجدول وهو مهم جداً كما سنرى
*وظيفة الكود هي فحص الاسم وكلمة المرور المدخلان الى النموذج المخصص ومقابلتهما بالقيم الموجودة في جدولنا فإن قابلت احداهن فتح لنا النموذج الأصفر الجميل وإلا ستظهر لك رسالة الخطأ
* ننشئ متغيراً رقميا باسم Rs ونضبطه على القيمة 0 فان ظل كما هو بعد عملية الفحص (الخطوة التالية) ستظهر لنا رسالة الخطأ أما ان نتج عن عملية الفحص نجاح الادخال في موافقة احد سجلات الجدول فسوف تتغير القيمة الى 1 ولن تظهر الرسالة
*الان سيتم فحص سجلات الجدول الواحد تلو الاخر بداية من رقم 1 الى.... أكبر رقم في حقل الترقيم التلقائي وهذه وظسفة حلقتنا التكرارية المسماة tst
For tst = 1 To DMax("[id]", "tblPas")* الان عملية الفحص لأول سجل حيث المتغير tst سيأخذ القيمة 1 عن طريق الدالة Dlookup
If N = DLookup("[nm]", "tblpas", "[ID]= " & tst) And P = DLookup("[ps]", "tblpas", "[ID]= " & tst) Thenكما ترى فهذه هي دالة If و N اسم مربع النص داخل النموذج الذي يحمل اسم المستخدم P هو المربع الذي تدخل اليه كلمة السر فان كان الاول يساوي قيمة الحقل Nm في جدولنا tblpas والثاني يساوي قيمة الحقل ps
بشرط (معيار) أن يكون الحقل ID في الجدول مساويا لقيمة الحلقة التكرارية الحالية (1 الان)
ان تحقق ذلك الشرط سيحدث الاتي
-فتح النموذج المطلوب - تغيير قيمة Rs الى 1
اذا لم يتحقق الشرط ننتقل للحلقة التالية (2) لتكرار ما سبق مع بقاءRS بقيمة 0
* حين الانتهاء من الحلقة التكرارية بالكامل..
يجري اختبار شرطي للمتغير Rs إن كان 0 تظهر رسالة الخطأ وان كان 1 لا يظهر شيء
====
أتمنى أن يكون الشرح مقبولاً
طبتم واهتديتم
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
بارك الله لك على الشرح الوافى المتأنى ... وبارك لك فى أيام وليالى رمضان.
اقتباسطبتم واهتديتم
وإياكم أخى الكريم
محمد ندا
تم تعديل هذه المشاركة بواسطة Mohamed Nada في 22 أغسطس 2009 في 11:37
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…