يا شباب ممكن واحد يساعدني في شفرة الحذف والتعديل استخدمت
delete_record ,update_record
داخل أزررار لكن المشكلة لن البيانات لا تحذف من قاعدة البيانات حتى وان استخدمت commit

لو في حد يمكن يساعدني أن شاء الله خير جزاؤ له الدعاء بظهر الغيب

قم بوضع الازرار على نفس البلوك اللي فيه البيانات

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

قم بتعديل خاصية keyboard navigable وخاصية mouse navigable إلى false بالنسبة للأزرار

نفس المشكله عندي!!!!!!!!!!!
مايحذف ولا يضيف
بس اتوقع مشكلتي لان فيه 2 برايمري كي
ياليت تشوفون لنا حل بأسرع وقت ممكن

الاخ الكريم

ممكن ترفع لينا الفورمة التى تعمل عليها

حتى يمكننا مساعدتك بإذن الله

السلام عليكم

هذا الفورم حقي وعندي نفس المشكله

عذرا على المداخله

form.zip

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

السلام عليكم

هذا الفورم حقي وعندي نفس المشكله

عذرا على المداخله

بالنسبه للمشكه استخدم الdebug
وشوف هيقف فين هتبانلك المشكله

او بدام انت عامل الPAYMENTNO برايمري كي ممكن تستخدمه هوا بس في جمله الابضيت يعني الكد يبقا كدا

update payments
set paymentNo = :PAYMENTS.PAYMENTNO, bdate = :PAYMENTS.BDATE, bank= :PAYMENTS.BANK, 
transNo = :PAYMENTS.TRANSNO, chequeNo= :PAYMENTS.CHEQUENO, payment=:PAYMENTS.PAYMENT 
where paymentNo = :PAYMENTS.PAYMENTN

O

لان البرايمري كي مش هيتكرر في الجدول جرب كدا وشوف
وخلي زراير التعديل والحذف في كنترول بلوك بلوك لوحده مش مع بلوك الPAYMENTS

والكود دا

cursor payment_cur is
select paymentNo,bdate,bank,transNo,chequeNo,payment,prj_No,BillNo
from Payments
where prj_No = :PROJECTS.PRJ_NO; 
total number:=0;
total1 number:=0;

begin

for payment_rec in payment_cur

LOOP
:PAYMENTS.PAYMENTNO := payment_rec.paymentNo;
:PAYMENTS.BDATE := payment_rec.bdate;
:PAYMENTS.BANK := payment_rec.bank;
:PAYMENTS.TRANSNO := payment_rec.transNo;
:PAYMENTS.CHEQUENO := payment_rec.chequeNo;
:PAYMENTS.PAYMENT := payment_rec.payment;
:PAYMENTS.PRJ_NO := payment_rec.prj_no;
:PAYMENTS.BILLNO := payment_rec.BillNo;
total:=total+ :PAYMENTS.PAYMENT;
next_record;
:PAYMENTS.TEXT_ITEM70 := total;
:PAYMENTS.TEXT_ITEM81 := total;

END LOOP

;

عدله وخليه كدا

begin
GO_BLOCK('PAYMENTS');
CLEAR_BLOCK;

for payment_rec in payment_cur

LOOP
		IF :SYSTEM.RECORD_STATUS<>'NEW' THEN
	CREATE_RECORD;
	END IF;
:PAYMENTS.PAYMENTNO := payment_rec.paymentNo;
:PAYMENTS.BDATE := payment_rec.bdate;
:PAYMENTS.BANK := payment_rec.bank;
:PAYMENTS.TRANSNO := payment_rec.transNo;
:PAYMENTS.CHEQUENO := payment_rec.chequeNo;
:PAYMENTS.PAYMENT := payment_rec.payment;
:PAYMENTS.PRJ_NO := payment_rec.prj_no;
:PAYMENTS.BILLNO := payment_rec.BillNo;
total:=total+ :PAYMENTS.PAYMENT;
next_record;
:PAYMENTS.TEXT_ITEM70 := total;
:PAYMENTS.TEXT_ITEM81 := total;

END LOOP

;

تم تعديل 20 يونيو 201015 سنة بواسطة HELL-BOY

ممكن توضح اخي

لا راح يتكرر في الجدول
لان bdate - paymentNO- billNo مع بعض برايمري كي مش paymentNo لوحده فقط

طيب انا عدلت في المشاركه بتعتي جرب بقيت الخطوات كدا ان شاء الله تظبط معاك

او جرب الفورمه دي بعد التعديل كدا

search_payment.rar

عملت الي قلتي عليه وجربت الفورمه الي حطيتها بعد التعديل ومافي فايده
يطلع لي نفس الخطأ 40508

انا عدلتلك علي الفورمه كان فيها مشاكل بس حلتها كلها الحمدلله هي شغاله عندي بدون مشاكل
سواء حذف او تعديل

search_payment.rar

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

الأقسام.rar

الف شكر لك اخي
الفورم واخيرا اشتغل
بس ممكن تشرح لي الكود ؟؟؟؟؟؟؟؟؟؟؟؟؟ و وشو الاشياء الي عدلتها؟

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

دي الفورمه بعد التعديل اخي الكريم

الف شكر لك اخي
الفورم واخيرا اشتغل
بس ممكن تشرح لي الكود ؟؟؟؟؟؟؟؟؟؟؟؟؟ و وشو الاشياء الي عدلتها؟

الحمدلله اخي الكريم انها اشتغلت كل المشكله كانت في البلوك و الايتم انهم كانو DATABASE YES ودي فورمه بحث يعني كل الايتم لازم يكونوا NON DATABASE علشان لما تعمل COMMIT مش هيعرف يسجل الريكورد لو فيه ايتم تبع قاعده البيانات لانه مش هيلاقي باقي القيم اللي تضاف في الجدول

الأقسام.rar

تم تعديل 21 يونيو 201015 سنة بواسطة HELL-BOY