مشكلة في نموذج كلمة المرور

[waheidi]

الاخوة الافاضل اود معرفة ما هي المشكلة لدي في نموذج systempass بحيث انني عندما اختار اسم المستخدم وكلمة المرور له لا يدخل على النموذج الرئيسي 

واشكر لكم تعاونكم

 

مثال.rar

[رعد داود]

لأي  نموذج  تريده  ان  يدخل ؟؟
انت  وضعت  هذا  الأمر  للدخول  الى  فورم  main

DoCmd.OpenForm "main"

[waheidi]

بالضبط اخي اريده ان يدخل الى نموذج main ولكن عندما اختار اسم مستخدم واحاول ان اكتب كلمة السر لهذا المستخدم لا يدخل على النموذج main بحيث انه بجميع الاحوال يعطيني كلمة المرور غير صحيحة فهنا لا اعرف ما هي المشكلة وجزاك الله خير

[رعد داود]

اذا  كانت  كلمة  المرور  غير  صحيحة   المفترض  تعطيه  اكثر  من  محاولة  مثلا
واذا  كانت  خطأ  يتم  الخروج  من  البرنامج

[waheidi]

حتى لو اعطيت كلمة المرور الصحيحة بيعطيني كلمة المرور غير صحيحة فانا مش عارف وين الخطا اخي انت جرب اختار اسم المستخدم ( سفيان ) وكلمة المرور (1976) واضغط موافق ما رح يدخلك على البرنامج رغم انها صحيحة

تم تعديل فبراير 29, 2020 بواسطه waheidi

[عبد اللطيف سلوم]

1 ساعه مضت, waheidi said:

الاخوة الافاضل اود معرفة ما هي المشكلة لدي في نموذج systempass بحيث انني عندما اختار اسم المستخدم وكلمة المرور له لا يدخل على النموذج الرئيسي 

واشكر لكم تعاونكم

 

مثال.rar 426.73 kB · 25 تنزيلات

جرب هيك اخي الكريم 

مثال.rar

[رعد داود]

1 hour ago, waheidi said:

حتى لو اعطيت كلمة المرور الصحيحة بيعطيني كلمة المرور غير صحيحة فانا مش عارف وين الخطا اخي انت جرب اختار اسم المستخدم ( سفيان ) وكلمة المرور (1976) واضغط موافق ما رح يدخلك على البرنامج رغم انها صحيحة

جرب  هذا  التغيير 

مثال.rar

[أبوبسمله]

52 دقائق مضت, رعد داود said:

جرب  هذا  التغيير 

مثال.rar 737.95 kB · 0 تنزيلات

احسنت اخى رعد بجلب الباس والمستخدم بداله DLookup

DLookup("[user]", "Pass", "[Pass]=  [n2] and [user]=  [مربع_تحرير_وسرد62]")

واليك تغيير بسيط بالكود الاصلى مشاركه مع اخوانى الافاضل

If (Password = n2) And (UserName = مربع_تحرير_وسرد62.Column(1)) Then

 

وارفق لك مثال اخر خاص بكلمات المرور من مشاركه لاخى @خالد سيسكو باستخدام داله المقارنه StrComp

وده رابط للاستفاده

 

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

مثال.rar اظهار كلمة المرور.rar

[أبوبسمله]

1 ساعه مضت, عبد اللطيف سلوم said:

جرب هيك اخي الكريم 

مثال.rar 445.07 kB · 7 تنزيلات

اخى عبداللطيف على ما اعتقد انك رفعت المثال قبل الحفظ حيث انه ليس هناك اى تغيير حدث

اخى @رعد داود ركز معى بارك الله فيك وجزاك الله خيرا فى يد العون والمحاوله لاخوانك

توضيح لكى تعم الفائده

DLookup("[user]", "Pass", "[Pass]=  [n2] and [user]=  [مربع_تحرير_وسرد62]")

المفروض انك عاوز تجيب الباس الخاص وتختبره هل هو ده ام لا

لكن انت عكست ثم قمت بالاختبار على اساس عدم  مساوه المتغير بصفر

Dim X
X = Nz(DLookup("[user]", "Pass", "[Pass]=  [n2] and [user]=  [مربع_تحرير_وسرد62]"), 0)

If X <> 0 Then
UserName = X
DoCmd.OpenForm "main"

DoCmd.close acForm, "systempass"

Else
MsgBox "كلمة المرور غير صحيحة", vbInformation, "رسالة خطأ"

DoCmd.OpenForm "changepass"

والله اعلى واعلم

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

[رعد داود]

25 minutes ago, أحمد الفلاحجى said:

اخى عبداللطيف على ما اعتقد انك رفعت المثال قبل الحفظ حيث انه ليس هناك اى تغيير حدث

اخى @رعد داود ركز معى بارك الله فيك وجزاك الله خيرا فى يد العون والمحاوله لاخوانك

توضيح لكى تعم الفائده

DLookup("[user]", "Pass", "[Pass]=  [n2] and [user]=  [مربع_تحرير_وسرد62]")

المفروض انك عاوز تجيب الباس الخاص وتختبره هل هو ده ام لا

لكن انت عكست ثم قمت بالاختبار على اساس عدم  مساوه المتغير بصفر

Dim X
X = Nz(DLookup("[user]", "Pass", "[Pass]=  [n2] and [user]=  [مربع_تحرير_وسرد62]"), 0)

If X <> 0 Then
UserName = X
DoCmd.OpenForm "main"

DoCmd.close acForm, "systempass"

Else
MsgBox "كلمة المرور غير صحيحة", vbInformation, "رسالة خطأ"

DoCmd.OpenForm "changepass"

والله اعلى واعلم

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

الف  شكر  لكم  استاذنا  العزيز

[waheidi]

اخواني الافاضل اشكركم جميعا وزادكم الله علما ونفع بكم اجمعين

[رعد داود]

15 hours ago, waheidi said:

اخواني الافاضل اشكركم جميعا وزادكم الله علما ونفع بكم اجمعين

انحلت  مشكلتكم  ان  شاء الله