DBA.Oracle قام بنشر أبريل 22, 2010 الكاتب مشاركة قام بنشر أبريل 22, 2010 تعديل ممتاز علي الكود الان هو يعمل و مضبوط جزاك الله كل خير واعذرنى لو اطلت عليك فى هذا الاستفسار رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 السلام عليكم و رحمة الله أخي احمد كود جميل و حل رائع للمشكلة و بقي تعديل بسيط حتى لا يتعارض مع الباسورد في الحالة الثالثة عندما تكون ارقام 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 رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 22, 2010 الكاتب مشاركة قام بنشر أبريل 22, 2010 اخي يحي فعلا لاحظت ان الباسوورد فى الحالة الثالثة "الارقام" لا يعمل حاولت اضافة تعديلك ولكن عاد الكود مرة اخري يدخل حتي لو كانت كلمة المرور خطأ بصراحة انا غير متقن لهذه النوعغية من الاكواد حتي استطيع اكتشاف سبب ظهور الخطأ ولكن جزاكم الله كل خير جميعا علي مساعدتي رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 اخواني الكرام الحمد لله الذي هدانا لهذا - وما كنا لنهتدي لولا ان هدانا الله اخي يحيى الله لايحرمنا من لمساتك الحنونة - ابدا رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 اخي يحي فعلا لاحظت ان الباسوورد فى الحالة الثالثة "الارقام" لا يعمل حاولت اضافة تعديلك ولكن عاد الكود مرة اخري يدخل حتي لو كانت كلمة المرور خطأ بصراحة انا غير متقن لهذه النوعغية من الاكواد حتي استطيع اكتشاف سبب ظهور الخطأ ولكن جزاكم الله كل خير جميعا علي مساعدتي السلام عليكم و رحمة الله أخي هل تقصد ان المشكلة لم تحل بعد أم انه تم حلها وضح لنا لو سمحت === أخي أحمد جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 22, 2010 الكاتب مشاركة قام بنشر أبريل 22, 2010 (معدل) اقصد ان الملف المرفق من اخى احمد زمان تم فيه حل المشكلة لكن مع استبعاد حالة ان يكون الباسوورد يبدأ بـ رقم وبعد تعديل سيادتك حتي تتجاوز مشكلة الارقام فى كلمة السر عاد الكود مرة اخري مثل البداية لا يعمل بشكل مضبوط لو ادخلت اسم مستخدم وكتبت كلمة مرور خطأ يذهب لتسجيل دخول سليم فممكن ان نكتفي بالحل الاول وهو ان الكود يعمل مضبوط مع تجنب مشكلة بداية الباسوورد بالارقام طالما ليس لها حل واسف علي تعطيلي لك واضاعة وقتك انت واخى احمد زمان وجزاكم الله كل خير تم تعديل أبريل 22, 2010 بواسطه DBA.Oracle رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 السلام عليكم اخي يحيى و اخي صاحب الموضوع انا لدي حل آخر ممكن نتغلب بيه على مشكلة الأرقام وهو باستخدام الدوال في ورقة Accounts بحيث تعطينا الناتج TRUE او False و من هنا نتجه للورقة المطلوبة وهي باستخدام الدالة SumProductالتي سبق وان شرحها الأستاذ يحيى وهكذا سوف يكون كود الفورم بسيط جدا رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 واسف علي تعطيلي لك واضاعة وقتك انت واخى احمد زمان وجزاكم الله كل خير السلام علكيم و رحمة الله سامحك الله أخي فليس بتضييع لوقتا بل بالعكس عني و نيابة عن اخي احمد نحن سعيدان بهذه المحاولات للوصول لحل نهائي معك =============== و سنصل إن شاء الله رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 22, 2010 الكاتب مشاركة قام بنشر أبريل 22, 2010 اخي يحي بصراحة احرجتنى من كثرة ذوقك ومحاولاتك لمساعدتي فى كل استفساراتى بالمنتدي اخي احمد اعلم انك تعبت من كثرة المحاولات معي ولا اعلم ماذا اقول لكما غير جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 إخواني الأعزاء أستأذنكم في إضافة بسيطة للحلول والمجهود الرائع المبذول والإضافة تتمثل في حل مشكلة أن يبدأ ال password بأرقام وذلك بتعريف المتغير BB AS STRING والإضافة الثانية بتعديل نمط حروف ال password الى النمط المخفي (***) والشكر موصول لكم جميعاً . تحياتي أبو عبدالله accounts_test_ya2.rar رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 22, 2010 الكاتب مشاركة قام بنشر أبريل 22, 2010 اخي ابو عبد الله صاحب اللمسات الذهبية سلمت من كل شر وجزاك الله خير علي عطائك المميز واللامحدود وكل الشكر لاخي يحي واخى احمد زمان علي المجهود الرهيب الذي قاما به لمساعدتي فأخيرا وجد حل بفضل الله ومساعدتكم وايضا الاضافة الممتازة لاخينا الكريم ابو عبد الله لكم جميعا فائق التقدير والاحترام والدعوات بالخير رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 السلام عليكم و رحمة الله وبركاته استاذنا الفاضل القدير ابو عبد الله ماشاء الله تسلم الأيادي و جزاك الله كل خير و الشكر موصول للأخوة الأستاذ يحيى و صاحب السؤال و استأذنكم بارفاق الحل الحل الآخرالذي سبق ذكرة في المشاركة 32 accounts_test_ya3.rar رابط هذا التعليق شارك More sharing options...
dddd قام بنشر أبريل 23, 2010 مشاركة قام بنشر أبريل 23, 2010 [http://www.officena.net/ib/index.php?showtopic=31141 برجاء مشاهدة هذا الموضوع الملف الاخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.