كيف نضع رقم سري على محتويات مربع تحرير وسرد

[حامل المسك]

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

أسأل الله أن يوفقكم لخيري الدينا والآخرة وأن يديم عليكم الصحة ...

أساتذتي الفضلاء ..

لدي نموذج به مربع تحرير وسرد وهو يحوي (رقم الكلية ، ورقم القسم ) المطلوب أن يكون لكل من رقم الكلية والقسم رقم سري لمستخدم بحيث إذا جاء المستخدم واختار رقم الكلية 18 مع القسم 3 يطلب منه كلمة المرور فإذا كانت صحيحة فتح له النموذج الفرعي الخاص به وإلا يعطيه فرصة أخرى وإذا كانت خطأ يغلق البرنامج ..

مع العلم أن لكل خيار رقم سري مستقل ...

والله يرعاكم

collge.rar

[أبو آدم]

قيد التنفيذ .....

 

 

............

[حامل المسك]

فتح الله عليك في الدنيا والآخرة

[أبو آدم]

الفكرة:

نجعل كلمة السر في حقل (في المكان المناسب حسب تحليلك) في الجدول مع رقم الكلية ورقم القسم

نجعل مصدر مربع التحرير و السرد ثلاثة أعمدة رقم الكلية (ظاهر) ، رقم القسم (ظاهر) ، كلمة السر (مخفي)

عند التركيز في خصائص مربع التحرير و السرد ، Inputbox يقوم بالمهمة لقبول كلمة السر أو رفضها

ولكل خيار ما يلزم تطبيقك من إجراءات ...

 

 

Private Sub Text00_AfterUpdate()

Dim x As String
Dim y As String

 x = Me.Text0.Column(2)
 y = InputBox("Enter Password ... default password 123 ")
 If x = y Then
 Me.Text2.SetFocus
 Else
 
 MsgBox "That is not the correct password. " _
 & "Please enter the correct password."
 End If

End Sub


 

والتطبيق منوط بما تراه

والأفكار كثيرة ... ولكنني أرى أساسها (كلمة السر في حقل (في المكان المناسب حسب تحليلك) في الجدول مع رقم الكلية ورقم القسم)

 

والله من وراء القصد وهو حسبي

.........

[حامل المسك]

حياك الله أخي الحبيب ،،، 

طبقت ما ذكرت ولكن ظهر لي بعض الإشكالات في الكود ...

هل بالإمكان تطبيقها على المثال ..

رعاك الله ..

[ابو عارف]

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

أخي حامل المسك انظر المثال علماً بان تم تخصيص الحقل no1 كحقل ارقام السري

بالتوفيق،،،

collge.rar

[حامل المسك]

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

عمل رائع ... وجهد موفق ... دعائي لكم بظهر الغيب ...

شكر الله لك أخي أبا عارف .... والشكر موصول لأستاذنا أبي آدم .....

تم المطلوب ..

وفقكم الله أجمعين وجعل ذلك في ميزان حسناتكم ،،،

[حامل المسك]

هل بالإمكان أن تظهر في الجدول على شكل نجوم أو رموز حتى لا تعرف ...

[ابو عارف]

<p>تم نقل المشاركة الى مشاركة التالية</p>

تم تعديل مارس 22, 2013 بواسطه ابو عارف

[ابو عارف]

نعم أخي ممكن ان شاء الله و بعد خطوات بسيطة

1)تغير تنسيق الحقل من رقم الى النص

2)تغير بسيط في الكود من Dim pass as intiger الى Dim pass as string

3)جعل خاصية قناع ادخال حقل الى "كلمة المرور" او Password

و المثال المعدل في المرفقات:

collge2.rar

[حامل المسك]

جزيت الجنة ورحم الله والديك وبارك لك فيما رزقك حصل المطلوب

مع شكري وتقديري ودعائي للجميع ..