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

 

انا عندي في الشاشة زر استعلام عن سجل وفيه الكود التالي 

enter_Query;

وعندي زر التالي وفيه الكود التالي

 

declare
   i number;
begin
select max(DOC_no)into i from DOCTORS ;
   if:DOCTORS.DOC_no<>i then
    next_record;
else
message('انت الان في السجل الاخير');
end if;
end;

ولكن عند عمل استعلام عن السجل رقم 1000 مثلا ويضهر لي السجل المطلوب واريد ان اتابع التقدم باتجاه السجل التالي 1001 ولا يعمل زر التالي

مع العلم ان زر التالي يعمل في حالة بدون الاستعلام

 

فكيف يكون الحل

منتا استعلمت عن ريكورد معين الى هو 1000, فمش هيجيب غيره.

استعلم بـ <1000 وجرب.

 

والكود الى انت كاتبه ملوش لزمة خالص لو قصتك كلها انك تجيب الريكورد الى جاى.

كفاية next_record;

تم تعديل 18 ديسمبر 20169 سنة بواسطة eslam elbyaly

انا عملت استعلام عن السجل رقم 1000 وطلع السجل المطلوب

لكن الان اريد اروح للسجل رقم 1001 و 1002 وبعده وبعده عن طريق زر التالي

 

يعني لو انا عندي 5000 سجل واريد اعدل على كل السجلات حاجه معينه

ايوم اشتغلت لما وصلت للسجل 1000 وتعبت

بكره اريد ان اواصل من بعد 1000 يعني اضغط على زر التالي 1000 مره لحتى اوصل لحيث ما توقفت

وابدا اواصل التعديل

 

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

تم تعديل 18 ديسمبر 20169 سنة بواسطة الحكيمي

قول لليوزر يبحث بالمعاملات

<1000

كيف يعني

اكتب في الايتم

<1000 , هيجبلك الـ 1000 والى بعده.

اذا كان قصدك اكتب في التكست <1000 فمش نافع وجاب الرساله التالية

 

ده اصدار كام الى شغال عليه، ولو انى مظنش ان الاصدار ليه علاقة، لانها شغالة ع 6i
شيل الكود بتاعك بس خالص ليكون هو الى جايب الايرور وجرب ب f7 and f8

انا شغال على 6i ونفس الشي مش نافع 

ينفع.

- جرب من غير كودك خالص واستخدم f7 an f8, الحاجات بتاعت اوراكل بس, شيل اى كود انت كاتبه, يا تجرب على فورمه جديد على scott مثلا عشان تتأكد ان مفيش حاجة انت عاملها موقفة الدنيا.

مافي رساله خطى بس يروح للسجل الاول

السجل رقم 1

عندما كتبت 1000< اصغر من 1000 طلع لي السجل 1001 وزر التالي اشتغل وراح للسجل اللي بعده

 

يعني الطريقه شغاله لكن مافي احاجه اسهل اني اعمل زر انتقال للسجل رقم 1000 وبعدين اعمل التالي 

عندما كتبت 1000< اصغر من 1000 طلع لي السجل 1001 وزر التالي اشتغل وراح للسجل اللي بعده

 

يعني الطريقه شغاله لكن مافي احاجه اسهل اني اعمل زر انتقال للسجل رقم 1000 وبعدين اعمل التالي 

 

من الطبيعي الآن، أن يعمل زر التالي هذا مؤكد لإن تغير الشرط وأصبح 1000< وهنا إسترجع أكثر من سجل فاصبح بالإمكان أن ينتقل إلى السجل التالي 

بمعنى أصبح أكثر من سجل لدي فأكيد هنالك إمكانيات التنقل بينهم بالزر التالي 

أما إذا كان الشرط =1000 فهنا يسترجع فقط السجل الذي يحمل القيمة 1000 وليس هنالك إمكانية للتنقل بالزر التالي لإنه تم إسترجاع سجل واحد فقط

(فعند الضغط على التالي أين يذهب !!! إذا كانت القيمة المسترجعة هي سجل واحد فقط) 

انا اقصد هل هناك طريقه اخرى لعمل هذا بدون استعلام

ويمكن الذهاب الى السجل رقم 1000 مثلا ومن هناك التنقل بواسطه زر التالي بدون >  او <

بالمناسبة تستطيع إستخدام الكود التالي على زر التالي بدل إن تعمل select  على max 

next_record;
if :system.last_record = 'TRUE' then
	message('you arrive Last Record');
	message('you arrive Last Record');
end if;

إن شاء الله يفي الكود بالغرض 

بالتوفيق 

انا اقصد هل هناك طريقه اخرى لعمل هذا بدون استعلام

ويمكن الذهاب الى السجل رقم 1000 مثلا ومن هناك التنقل بواسطه زر التالي بدون >  او <

 

 

يمكن من خلال البحث بإستخدام set_block_property 

 

هنالك أكثر من مشاركة عن هذا الموضوع

 

راجع الروابط التالية فيما يخص set_block_property وغير مايلوم تغييره حسب إسم الحقل المراد البحث عنه 

 

http://www.araboug.o...topic=54288&hl=

http://www.araboug.o...showtopic=36265

http://www.araboug.o...showtopic=50157

http://www.araboug.org/ib/index.php?showtopic=12364

 

كل الشكر لك اخي اسلام على متابعتك لي

وكل الشكر لك اختي ميسم وسأبحث عن set_block_property

1- انت مش محتاج تطلع رسالة تقله انه في اخر سطر لان الفورمز بيطلع الرسالة دى لوحده.

2- عاوز حاجة اسهل من ايه؟! الطبيعى ان في حاجة اسمها استعلام , وفى الحالة بتعتك اليوزر هيعوز يستعلم, وبعدين اسهل من ايه, يعنى تكتب كود اسهل ولا الامور تمشى طبيعى.

- عود نفسك لما تبقى الوظيفة موجودة من اوراكل, ما تتجنبهاش وتعمل حاجة تانية.

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

لكن مع الكود هذا يروح لاخر سجل وما يطلع حقل فارغ

تم تعديل 19 ديسمبر 20169 سنة بواسطة الحكيمي

next_record;

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

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

مع الكود التالي تظهر لي الرساله زي الصوره رقم 1

declare
  i number;
begin
select max(DOC_no)into i from DOCTORS ;
  if:DOCTORS.DOC_no<>i then
    next_record;
else
message('انت الان في السجل الاخير');
end if;
end;

لكن لو حذفته وكتب بس الكود التالي

  next_record;

ورحت وضغطت على زر الاخير وراح لاخر سجل

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

وتظهر الصوره رقم 2

تم تعديل 19 ديسمبر 20169 سنة بواسطة الحكيمي

ايوة طلبك ايه بقى, ما هو طبيعى يعملك سجل جديد, ده الطبيعى بتاع الفورمز.

وارجع واقلك الموضوع ابسط من كده بكتييييييير , وملوش لزمة الى انت بتعمله ده خالص.

خلاص انا مش عاوز حاجه الان

انا مشكلتني كانت بس في الاستعلام وزر التالي واتحلت مع <1000

والشكر ليك