(تمت الاجابة) وضع password على الفورم

[wewe75]

اخواني ارجو المساعدة في بيان كيفية وضع باسوورد على فورم معين بحيث لا يفتح الفورم الا عند ادخال الباسوورد الصحيح

بارك الله فيكم

[Dream_Works]

هذي محاولة على السريع ... ضع الكود في الحدث OnOpen

Dim inputLine As String
Const password As String = "123"
inputLine = InputBox("أدخل كلمة السر", "password")
If inputLine <> password Then
MsgBox ("خطأ في كلمة السر")
Cancel = True
End If

[wewe75]

شكرا يا عزيزي وبارك الله فيك

[wewe75]

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

[Dream_Works]

يمكنك استخدام الأمر InputBox لإدخال كلمة السر .. أو تقوم بتصميم فورم به مربع نص للإدخال حسب رغبتك

Password = InputBox("Enter Your Password Please", "Password Dialog Title", "Default Value", "Left Alignment", "Top Alignment", _ 
"The Full Path Of Help File If needed (if the user press Help", "a Number Included with the Help file ")

و هذا المثال موجود بالأكسيس

Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3"    ' Set prompt.
Title = "InputBox Demo"    ' Set title.
Default = "1"    ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)

' Use Helpfile and context. The Help button is added automatically.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)

بعد أن يتم إدخال كلمة السر في متغير يمكنك حفظها في خاصية Tag في الفورم أو مربع النص و لكن لا يمكنك تعديل هذه القيمة إلا عند فتح الفورم بمرحلة التصميم ... يعني مثلا

Docmd.OpenForm "Form1" , acDesign
Forms("Form1").Tag = password
docmd.close acForm , "Form1"

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

أرجو أن يكون هذا طلبك

[wewe75]

هل يمكن ان تضع لنا هذة الكودات في مثال عملي

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

[Dream_Works]

أخي الكريم

يوجد مثال جميل في المنتدى حول ذلك ... و هو أجمل من فكرتي البسيطة

كلمة السر للفورم

[wewe75]

اخي dream work

ما قصرت ابدا

لكن الملف المرفق newpassword في الوصلة المرفقة لا يفتح

هل بالامكان ان تنزله على وصلة هذا الموضوع

واكن لك من الشاكرين

[Dream_Works]

تفضل أخوي

أرجو أن يعمل هذا معك ...

NewPassword.rar

[حامل المسك]

الله يعطيك العافية وجزاك الله خير

[wewe75]

الله يجزاك عنا كل الخير مشرفنا المميز