السلام عليكم ورحمة الله وبركاتة
كيف حال الاخوان في منتديات الملتقي العربي
لو سمحت يا اخواني انا عندي ثلاث اسئلة ارجو الافادة وجزاكم الله خير *
السؤال الاول انا كنت اريد كود لعمل كلمة سر (باسورد) بان تكون الحروف غير ظاهرة وتظهر الكلمات بالشكل التالي**** وليس ما اكتبة يظهر على الشاشة مباشرة مثلا 123شسي حيث انني استخدمت الكود التالي
Private Sub امر77_Click()
If InputBox("فضلا ادخل كلمة السر", " password") <> "123شسي" _
Then
DoCmd.CancelEvent
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1587) & ChrW(1606) & ChrW(1583) & ChrW(32) & ChrW(1589) & ChrW(1585) & ChrW(1601) & ChrW(49)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_امر77_Click:
Exit Sub
Err_امر77_Click:
MsgBox Err.Description
Resume Exit_امر77_Click
End If
End Sub
فكان الناتج مربع تكتب فية الباسورد ويظر ماتكتبة
اما السؤال الثاني هو كيفية عمل القائمة السوداء مثلا لو انا عندي عدد من العملاء مثلا اتعامل معهم واريد اذا احدهم عمل شيء مخالف للقوانين مثلا ان لا اتعامل معة واضيفة الى القائمة السوداء ولكن اسمة يظل موجود ولكن اذا جاء ليتعامل معنا تطلع رسالة من الجهاز بان لا اتعامل مع الشخص هذا لانه مسجل في القائمة السوداء
[font=-->
مرة يريد الحصول فيها علي الميزانية مثلا كيف يتم ذلك ايضا
نرجو الافادة وجزاكم الله كل خير
