السلام عليكم ورحمة الله وبركاته
أستخدمت هذا الكود لأدخال كلمة السر ... وصار تمام .. لكن
اريد أخفاء كلة المرور عند كتابتها بخيث أضيف لها قناع ( **** )
فما هو المطلوب أضافته على الكود .. وشكراً لكم ..
وهذا هو الكود :
Dim a As String
a = InputBox("Inter the pass word")
If a = "Motaib" Then
DoCmd.OpenForm "form100"
Else
docmd.close
end if
طبعاً الكود بعد التنفيذ تخرج لك رسالة لطلب أدخال كلمة المرور ... واريد أن تكون الكلمة عند أدخالها تحمل القناع ****
والسلام عليكم
لماذا لا تستخدم نموذج عادي بدلاً من InputBox
سأضع الكود في موقعي الليلة إن شاء الله
جزاك الله خير يا ابا حمود ...
لكن كل هذا الكود لأجل أخفاء الكلمة .. طويل جداً ..
ما قصرت .. والسلام عليكم
ودي يكون قصير لكن الكود مهو مني
فيه حل آخر وأسهل أنشئ نموذج واجعله لإدخال الكلمة السرية وصممه بشكل يشابه مربع حوار inputbox تماما وضع عليه مربع نص واجعل قناع الإدخال له نجوم
واجعله منبثق ومشروط ونمط الحدود مربع حوار
ولك تحياتي
السلام عليكم
الفكرة التي قلت عليها وسبق وعملتها تماماً ... لكن أنا أريد أن أحمي أحد النماذج من الفتح بحيث لا يفتح النموذج إلا بكلمة سر .. ولو عملت نموذج آخر يتم فتح النموذج من خلاله قد يتمكن من معرفة كلمة السر أو فتح النموذج من داخل تصميم القاعدة ..
على العموم بارك الله فيك الكود ماشي تمام والله يحفظك .
والسلام .
هذا الموضوع مغلق.