[فاضل الحمود]

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

في الجدول pharstore ثابت بالنسبة للأصناف اقصد يدي لكل صنف رقم واحد بينما في الجدول sale2 غير ثابت فهو يدي للصنف ممكن عشرات الأرقام حسب مبيع كل صنف فكل ما يدخل صنف عبر الفاتورة فانه ياخذ رقم آخر وهكذا .

فوجدت ان نتحايل على البرنامج بطريقة تانية كيف ؟ اولا عملت كود نحصر فيه البحث عن الصنف ( فلترة تقريبا )

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

طبعا هو اضافة بسيظة على الكود اللي انت وضعته في زر تحديد السجل وهو :

كود :

On Error Resume Next
If Text9 = "" Then
MsgBox "ÍÏÏ ÑÞã ÇáÝÇÊæÑÉ"
Exit Sub
Else
DataGrid1.Visible = True
x = Text9
W = Text11
Adodc2.RecordSource = " select * from [sale2] where [ÑÞã _ÇáÝÇÊæÑÉ]&[ÊÇÑíÎ ÇáÈíÚ] like '" & x & W & "'"

Adodc2.CommandType = adCmdText
Adodc2.Refresh

End If

تانيا نعمل تكست بوكس  أو اكثر ولنفرض عدد تلاتة  Text15  و  Text17  و  Text16 بحيث اذا اضغطنا على

السجل المحدد في DBGrid1  تعرض بيانات محددة في التكست بوكس التلاته ولنفرض عرض الإسم  والكود والكمية


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

بصرحة حاولت ان اطبق الفكرة التانية ولم انجح فاذا في مجال تزبطها  لي وشكرا