مرحبا انا اريد ان اعرف مالخطا الذي اكتبه في الكود التالي لعمل كلمة سر لبرنامج مكتوب بالاكسيس انا سويت الجداول والاستعلامات وكللللللل شي تقريبا ولما وصلت لكلم سر يقول لي ان فيه خطا بالكود
IF k = Password Then
Docmd.OpenForm"a"
Else
R = MsgBox ( "sorry" )
End IF
هذا يعمل عند الضغط على زر الامر اوكي
بس المشكلة الثانية انه مايرضى يكتب ولا حرف بتكست اللي حطيته عشان اكتب كلة السر فيه
بس ابيكم تعلموني هذا ومشكورين
اخي الفاضل
يجب وضع قيمة مربع النص K بين علامتي تنصيص في الكود
انظر الكود في المثال المرفق
يكون بهذه الطريقة
Private Sub OK_Click() If Me.K.Value = "Password" Then DoCmd.Close DoCmd.OpenForm "A" Else MsgBox "Sorry, you have entered the wrong password! Please try again" Me.Undo End If End Sub
وهذا هو المثال
طبعا كلمة السر هي Password
اذا رغبت ان تكون كلمة السر على شكل نجوم فكل ما عليك هو اختيار خصائص مربع النص K وجعل قناع الإدخال له PASSWORD
يعطيك العافية اختي زهرة
والف شكر لك
بس اذا ما اثقل عليك ابي اعرف ليش مايكتب عندي ولا حرف اذا جيت اشوف كيف يعمل مايرضى يكتب لي بالمربع المخصص لكتابة كلمة السر
والملف المرفق امتداده
.rar
ليش ما يفتح عندي وش احتاج برنامج عشان يفتح؟
أخي الفاضل
بالنسبة ان مربع النص لديك لم يقبل ان تكتب فيه اي شيء فهذا عائد الى انك قد قمت بوضع خاصية التمكين لمربع النص على لا
او انك قد قمت بوضع خاصية النموذج على اضافة لا
راجع خصائص النموذج او مربع النص K
بالنسبة لموضوع ان الملف إمتداده rar فهو مضغوط ببرنامج الضغط WinRAR واذا لم يكن متوفر لديك فيكفي ان تبحث في قوقل عن winRAR وستجد الموقع الخاص بالبرنامج فقم بتحميل البرنامج وتثبيته لديك في الكمبيوتر . وهذا البرنامج مثله مثل برنامج الضغط Winzip
عموما اذا لم يكن برنامج الضغط winrar متوفر لديك فقد عدلت لك الملف ببرنامج الضغط winzip
هذا الموضوع مغلق.
