اعضاء منتدى الفريق العربي للبرمجة
السلام عليكم
اشادة وتقدير لاعضاء الموقع مع تفاعلهم مع الاخوه في مساعدة الاعضاء (جزاكم الله خيرا)
لما لمسته من متابعة لمشاكل الاعضاء حتى انتهاء المشكلة .
بصراحه انا مسجل لديكم من فتره ليست قصيره لكن والله ماعندي خبره في مجال برمجة
لغة الفيجول بيسك ولو عندي الخبره الكافيه كنت شاركة معاكم
فعزائي ان تسامحوني على التقصير ......
لكن في اوقاتي فراغي لابد ان اتصفح الموقع .... وليس موقع بل (مرجع) للمهتمين للبرمجة
---------------------------------------------------------------------------------------
سبق ان كتبت الموضوع في منتدى (العاصفة) واظن انهم مشغولون فكتبت الموضوع لعل وعسى
احد يساعدني في هذا البرنامج الصغيرون ..
واجهتني بعض المشاكل في هذه الاكواد من شرح كتاب اخينا (الصقر الجارح) جهزاه الله خيرا ..
فهل عندكم اي فكره عن هذه ( الاكواد) شاكر ومقدرا شرحها وتوضيحها .....
--------------------------------------------------------------------------------------
سوف اسرد لكم هذه المشاكل الآن
1- زر (العضو التالي) عندما نضغط عليه إلى انتهاء أخر سجل يتوقف عند أخر سجل ولا يعطي أمر خطأ
هذا الذي أريده لا يعطيني (خطأ) (هذا الأمر يعمل على أكمل وجه)
-------------------------------------------------------------------------------------------------------
2- زر (العضو السابق) عندما نكون عند أول سجل، وأول سجل هو (خالد) نضغط على (العضو السابق)
وهو في بداية أول سجل لا يتوقف عند أول سجل لكن يذهب إلى خانات فاضيه في ( text box )
بمعنى لا يتوقف عند أول سجل ويظهر خطأ ( Run time error 3021 ).
( هذا الأمر أريده أن يقف عند أول سجل وهو (خالد) لا يذهب للخلف أبدا ).
-------------------------------------------------------------------------------------------------------
3- زر البحث أريده أن يبحث عن أي جملة في خانة السجل الأول بمعنى:
ليس فقط الاسم الأول-- أي أن ( الكود ) الموجود في( زر البحث) إجباري للاسم ( الأول )
بحيث لو وضعت الاسم كامل (خالد محمد حسن الحربي) لا يعطيني أي نتيجة..
بمعنى لو بحثت بالاسم (الثاني) مثال (محمد) أو بالاسم (الثالث) مثال (حسن) أو الاسم (الرابع)
مثال ( الحربي)
بحيث لو بحثت بإحدى هذه الخانات يعطيني السجل كاملاً باسم العضو المسجل .
هل يوجد ( كود ) يبحث عن أي خانة في السجل ويعطيني النتيجة كاملة أو الاسم كامل..
-------------------------------------------------------------------------------------------------------
4- مشكلة صغيره وهي ( Tab ) لا تعمل بالتسلسل في سجل الأعضاء بمعنى:
خانة الاسم الأول (نضغط) على ( Tab ) ليذهب إلى خانة الاسم الثاني و (نضغط) على (Tab ) لنذهب
إلى خانة الاسم الثالث....... الخ... (العملية عندي بالعكس ). (أريده أن يعمل بالتسلسل).
-------------------------------------------------------------------------------------------------------
5- اريد ان اضيف ( زر ) جديد يقوم بتعديل على السجلات
مثال: تعديل (الاسم) او ( الرقم) الخ..... يعني اي شيء في السجل اريد ان اعدله ..
--------------------------------------------------------------------------------------------------
6- اريد ان اضع على المشروع كلمة مرور بحيث تكون اختيارية للمستخدم الذي معه نسخة المشروع
مثال1- اعطيت نسخه لصديقي ويريد ان يضيف كلمة مرور خاصه له
مثال2- ايضا اعطيت نسخه لصديقي الثاني ويريد ان يضيف كلمة مرور خاصة له
ملاحظة مهمة((( ياريت تشرحون الاكواد التي تضيفوها على المشروع )))
ملف مرفق
http://www.uparab.com/get.php?filename=1133905378.zip
او
======================================
بالنسبة هذه الاداه غير موجودة في مكتبة الفيجول
( Microsoft Data Bound Grid Control 5.0 (sps) )
وقد بحثت عنها ولم اجدها عن طريق الامر
( References ) <-------- ( project )
اين اجد هذا الملف لو بحثت في الانترنت
ملاحظة : بعض دروس الاخوة في المنتديات يكون شرحه على درس معين ويقول اضف هذه الاداه من
المكتبة عن طريق الامر ( References ) <-------- ( project )
فاذا لم اجد هذه الاداه في مكتبة الفيجول (اين ابحث عنها في الانترنت)
*********************************************************************
ملاحظة اخيره لاعدمناكم
هناك بعض الاوامر في البحث حاولت ان اطبقها على المشروع الذي معي لكن لم تعمل معي
هل لكل مشروع يلزمه اوامر معينه . وهذه بعض الاوامر في البحث عن سجل..
من كتاب ( ناصر محمد سالم) Nasser50001 جزاه الله خيرا على الكتاب
البحث باستخدام جملة DO WHILE
للبحث باستخدام جملة DO WHILE اكتب الكود التالي :
Dim a As String
a = InputBox("ادخل اسم الطالب","بحث")
rs.MoveFirst
Do While Not rs.EOF ' كرر لنهاية الجدول
If rs![st_name] = a Then
Text1 = rs![st_no]
Text2 = rs![st_name]
Text3 = rs![ address]
Text4 = rs![b_date]
Text5 = rs![phone]
Exit Sub
End If
rs.MoveNext
Loop
---------------------------------------------------------------
اعذروني لطول السؤال لكن ثقوا ان الله لايضيع اعمالكم ..
مبتدى اكسس