كيف اجعل كلمت السر رموز

بسم الله الرحمن الرحيم

اخي العزيز

من داخل الجدول فقط Data Type Text ممكن تحويل في خانة Input mask الى Password في هذه الحالة ما طبع في هذه الخانة يكون بشكل *********

و لكن من خلال inputbox لا اعلم ان هناك طريقة لتحويل الاحرف الى رموز .........

ارجوا ان يكون شرحي واضحا

و الله ولي التوفيق

شكرا على الرد وارجوا ان تشرح لي الطريقة حيث انني مبتدأ

وأأأأأأأأأأأأأألف شكر

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

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

وقد تم نقله من إحدى المشاركات للأخوة في المنتدى وتم تطبيقه على المثال المرفق

مع تحياتي

input.rar

أأأأأأأأأأأأأألف شكر على التعديل وكنت اتمنى ان تعلمني الطريقة

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

وجعله الله في ميزان اعمالك

اخي الفاضل

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

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

هذه صورة ملفك قبل التعديل

وهذه صورة الملف بعد التعديل

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

Option Compare Database
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

مشكوووووووووووووورة يااختي زهرة

وجعله الله في ميزان اعمالك