كيف ابحث عن رقم في textbox

مانوع عملية الربط التي تستخدمها Data Ado Doa

حياك الله استاذي الكريم HnHn

أداة الربط ADO وشكرا لمرورك أستاذي

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

تفضل اخي الكود التالي

RS.Find "[MyField] = '" & Text1 & "'"

مع العلم بأن هناك طرق اخرى كثيرة للبحث

========

الى اللقاء

استعمل لغة الإستعلام العادية خالص

select * from TabelName where FiledName = '" & text1.text & "' H

مالكش دعوة بحرف الــ H

ولنفرض ان Re هي قناة الإتصال

هابيقى

If Re.Eof and re.Bof then

' كده لم يجد الرقم اللي مكتوب في التيكست في الحقل اللي انت هاتحده

Else

' كدة وجد الرقم

end if

---------------------------------------------

شرح جملة If

----------

لو نهاية الملف هو هو بدابة الملف ( بعني لم يجد الرقم الكتوب في التيكست ) (فارغ يعني ) اعمل كذا

Else

----

اذا لم يكون نهاية الملف هو هو بداية الملف ( وجد الرقم المكتوب في التيكست ) (لم يكن فارغ يعني ) اعمل كذا

----------------------------------------------------------------------------

راسلني إذا لم تفهم

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

عفوا اعتقد اني تسرعت في الرد

راجع الرابط التالي وارجو انه يكون المطلوب

/index.php?showtopic=102084

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

الى اللقاء

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

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

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

اخي المثال المرفق في الموضوع الذي وضعت لك وصلته يحتوي على الكود المطلوب

كل ما عليك هو تحميله واستخلاص الكود الذي تحتاجه منه

=======

الى اللقاء

اخي الكريم

جربت المثال المرفق ولم يفدني فهل هو مخصص للمفتاح الاساسي فقط ام يفيد لأي حقل من حقول الجدول

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

ارجو الافادة

وشكرا جزيلا

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

ضع الكود التالي في حدث Change الخاص بالتكست بوكس المخصص لعملية البحث

If Trim(Text1) = "" Then Exit Sub
Dim TestID As String
RS.MoveFirst
RS.Find "[PersonID] = '" & Text1 & "'"
On Error GoTo 1
TestID = RS("FirstName")
MsgBox "عفوا البيان الذي تم ادخاله موجود مسبقا", 16
Exit Sub
1

ان شاء الله يكون ده المطلوب

==========

الى اللقاء

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

اخي الكريم آسف جدا حتى الان لم تحل المشكلة وأريد ان افهم مافائدة المتغير (TestID) في الكود وهل يكفي ان اضع اسم الحقل الذي ابحث فيه مكان [PersonID]

شكراجزيلا لتجاوبك

اخي العزيز abosaad54

انا كتبتلك الحل انظر اليه

وجربه

انا استخدمه

وشغال 100 %

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

اخي هذا المتغير فائدته في هذا السطر

TestID = RS("FirstName")

حيث ان عملية البحث ينتج عنها حالة من اتنين

ان عملية البحث وجدت وبالتالي الـ RS سيعود بقيمة

الحالة التانية انه يرجع الـ RS فاضي

وهنا يأتي دور المتغير TestID

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

بشكل طبيعي ولا يوجد اي خطأ

فنقوم بوضع رسالة تفيد بانه الرقم موجود فعلا ونخرج من الصب

اما لو كان الـ RS رجع بقيمة فاضية فانه عندما يقابل هذا السطر

TestID = RS("FirstName")

سوف يحدث خطأ نتيجة انك تريد وضع قيمة فارغة في متغير

وهنا نستغل الخطأ بأننا نجعله يذهب للكود المراد تنفيذه عندما يكون الرقم غير موجود

هي دي الفكرة كلها , سهلة ولكن تحتاج شوية تركيز

---------------

اما بالنسبة للحقل PersonID فطبعا لازم حضرتك تستبدله بالحقل المراد البحث فيه

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

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

تمنياتي بالتوفيق :)

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

الى اللقاء

اعتقد أن الاخ MR^King

اعطى الحل على حسب ما تفضلت بطرحه

شكرا يا اخ MR^King على الشرح الطيب الان بدأت افهم سأجرب واوافيك بالنتيجة

وللاستاذ HnHn الشكر على اهتمامه ومتابعته

كما اشكرك يا اخ MohamedAliSalim لتعاونك

الاخ MR^King اشكر لك جهودك نعم جربته وأفاد وكان على مايرام افادك الله وزادك من العلم النافع

لك احترامي وتقديري

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

لقد اخبرتك بأن حل الاخ MR^King صحيح وعلى الرابط المرفق يوجد حل آخر اذا اردت .. حيث يمكنك ابدالا الجدول ليبحث لك في نفس الجدول في حقل ثاني اذا اردت فأنا وضعت العملية للبحث في جدول آخر لكي تلاحظ العملية

الرابط ولتحميل المثال أضغط هنا

شكرا جزيلا استاذي الكريم في الحقيقة وجدت المثال رائع جدا وسأستفيد منه كثيرا سلمت يداك