السلام عليكم ،،
أعرض عليكم فورم بسيط جداً خاص بكلمة المرور مع إمكانية تغيير كلمة المرور عند الرغبة
هدية مني لكم
أنا أعلم أن هذا الشيئ سهل وبسيط بالنسبة لخبراء المنتدى
ولكني عرضته ليستفيد منه الاعضاء المستجدين.....
فأرجو أن ينال ذلك على إعجابكم
فورم كلمة المرور مع تغيير الكلمة عند الرغبة
مغلق
ألف شكر لك أخي بو يوسف على جهودك المفيدة
تحياتي لك
احنا بالخدمة يا مشرفنا الغالي
مشكووور أخوي
في مشكلة بالفورم
هل ممكن تكون بسبب ان الاكسيس لا يدعم اللغة العربية
اروجك الافادة
لاني في غاية الحاجة لهذا الكود
شاكرا لك مساعدتك مقدما
الأخ/waenek
قمت بتشغيل الفورم وتجربته
ووجدت أنه شغال مية مية
أرجو أن تعرض لنا المشكلة بالضبط
الف شكر أخي نموذج رائع
بو يوسف الراشد
مشكور على الرد و التواصل
المشكلة الي عندي ان الفيجول بيسك فية كلمات بالعربي والبرنامج الي عندي ما يقرا العربي
فيا ليت تضع الكود لكي احاول اغير فية الكلمات العربية
مع الشكر و اسف على ازعاجي لك
ألف شكر يا
اخي العزيز علي هذه المشاركة المفيدة ...
ولكن ارجو منك معرفة كيفية زيادة عدد كلمة السر و كيفية وضع اسم مستخد ايضاً مع كلمة السر و أين تخزن كلمات السر في قاعدة البيانات مع العلم اني قمت بفتح الExpression الخاص بالقاعدة و اتمني مشكوراً الرد علي ...
أسألك الفاتحة لكل شهيد... حر ...
أدري اني ازعجتك يالغالي بس عندي طلب اخير لحل المشكلة
و هو تغير الكلمات العربية المتبقية
و ل تسهيل عملك سأضع الكود كما يظهر لي
و اسف على الازعاج المتكرر ولا كن حاجتي الماسة للكود لا توصف
-------------------------------------------------------------------------------------
Private Sub Form_Close()
A = "a"
B = "b"
SaveSetting A, B, "PASS2", PASS2
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim C As String
A = "a"
B = "b"
PASS2 = GetSetting(A, B, "PASS2", PASS2)
ßáãÉ_ÇáãÑæÑ.SetFocus
End Sub
Private Sub ÃãÑ14_Click()
If PASS3 <> PASS2 Then
aa = MsgBox("ßáãÉ ÇáãÑæÑ ÇáÍÇáíÉ ÎÇØÆÉ" & vbCr & "...íÑÌì ÇáãÍÇæáÉ ãÑÉ ÃÎÑì", vbMsgBoxRight + vbQuestion, "ãáÇÍÙÉ")
PASS3.SetFocus
PASS3 = Null
ElseIf IsNull(PASS3) Then
bb = MsgBox("Þã ÈÅÏÎÇá ßáãÉ ÇáãÑæÑ ÇáÍÇáíÉ", vbMsgBoxRight + vbInformation, "ãáÇÍÙÉ")
PASS3.SetFocus
ElseIf IsNull(PASS14) Then
cc = MsgBox("Þã ÈÅÏÎÇá ßáãÉ ÇáãÑæÑ ÇáÌÏíÏÉ", vbMsgBoxRight + vbInformation, "ãáÇÍÙÉ")
PASS14.SetFocus
ElseIf PASS3 = PASS2 Then
PASS2 = PASS14
dd = MsgBox("Êã ÊÛííÑ ÇáßáãÉ ÇáÓÑíÉ", vbMsgBoxRight + vbInformation, "ãáÇÍÙÉ")
End If
End Sub
Private Sub ÃãÑ3_Click()
If IsNull(PASS1) Then
ee = MsgBox("Þã ÈÅÏÎÇá ßáãÉ ÇáãÑæÑ", vbMsgBoxRight + vbInformation, "ãáÇÍÙÉ")
PASS1.SetFocus
ElseIf PASS1 = PASS2 Then
DoCmd.Close
DoCmd.OpenForm "äãæÐÌ1"
Else
ff = MsgBox("ßáãÉ ÇáãÑæÑ ÎÇØÆÉ" & vbCr & "...íÑÌì ÇáãÍÇæáÉ ãÑÉ ÃÎÑì", vbMsgBoxRight + vbQuestion, "ãáÇÍÙÉ")
PASS1 = Null
PASS1.SetFocus
End If
End Sub
الأخ/sallamone
تستطيع زيادة كلمة السر من خلال الضغط على تغيير كلمة المرور التي وضعته لك في الفورم ومن ثم كتابة (12345) في خانة كلمة المرور الحالية ومن ثم وضع أي كلمة تريدها تصل إلى خمسين حرف ثم الضغط على موافق
وبالنسبة لوضع مستخدمين في الفورم فهذا يحتاج إلى التفيكر في صنعه
ولا أعتقد أن ذلك الأمر يصعب على خبراء هذا المنتدى الرائع
ولكن إذا كنت بحاجة إلى مستخدمين في فتح القاعدة فتوجد طريقة سهلة جدا وذلك باستخدام "مسئول مجموعة العمل" تستطيع من خلاله استخدام مستخدمين وكذلك تستطيع التحكم بصلاحيات المستخدمين.
الأخ/waenek
بالنسبة للشفرات العربية المتبقية في (VBA) فإنها عبارة عن رسائل (Msgbox) يجب أن تترجم إلى العربية ولا أستطيع أن أترجمها جيدا.
وأنتصحك باقتناء نسخة اوفيس تتقبل اللغة العربية وتريح بالك من هذه المشكلة...
الأخ الغالي بو يسوف الراشد
بداية اود ان اشكرك علي ردك لي
ولكن عندما طلبت زيادة كلمة السر لم أقصد زيادة عدد الحروف ولكني قصدت زيادة كلمات السر بمعني أوضح ان تكون هناك أكثر من كلمة سر وليست واحدة فقط و بالنسبة لمسئول مجموعة عمل فأنا لدي دراية بها ولكن المشكله اني اريد ان يكون البرنامج مصمم وبداخلة كلمات السر و الأعضاء و ليست عن طريق " مسئول مجموعة عمل" وذلك لما بها من عيوب عند نقلها لجهاز أخر ... و في النهاية أشكرك جزيل الشكر علي ردك علي و أتمني لك التوفيق و جزاك الله كل خير... أسلام
هذا الموضوع مغلق.