[تنبيه - عنوان غير مناسب : ]اريد كود ضروري

Private Sub Text5_Change()
Set rs = CN.OpenRecordset("SELECT * FROM tel WHERE SNAME LIKE'" + Trim(Text1.Text) + "*'", 2)
msgbox rs(0)
end sub

الكود ده فى الداو

اما الادو

Private Sub Text5_Change()
[code]rs.open "SELECT * FROM CALL WHERE SNAME LIKE'" + Trim(Text1.Text) + "*'", cn,1,3)

msgbox rs(0)

end sub

بالتوفيق ان شاء الله

اخوي ممكن تشرح لي الكود من فضلك :cry:

Private Sub cmdfind_Click()

If cbosearch.Text <> "" And txtsearch.Text <> "" Then

searchrecords = True

Command4.Caption = "ÚæÏå"

Select Case cbosearch

Case "ÑÞã ÇáÕäÝ"

Call search("item_no='" & txtsearch.Text & "'")

Case "ÇÓã ÇáÕäÝ"

Call search("item_name like '%" & txtsearch.Text & "%'")

Case "ÇÓã ÇáÔÑßÉ"

Call search("item_made like '" & txtsearch.Text & "%'")

Case "ÇáÝÆÉ"

Call search("item_catogry like '" & txtsearch.Text & "%'")

End Select

End If

End Sub

ممكن اتعدلي ع هذا الكود

أخى المبرمج الصغير

لو وضعة مثال صغير به هذا الكود كان الكود اوضح وقدرة اعدلك على مثالك

اما لو عايز شرح الكود اللى فى الاعلى انا برده هشرحه ى المثال ان شاء الله

بالتوفيق ان شاء الله

بسم الله الرحمن الرحيم

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

إليك هذا البرنامج

ياأخي الفاضل

وهو من إعدادي

وفيه طريقة البحث بسرعةٍ لمجرَّد كتابة الحرف الأوَّل

أو بعبارةٍ أخرى

لمجرَّد مطابقة الحرف حرفاَ مثله في المكان نفسه من الكلمة المكتوبة فستندرج فيه كلُّ الكلمات التي هي تطابقه

ولك ولجميع الإخوة في هذا المنتدى الرائع

أهدي لهم هذا البرنامج

أخوكم

د. أنس

Search_quickly_with_Dr_Anas.rar

بارك الله فيك اخي ولكن لو مافي مانع ياريت تلبي لي هذا الطلب

اقتباس

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

اخواني اريد بعض التعديلات علي برنامج محاسبي الموجود في المنتدي وهذا الرابط

/index.ph...t=0&start=0

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

ارجوا الاسراع ياااخواني

لا يوجد حاجه فى الرابط أخى

/index.ph...st&id=37588

هذا الرابط

أخى

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

بالتوفيق ان شاء الله

الأخ الكريم/الأخت الكريمة

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

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

اخي انا اريد التعديل ع فورم استعلامات الاصناف

وبارك الله فيك اخوي احمد ع اهتمامك بنظام القوانين