استفسار فى كود فورم دخول للاكسيل

[DBA.Oracle]

اذا فرضنا ان عندنا صفحة اسمها Accounts بها اسماء الاكونتات العمود A يحتوي علي اسماء الاكونتات والعمود B يحتوي علي كلمات المرور

فعند الضغط علي دخول يقوم بمقارنة المدخلات الحالية بالمعلومات الموجودة مسبقا

حاولت كتابة هذا الكود لكن فيه خطأ لا اعلمه بصراحة ممكن مساعدة فى تعديله

وجزاكم الله كل خير

For i = 2 To 100

If ComboBox1.value = Sheets("Accounts").Cells(i, "A") And TextBox1.value = Sheets("Accounts").Cells(i, "B") Then

MsgBox "ok"

End if

Next i

[احمدزمان]

السلام عليكم

الله يوفقك اخي الكريم

ممكن تساعدنا بمرفق نشتغل علية

من شان تكون النتائج صحيحة لك

[يحيى حسين]

السلام عليكم و رحمة الله

بعد اذن اخي احمد زمان

كودك صحيح في حالة كانت الباسورد عبارة عن كلمة

أما اذا كان رقم

فيجب تعديل الكود

For i = 2 To 100

If ComboBox1.Value = Sheets("Accounts").Cells(i, "A") And TextBox1.Value = Val(Sheets("Accounts").Cells(i, "B")) Then

MsgBox "ok"

End If

Next i

[DBA.Oracle]

اخي احمد زمان

فى المرفق مثال علي ما اقصد

اخي يحي

جزاك الله كل خير علي المساعدة لكن بصراحة مازال الكود لا يعمل معي فلو ممكن نظرة سريعة علي المرفق

وجزاكم الله كل خير

accounts_test.rar

[DBA.Oracle]

اعتذر عن خطأ جسيم فى المرفق برجاء استخدام Ctrl+Break لتجاوز الخطأ

[يحيى حسين]

السلام عليكم و رحمة الله

أخي لقد جربت ملفك و اشتغل معي بدون اي مشاكل

و إنتبه لملاحظتي في المشاركة رقم 3

[DBA.Oracle]

اخي يحي برجاء محاولة الدخول باليوزر u2 او u3 ولك جزيل الشكر

تم تعديل أبريل 21, 2010 بواسطه DBA.Oracle

[يحيى حسين]

السلام عليكم و رحمة الله

أخي جرب هذا الكود

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 100

	If ComboBox1.Value = Sheets("Accounts").Range("a" & i).Value And Val(TextBox1.Value) = Val(Range("b" & i).Value) Then

    	Sheets("sheet1").Select

	End If

Next i

End Sub

[DBA.Oracle]

الكود يعمل بعد تعديلك المميز اخي يحي

جزاك الله كل خير

ومبروك علي الموقع ودائما الي الامام ان شاء الله

[يحيى حسين]

حياك الله اخي

و اهلا و سهلا بك

[احمدزمان]

السلام عليكم

بسم الله ماشاء اخي يحيى

الله يزيدك من علمه وفضله

[DBA.Oracle]

السلام عليكم

اعتذر عن الاطالة فى هذا الاستفسار

لكن اخي يحي يوجد مشكلة فى الكود بصراحة لم انتبه لها بالامس

برجاء مراجعة المرفق واوضحت المشكلة فى الملف المرفق

ولك فائق الشكر والتقدير

accounts_test.rar

[احمدزمان]

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

بعد اذن اخي الفاضل يحيى حسين

الذي احب ان اسابقه دائما - لأنه رجل صاحب علم على اصوله

اخي الكريم

جرب المرفق

accounts_test.rar

[DBA.Oracle]

قمت بعدم ادخال ولا اسم مستخدم ولا كلمة مرور فذهب لصفحة دخول سليم

قمت بإدخال اسم صحيح ومرور صحيح فذهب الي دخول خطأ

قام بالعكس

[احمدزمان]

السلام عليكم

مش قلتلك

لأنه رجل صاحب علم على اصوله

[DBA.Oracle]

الاستاذ / احمد زمان

شكرا لمحاولة المساعدة لكن للاسف المشكلة ما زالت قائمة

برجاء مراجعة الرد 14

[يحيى حسين]

السلام عليكم

مش قلتلك

لأنه رجل صاحب علم على اصوله

أخي احمد جزاك الله كل خير

و نحن من نتعلم منكم أخي الفاضل

==============

و اعتقد ان كود الاخ يحتاج إلى عملية إيقاف تكرار العد

و لقد جربته مع

Do Until

Loop

و لكني لم اصل لنتيجة لحد الآن

فريما يطرح أحد الأخوة فكرة تساعدنا

[DBA.Oracle]

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

تم تعديل أبريل 22, 2010 بواسطه DBA.Oracle

[احمدزمان]

السلام عليكم

اخي يحيى و اخي الفاضل

جرب المرفق

ولكن

لاتستخدم ارقام فقط بدون نص في الخلايا

accounts_test.rar

[DBA.Oracle]

تدخل اسم المستخدم

ولا تدخل كلمة مرور

فيدخل علي تسجيل صحيح

وحتي لو تركت المدخلات كلها فارغة بدون كتابة فيدخل علي دخول صحيح

[احمدزمان]

السلام عليكم

وهذا بعد تجاهل الفراغات في الفورم

accounts_test.rar

[DBA.Oracle]

اخي احمد زمان لك فائق الشكر علي المساعدة لكن المشكلة لازالت قائمة وفى المرفق شرح فيديو لما يحدث معي عند استخدام ملفك الاخير

Result.rar

[احمدزمان]

السلام عليكم

شيء غريب

انا جربته عدة مرات و اعطاني نتائج صحيحة

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

جرب مرة اخرى

accounts_test_ya.rar

[DBA.Oracle]

اخترت اسم مستخدم وكتبت كلمة مرور خطأ

فذهب مرة اخري الي صفحة تسجيل صحيح

للاسف

[احمدزمان]

السلام عليكم

الله يصبرك علي شوي

جرب هذا المرفق

اختلفت الطريقة

accounts_test_ya2.rar