m_ageeb

الحل موجود في الملف المرفق shi_pro.zip

للتوضيح: الجدول الذي باسم myq لا يحفظ القيم الناتجة عن الترقيم التلقائي ، فكيف يمكنني حفظ القيم الموجودة في cmdbill_d

ومازالت المشكلة قائمة اليكم الكود ، رجاءاً يا اخوان ساعدوني فانا في مشكلة حقيقة وظيفته هو ترقيم تلقائي للسجلات ، انظروا للكود من الداخل تجد ان هنالك '1 Set Form1.DataGrid1.DataSource = myq_d '2 'Set Form1.DataGrid1.DataSource = myq("cmdbill_d").Value بعد عرض ا…

والله اكواد جميلة جداً ومشكور

تعقيب: ولتأكد من ان المستخدم ادخل صيغة تاريخ صحيحة اما لا ، بمعنى إذا ادخل المستخدم قيمة نصية بدلاً من التاريخ ،فيمكننا ان نكتب هذا الامر If IsDate(txtdate.Text) = False Then MsgBox "الرجاء من المستخدم إدخال صيغة تاريخ صحيحة", , "تنويه" txtdate.Text = Date exi…

ولمن لديه اي اراء في الموضوع عليه ان يشاركني فيها

ارجو ان تكون الاكواد قد اعجبتكم

الكود السابع: يقوم بالبحث بنفس الطريقة السابقة quiksrch.zip

الكود السادس : يقوم بالبحث عن النص داخل اداة الـlist findlitm.zip

الكود الخامس : الكودين يقوموا بالبحث عن الملفات داخل الجهاز findfile.zip FINDFILE_good.ZIP

الكود الرابع : يقوم بالبحث عن نص معين في مربع نص find_text.zip

الكود الثالث: يبحث بفس الطرق السابقة ولكن نوع الربط الاداة data1 tele_data1.zip

الكود الثاني: يبحث بنفس الطريقة السابقة ، ولكن يعرض النتائج في اداة datagrid search_sql_cool.zip

الكود الاول : كود بحث في جدول مع اداة flexgrid Autocomplete_with_flexgrid_search.zip

يا اخي العزيز انا اردت ان اظهر قيم الحقل لكي اعدل فيها فهل لي بمثال حتى يتثنى تطبيقه

السادة الاعضاء إليكم بعض الاكواد الخاصة بالبحث من جميع المستويات

هذا المثال قد يفيدك يا اخي show.zip

يا شباب ساعدونا بالله عليكم انا في امس الحوجة للكود

جزاك الله الف خير والله ما قصرت

طيب يا سيدي في المثال لكي تصل إلى اسم الحقل يجب ان يكون هكذا Rs.Fields("No").Value ولكن في حالة SHAPE {select bill_no,name from bill} AS cmdbill APPEND ({SELECT bill_no , class_no, price, qty FROM bill_d} AS cmdbill_d RELATE bill_no TO bill_no) AS cmdbill_d كي…