أريد كود بحث

لقد قمت بارفاق مثال عن data control

يقوم بعمل عدة وظائف التعديل والبحث وغيرها

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

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

وأي سؤال آخر أنا جاهز

GroupSavEditBakFindSortFilMov.zip

السلام عليكم

لا يلزم وضع مفتاح أساسي لقاعدة البيانات ولكن يستحسن وضعه

ِكراً على ردكم

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

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

(" ' * "& Data1.Recordset.FindFirst ("Title Like '" & sf

فياريت تحطلى كود بحث وإضافة وتعديل وحفظ فى مثال على قاعدة بيانات أكسس وتكون الأداة data control ظاهرة

أرجوك

بس ياريت تضع مثال بة مرة بحث برقم وأخر بحث بأسم بس ياريت ماتغير فى المثالين

وأيضاً مثال تكون عندما يفتح البرنامج يطلب كلمة سر للدخول وإذا كتبها خطأ تظهر رسالة خطأ

وإذا كتبها صح يدخل

وبعد ما يدخل يستطيع تغير كلمة المرور بس يكتب كلمة المرور القديمة ثم الجديدة ويكرر كتابة الجديدة مرة أخرى

وشكراً

هذا مثال من منتدى اهلا عرب للأخ النبهاني

أعتقد أنو فيه ما يلزم

تحياتي B)

Advanced Search.rar

السلام عليكم

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

بالنسبة للبحث توجد عدة طرق منها استعمال الامر findfirst او يمكن استعمال الكود التالي :

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

data1.recordset.movelast
x=data1.recordset.recordcount
data1.recordset.movefirst

if text5.text=text1.text then exit sub

for i=2 to x
data1.recordset.movenext
if text5.text=text1.text then exit sub
next

if not text5.text=text1.text then msgbox (text5.text & " is not found")

اذا اردت البحث عن جزء من كلمة و ليس الكلمة كاملة فاستبدل جملتي if أعلاه ب:

if inst( text1.text,text5.text,1) then exit sub

شكراً أخى hishamnasr و أخى hnhn على مساعدتكم لى