منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ارجو المساعدة فى التنقل بين السجلات ..... جزاكم الله خير
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
تعقيبا على المثال المعدل من اخى الغالى الاستاذ  امير   بخصوص التمقل بين السجلات

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

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

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

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

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

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

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

if data1.Recordset.Fields![ID]>6 then
data1.Recordset.MoveNext
end if
ارجو ان تكون ما تريده ينطبق علي تلك الفكرة البسيطة
اخى الغالى  عبد الله الصافي     جزاك الله خيرا على الرد

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


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


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

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

PHP كود :
Private Sub Form_Load()

Call Connect

rs
.Open "Select * From sandok2 Where b=2 Order By Cod"dBadOpenStaticadLockBatchOptimistic

rs
.MoveFirst

Call ViewRecord

'Skin1.ApplySkin hwnd
Label1.Caption = rs.RecordCount
End Sub 
استاذى الغالى احمد منصور      جزاك الله خيرا على  الرد والاهتمام

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



جزاك الله خيرا
........................للرفع ...............
احبابى فى الله     هل انتظر الحل     ام  لا يوجد طريقة للقفز بين السجلات
الصفحات : 1 2