الاخوة الافاضل
السلام عليكم ورحمة الله وبركاته
لدي نموذج به زر حذف سجل وارغب في وضع كلمة مرور بحيث لا يتم الحذف الا بعد وضع كلمة المرور الصحيحه وذلك لكي لايتم الحذف الا لمن لديه كلمة المرور الصحيحة وذلك للمحافظة علي السجلات
وجزاكم الله عنا كل خير
كلمة سر علي زر حذف سجل
مغلق
جرب هذا الرابط للأخ الحارث
http://mypage.ayna.com/harith77/pass77.zip
أو هذا الكود للأخ أبو حمود
Private Sub Form_Open(Cancel As Integer)
10 If التأكد_من_كلمة_المرور = False Then
If MsgBox("كلمة المرور التي أدخلتها غير صحيحة ." & vbCrLf _
& "هل ترغب في إعادة المحاولة ؟", vbCritical + vbMsgBoxRight _
+ vbMsgBoxRtlReading + vbOKCancel, "كلمة مرور غير صالحة") = vbCancel Then
Cancel = -1
Else
GoTo 10
End If
End If
End Sub
Private Function التأكد_من_كلمة_المرور() As Boolean
If InputBox("أدخل كلمة المرور :", "كلمة المرور مطلوبة") = _
GetSetting("اسم البرنامج", "اسم النموذج", "كلمة_السر", Password) Then
التأكد_من_كلمة_المرور = True
Else
التأكد_من_كلمة_المرور = False
End If
End Function
Private Sub حفظ_كلمة_المرور_Click()
Dim Password, Password2
10 Password = InputBox("أكتب كلمة المرور الجديدة", "تسجيل كلمة مرور جديدة")
If Password = "" Then Exit Sub
Password2 = InputBox("أعد كتابة كلمة المرور الجديدة", "التأكد من كلمة المرور", Password)
If Password = Password2 Then
Call SaveSetting("اسم البرنامج", "اسم النموذج", "كلمة_السر", Password)
Else
If MsgBox("كلمة المرور التي أعدت كتابتها غير متطابقة ." & vbCrLf _
& "هل ترغب في إعادة كتابتها مرة أخرى ؟", vbCritical + vbYesNo + vbMsgBoxRight _
+ vbMsgBoxRtlReading, "خطأ في إعادة كتابة الكلمة") = vbYes Then
GoTo 10
End If
End If
End Sub
ولكن لهذه الطريقة عيوب :
1- لا تمنع المستخدم من الاطلاع على تصميم النموذج وتغييره والاطلاع على مكان حفظ الكلمة في سجل الوندوز .
2- من يفهم في سجل الوندوز بإمكانه الاطلاع عليها بسهولة .
3- بإمكان المستخدم تغيير الكود للنموذج بحيث يمنع طلب الكلمة عند فتح النموذج .
ولك تحياتي
وتحياتي لك أيضا / أشرف خليل
في زر الحذف ضع :
On Error Resume Next DoCmd.RunCommand acCmdDeleteRecord
في حدث عند الحذف للنموذج ضع :
If InputBox("أدخل الكلمة السرية :", "كلمة سر مطلوبة") <> "كلمة" Then Cancel = -1
مع تغيير الكلمة بأي كلمة مناسبة .
ولك تحياتي
الاخ اشرف والاخ ابو حمود
جزاكم الله كل خير علي مجهودكم الرائع وسرعة الرد
ولكن اخي ابو حمود الا يمكن التحكم في مربع النص الموجود في
inputbox بحيث يكون قناع الادخال علي شكل نجوم حتي لاتكون كلمة المرور ظاهرة
ومرة اخري اشكركم جزيل الشكر
لقد سبقت الكتابة في موضوع إنشاء نموذج مخصص لإدخال كلمة السر ، ولكني نسيت اسم الموضوع ، ابحث عنه وستجده إن شاء الله .
ولك تحياتي
الأخ طالب اعلم : راجع هذا الرابط أيضا
http://arabteam.nicmatic.com/vb/showthread...50&pagenumber=1
أشرف خليل
هذا الموضوع مغلق.