[mhareek]

تعقيبا على المثال المعدل من اخى الغالى الاستاذ  امير   بخصوص التمقل بين السجلات

http://vb4arb.com/vb/showthread.php?tid=24777

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

اى بمعنى التنقل بين محموعة معينة فى الحدول بشرط معبن     

بحيث السجل الذى ينطبق علية الشرط يظهر ويتخطى اى سجل لا ينطبق علية الشرط

[mhareek]

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

جزاكم عنى خيرا

[Ahmed_Mansoor]

أهلا بك أخي الكريم , كل عام وأنت والأمه الإسلاميه بخير وصحه وسلامه , غير واضح ماتريده , لكن إذا تريد أن تستثنى سجلات معينه من أن تعرض مع السجلات التي يتم التنقل بينها بواسطة الأزرار التالي والسابق فقم بوضع الشرط في جملة الإستعلام التي تفتح بها الجدول لعرض السجلات لكي تجلب فقط السجلات التي ينطبق عليها الشرط .

[mhareek]

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

   انا وضعت شرط ولكن لم يتم استثناء السجلات التى لا اريدها ان تظهر    ويقف الكود

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

[عبدالله الصافي]

كود :

data1.Recordset.MoveNext

if data1.Recordset.Fields![ID]>6 then
data1.Recordset.MoveNext
end if

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

[mhareek]

اخى الغالى  عبد الله الصافي     جزاك الله خيرا على الرد

ولكن انا مرفق مثال اخى الغالي بالمشاركة بالاعلى هل يمكن التعديل علية    بحيث يظهر فقط السجلات التى فى قاعدة البينات  فى الحقل b =2    فقط اما باقى السجلات فلا تظهر     اى كلما كان b=2   يظهر السجل وان كان ال  b لا تساوى 2  يقفز الى السجل الذى يلية 


ارجو التعديل على المثال ان امكن   جزاكم الله خيرا  


http://vb4arb.com/vb/showthread.php?tid=24777

جزاكم الله خير

[Ahmed_Mansoor]

أهلا بك أخي الكريم , عدل جملة الإستعلام التي تعرض السجلات في الفورم بحيث لاتعرض إلا السجلات فقط التي ينطبق عليها الشرط , عدل كود حدث الـ From_Load في المثال المرفق في الموضوع الذي وضعت أنت رابطه , ليصبح الكود بعد التعديل هكذا :

PHP كود :

Private Sub Form_Load()

Call Connect

rs.Open "Select * From sandok2 Where b=2 Order By Cod", dB, adOpenStatic, adLockBatchOptimistic

rs.MoveFirst

Call ViewRecord

'Skin1.ApplySkin hwnd
Label1.Caption = rs.RecordCount
End Sub 


[mhareek]

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

عندما قمت بتعديل الكود  بالفعل وقف على سجل رقم 20  ولكن عند ضغط التالى لم يتحرك ابدا
 ولم يقفز الى السجل الذى يلية وتنطبق علية الشروط



جزاك الله خيرا

[mhareek]

........................للرفع ...............

[mhareek]

احبابى فى الله     هل انتظر الحل     ام  لا يوجد طريقة للقفز بين السجلات