waheidi قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 الاخوة الافاضل اود معرفة ما هي المشكلة لدي في نموذج systempass بحيث انني عندما اختار اسم المستخدم وكلمة المرور له لا يدخل على النموذج الرئيسي واشكر لكم تعاونكم مثال.rar 1 رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 لأي نموذج تريده ان يدخل ؟؟ انت وضعت هذا الأمر للدخول الى فورم main DoCmd.OpenForm "main" رابط هذا التعليق شارك More sharing options...
waheidi قام بنشر فبراير 29, 2020 الكاتب مشاركة قام بنشر فبراير 29, 2020 بالضبط اخي اريده ان يدخل الى نموذج main ولكن عندما اختار اسم مستخدم واحاول ان اكتب كلمة السر لهذا المستخدم لا يدخل على النموذج main بحيث انه بجميع الاحوال يعطيني كلمة المرور غير صحيحة فهنا لا اعرف ما هي المشكلة وجزاك الله خير رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 اذا كانت كلمة المرور غير صحيحة المفترض تعطيه اكثر من محاولة مثلا واذا كانت خطأ يتم الخروج من البرنامج رابط هذا التعليق شارك More sharing options...
waheidi قام بنشر فبراير 29, 2020 الكاتب مشاركة قام بنشر فبراير 29, 2020 (معدل) حتى لو اعطيت كلمة المرور الصحيحة بيعطيني كلمة المرور غير صحيحة فانا مش عارف وين الخطا اخي انت جرب اختار اسم المستخدم ( سفيان ) وكلمة المرور (1976) واضغط موافق ما رح يدخلك على البرنامج رغم انها صحيحة تم تعديل فبراير 29, 2020 بواسطه waheidi رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 1 ساعه مضت, waheidi said: الاخوة الافاضل اود معرفة ما هي المشكلة لدي في نموذج systempass بحيث انني عندما اختار اسم المستخدم وكلمة المرور له لا يدخل على النموذج الرئيسي واشكر لكم تعاونكم مثال.rar 426.73 kB · 25 تنزيلات جرب هيك اخي الكريم مثال.rar رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 1 hour ago, waheidi said: حتى لو اعطيت كلمة المرور الصحيحة بيعطيني كلمة المرور غير صحيحة فانا مش عارف وين الخطا اخي انت جرب اختار اسم المستخدم ( سفيان ) وكلمة المرور (1976) واضغط موافق ما رح يدخلك على البرنامج رغم انها صحيحة جرب هذا التغيير مثال.rar 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 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 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 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" والله اعلى واعلم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق 1 1 رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 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" والله اعلى واعلم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق الف شكر لكم استاذنا العزيز 1 رابط هذا التعليق شارك More sharing options...
waheidi قام بنشر مارس 1, 2020 الكاتب مشاركة قام بنشر مارس 1, 2020 اخواني الافاضل اشكركم جميعا وزادكم الله علما ونفع بكم اجمعين 1 رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر مارس 2, 2020 مشاركة قام بنشر مارس 2, 2020 15 hours ago, waheidi said: اخواني الافاضل اشكركم جميعا وزادكم الله علما ونفع بكم اجمعين انحلت مشكلتكم ان شاء الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان