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

مرحبا

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

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

سوريا

1.rar

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

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

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

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

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

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

وهو مصمم على 2003

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

بالتوفيق

1.rar

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

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

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

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

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

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

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

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

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

الاخت رشا

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

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

هذا هو الخطأ

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

بالتوفيق