السلام عليكم

عندي فورم يحسب الرصيدمن جدول معين لأسم حساب معين يتم تحديده في الفورم
وبعد مايحسب الرصيد لهذه الفتره ولاسم الحساب المحدد
يبحث في جدول اخر اذا كان اسم الحساب مع التاريخ موجودين معا يطلع للمستخدم رساله ان الرصيد موجود لهذه الفتره
واذا كان اسم الحساب موجود بس التاريخ مختلف عن التاريخ الي تم تحديده في الفورم يعمل ابديت على هذا الريكورد
واذا كان مو موجود يعمل له انسيرت

اتمنى الفكره وصلت

انا عملت الفورم ويحسب الرصيد ويضيفه على الجدول بس انا اريد اذا كان موجود يعمل له ابديت وليس انسيرت في كل مره

ياليت تساعدوني

جربت انسيرت اور ابديت بس ماضبطت


تحياتي

السلام عليكم
جرب هذه الطريقة:

Declare
vn_acc_no        Varchar2(100);
vd_acc_date        Date;
Begin
Begin	
Select Acc_No,
       Acc_Date
  Into vn_acc_no,
       vd_acc_date
  From Accounts_Table
 Where Acc_No = :Blk_1.Acc_No;
 
 If vn_acc_no = :Blk_1.Acc_no And To_Date(vd_acc_date, 'dd/mm/rrrr') = To_Date(:Blk_1.Acc_Date, 'dd/mm/rrrr') Then
 	Message('Account Is Exist');
 	Message('Account Is Exist');
 	Raise Form_Trigger_failure;
 Elsif  vn_acc_no = :Blk_1.Acc_No And To_Date(vd_acc_date, 'dd/mm/rrrr') <> To_Date(:Blk_1.Acc_Date, 'dd/mm/rrrr') Then
 	Update Ur_Table
 	   Set Acc_Name = :Blk_1.Acc_Name,
 	       Acc_Date = :Blk_1.Acc_Date
 	 Where Acc_No   = :Blk_1.Acc_No;
 	 Commit;
 End If;
 
 Exception When No_Data_Found Then
 	Insert Into Ur_Table (Acc_No,
 	                      Acc_Name,
 	                      Acc_Date)
 	              Values (:Blk_1.Acc_No,
 	                      :Blk_1.Acc_Name,
 	                      :Blk_1.Acc_Date);
 	Commit;
 End;
End;

بالتوفيق.

السلام عليكم

حاولت في الكود الي كتبته اخ احمد لكنه ما اشتغل

ما ادري وين الخطأ

ياليت تشوف الفورم اذا مافيه مانع

form.rar

هذه الجداول المرتبطه بالشاشة

الجداول.txt

السلام عليكم
ما الذي لم يعمل في الكود ؟؟
جرب الكود السابق بعد التعديل.