الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Password ... مستعجله جدااااا

بدأه رشا 3 في 26 مايو 2009 · 7 رد · 618 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني تعبتكم معاي بجد... بس بدي مساعده ضروريه جدا

في مشروعي عملت باسوورد .. ولما ادخل الباسورد .. يظهر ارقام الباسوورد لازم الباسوورد لما ادخلو لا يظهر .. لازم يظهر على شكل نجمات*** كيف ممكن اعملو؟؟؟

ارجوكم ساعدوني

#2

مرحبا

اليك الحل ارجو ان ينال اعجابك

د.برور سليمان

سوريا

1.rar

Thanks for Arabteam2000

#3

شكرا اخي على الرد والمساعده

بس مش راضي يفتح البرنامج :wacko: :cry:

#4

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

من خصايص مربع النص وفي خانة قناع الأدخال ضعي كلمة password

لاحظي الصورة التالية

post-37775-1243366253_thumb.jpg

(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)

«´¨`.¸ أبو رهـــــــف ¸.´¨`»

(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )

¸.•’’ ’’

( `•.¸

`•.¸

#5

اليك الملف مرة اخرى

وهو مصمم على 2003

مع ان المرفق الاول شغال عندي

بالتوفيق

1.rar

تم تعديل هذه المشاركة بواسطة perwerm في 26 مايو 2009 في 23:03

Thanks for Arabteam2000

#6

اخواني انا السلام عليكم ...

انا كادبه الكود التالي ممكن حد يضبطلي اياه ..؟؟؟؟

مستعجله جداا عليه

Private Sub أمر 3_Click()

On Error Resume Next

strPassword = InputBox$("ENTER YOUR PASSWORD", " ßáãÉ ãÑæÑ ")

If strPassword = "123" Then

MsgBox "Error Password", vbOKOnly, "ßáãÉ ãÑæÑ ÎÇØÆÉ "

Else

DoCmd.OpenForm "mainScreen_Arabic"

DoCmd.Close acForm, "mainScreen"

End If

سوري نسيت اكتب الكود بالرد السابق :)

End Sub

#7

اسفه للمره التانيه

هاد هو الكود الي انا استخدمته

حد ممكن يعدلي عليه

Private Sub أمر3_Click()

On Error Resume Next

strPassword = InputBox("ENTER YOUR PASSWORD", "كلمه المرور")

If strPassword = 123 Then

MsgBox "Error Password", vbOKOnly, "كلمه مرور خاطئه"

Else

DoCmd.OpenForm "mainScreen_Arabic"

DoCmd.Close acForm, "mainScreen"

End If

End Sub

#8

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

الاخت رشا

اليك التعديل على الكود

Private Sub أمر3_Click()
On Error Resume Next

strPassword = InputBox("ENTER YOUR PASSWORD", "كلمه المرور")
If strPassword = 123 Then
DoCmd.OpenForm "mainScreen_Arabic"
DoCmd.Close acForm, "mainScreen"
Else
MsgBox "Error Password", vbOKOnly, "كلمه مرور خاطئه"
End If

End Sub

كما تلاحظين

If strPassword = 123 Then

هنا يتم اختبار القيمة بصندوق الادخال strPassword فإذا كانت تساوي 123 فمن المفروض ان يتم فتح النموذج mainScreen_Arabic واغلاق النموذج الرئيسي mainScreen

ولكنك عكست الامر بحيث تظهر الرسالة اذا كانت كلمة المرور تساوي 123 وجعلت النموذج mainScreen_Arabic يفتح والنموذج mainScreen يغلق في الحالة الاخرى اي اذا كانت كلمة المرور لا تساوي 123 وذلك بالامر Else

هذا هو الخطأ

ارجو ان يكون هو المطلوب

بالتوفيق

مواضيع مشابهة