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

[DBA.Oracle]

تعديل ممتاز علي الكود

الان هو يعمل و مضبوط جزاك الله كل خير واعذرنى لو اطلت عليك فى هذا الاستفسار

[يحيى حسين]

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

أخي احمد كود جميل و حل رائع للمشكلة

و بقي تعديل بسيط حتى لا يتعارض مع الباسورد في الحالة الثالثة عندما تكون ارقام

 

Private Sub CommandButton1_Click()

Dim AA

Dim BB

Dim i As Integer

AA = ComboBox1.Text

BB = Val(TextBox1.Text)

For i = 1 To 100

    	If BB <> "" And AA = Sheets("Accounts").Range("a" & i).Value Then

    	If BB = Val(Sheets("Accounts").Range("b" & i)) Then

    	Sheets("sheet1").Select

  	GoTo 9

   	Else

    	Sheets("sheet2").Select

End If

End If

Next i

9 End

End Sub

[DBA.Oracle]

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

[احمدزمان]

اخواني الكرام

الحمد لله الذي هدانا لهذا - وما كنا لنهتدي لولا ان هدانا الله

اخي يحيى

الله لايحرمنا من لمساتك الحنونة - ابدا

[يحيى حسين]

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

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

أخي هل تقصد ان المشكلة لم تحل بعد

أم انه تم حلها

وضح لنا لو سمحت

===

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

[DBA.Oracle]

اقصد ان الملف المرفق من اخى احمد زمان تم فيه حل المشكلة لكن مع استبعاد حالة ان يكون الباسوورد يبدأ بـ رقم

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

فممكن ان نكتفي بالحل الاول وهو ان الكود يعمل مضبوط مع تجنب مشكلة بداية الباسوورد بالارقام طالما ليس لها حل

واسف علي تعطيلي لك واضاعة وقتك انت واخى احمد زمان

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

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

[احمدزمان]

السلام عليكم

اخي يحيى و اخي صاحب الموضوع

انا لدي حل آخر ممكن نتغلب بيه على مشكلة الأرقام

وهو باستخدام الدوال في ورقة Accounts

بحيث تعطينا الناتج TRUE او False

و من هنا نتجه للورقة المطلوبة

وهي باستخدام الدالة SumProductالتي سبق وان شرحها الأستاذ يحيى

وهكذا

سوف يكون كود الفورم بسيط جدا

[يحيى حسين]

واسف علي تعطيلي لك واضاعة وقتك انت واخى احمد زمان

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

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

سامحك الله أخي

فليس بتضييع لوقتا بل بالعكس

عني و نيابة عن اخي احمد

نحن سعيدان بهذه المحاولات للوصول لحل نهائي معك

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

و سنصل إن شاء الله

[DBA.Oracle]

اخي يحي

بصراحة احرجتنى من كثرة ذوقك ومحاولاتك لمساعدتي فى كل استفساراتى بالمنتدي

اخي احمد

اعلم انك تعبت من كثرة المحاولات معي

ولا اعلم ماذا اقول لكما غير جزاكم الله كل خير

[أبوعبد الله]

إخواني الأعزاء

أستأذنكم في إضافة بسيطة للحلول والمجهود الرائع المبذول والإضافة تتمثل في حل مشكلة أن يبدأ ال password بأرقام وذلك بتعريف المتغير BB AS STRING والإضافة الثانية بتعديل نمط حروف ال password الى النمط المخفي (***) والشكر موصول لكم جميعاً .

تحياتي

أبو عبدالله

accounts_test_ya2.rar

[DBA.Oracle]

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

سلمت من كل شر وجزاك الله خير علي عطائك المميز واللامحدود

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

لكم جميعا فائق التقدير والاحترام والدعوات بالخير

[احمدزمان]

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

استاذنا الفاضل القدير ابو عبد الله

ماشاء الله

تسلم الأيادي و جزاك الله كل خير

و الشكر موصول للأخوة الأستاذ يحيى و صاحب السؤال

و استأذنكم

بارفاق الحل الحل الآخرالذي سبق ذكرة في المشاركة 32

accounts_test_ya3.rar

[dddd]

[http://www.officena.net/ib/index.php?showtopic=31141

برجاء مشاهدة هذا الموضوع الملف الاخير