تغيير كتابة كلمة السر الى نجوم

[ali1]

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

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

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

وشكرا لكم جيعا .

[مصلح الحريصي]

هل تقصد بكلمة السر التي تأتي مع أكسيس أم تريد إنشاء كلمة سر عن طريقك.

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

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

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

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

الرجاء التوضيح أكثر حتى نفيد فيما تريد

تم تعديل فبراير 5, 2004 بواسطه مصلح الحريصي

[ali1]

شكرا للاخ المحترم مصلح الحريصي

الذي اقصده هو اني عامل كلمة مرور لفتح النمودج وعندما يطلب منى كلمة المرور اكتبها كما هي ولكن انا اريد عندما اكتب كلمة المرور اريد الكمة تظهر على شكل نجوم وهذا الكود هو:

Private Sub Form_Open(Cancel As Integer)
If InputBox("Enter you Password", "For conformation") <> "aaafffjjj" Then
DoCmd.CancelEvent
MsgBox " Error passport", 64, "For Conformation"
Else
DoCmd.OpenForm "Fphone"
End If

End Sub

[مصلح الحريصي]

[font=arial]الأخ علي

ابشر

الكود التالي في وحدة نمطية عامة ( Module )

Declare Function SetTimer Lib "user32" (ByVal hWnd _
As Long, ByVal nIDEvent As Long, ByVal uElapse _
As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" _
(ByVal hWnd As Long, ByVal nIDEvent As Long) _
As Long
Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWndParent As _
Long, ByVal hWndChildAfter As Long, ByVal _
lpClassName As String, ByVal lpWindowName _
As String) As Long
Declare Function Sendmessagebynum _
Lib "user32" Alias "SendMessageA" (ByVal _
hWnd As Long, ByVal wMsg As Long, ByVal _
wParam As Long, ByVal lParam As Long) _
As Long

Const EM_SETPASSWORDCHAR = &HCC
Public str_Title$, TimerId&

Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long)
KillTimer 0, TimerId
Dim lng_Hwnd&
lng_Hwnd = FindWindowEx(0, 0, "#32770", _
Trim(str_Title))
lng_Hwnd = FindWindowEx(lng_Hwnd, 0, _
"Edit", vbNullString)
If lng_Hwnd Then
Sendmessagebynum lng_Hwnd, EM_SETPASSWORDCHAR, 42, 0
End If
End Sub

والكود التالي عند فتح النموذج المشار له في الكود الذي وضعته أعلاه

TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "كلمة مرور الدخول"
str_Prompt = "فضلاً إدخل كلمة المرور"
Answer = InputBox(str_Prompt, str_Title)
If Answer <> 123 Then
DoCmd.CancelEvent
MsgBox " Error passport", 64, "For Conformation"
Else
DoCmd.OpenForm "Fphone"
End If

وغير كلمة المرور 123 بأي كلمة تناسبك

تم تعديل فبراير 6, 2004 بواسطه مصلح الحريصي

[فهد الدوسري]

مثال للاستاذ ابو حمود الله يذكره بالخير

____________________InputBox___________.zip

[ali1]

شكرا للاخوان الطيبين مصلح الحريصي والاخ فهد الدوسري

الاخ مصلح لقد لصقت هذا الكود الذي وضعته لي :

TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)

str_Title = "كلمة مرور الدخول"

str_Prompt = "فضلاً إدخل كلمة المرور"

Answer = InputBox(str_Prompt, str_Title)

If Answer <> 123 Then

DoCmd.CancelEvent

MsgBox " Error passport", 64, "For Conformation"

Else

DoCmd.OpenForm "Fphone"

End If

ولكن عند فتح النمودج تظهر رسالة خطأ وهي :

Compile Error :

Expected sub, function, or property

وتظهر هذه الكلمة في الكود مضللة بالازرق: AddressOf TimerProc

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

[مصلح الحريصي]

ولا يهمك

وهذا مثال على ذلك واخبرنا بالنتيجة لكي نطمئن على أمن بيانات

Dbmm.rar

[ali1]

اشكرك اخي المحترم مصلح الحريصي وتعبتك معاي كثير

حاولت تنزيل الملف عدة مرات ونزل ولكن لا يفتح وعند الفتح تأتي رسالة وهي :

Unrecognized database format

C:\WINDOWS\DESKTOP\ALLTFILE\Dbmm.rar

[محمد طاهر عرفه]

هذه الرسالة تظهر عند فتح ملف 2000 أو اكس بي باكسيس 97

أو عموما ملف باصدار لاحق ، تحاول فتحه باستخدام اصدار سابق