فتى الوادي

قناع لأخفاء كلمة السر عند الكتابة

7 ردود في هذا الموضوع

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

أستخدمت هذا الكود لأدخال كلمة السر ... وصار تمام .. لكن

اريد أخفاء كلة المرور عند كتابتها بخيث أضيف لها قناع ( **** )

فما هو المطلوب أضافته على الكود .. وشكراً لكم ..

وهذا هو الكود :

Dim a As String

a = InputBox("Inter the pass word")

If a = "Motaib" Then

DoCmd.OpenForm "form100"

Else

docmd.close

end if

طبعاً الكود بعد التنفيذ تخرج لك رسالة لطلب أدخال كلمة المرور ... واريد أن تكون الكلمة عند أدخالها تحمل القناع ****

والسلام عليكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

سأضع الكود في موقعي الليلة إن شاء الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

جزاك الله خير يا ابا حمود ...

لكن كل هذا الكود لأجل أخفاء الكلمة .. طويل جداً ..

ما قصرت .. والسلام عليكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

ودي يكون قصير لكن الكود مهو مني

فيه حل آخر وأسهل أنشئ نموذج واجعله لإدخال الكلمة السرية وصممه بشكل يشابه مربع حوار inputbox تماما وضع عليه مربع نص واجعل قناع الإدخال له نجوم

واجعله منبثق ومشروط ونمط الحدود مربع حوار

ولك تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم

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

على العموم بارك الله فيك الكود ماشي تمام والله يحفظك .

والسلام .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .