السلام عليكم ورحمة الله وبركاته
انا بعمل مشروع جديد دلوأتي ، وكنت في صفحة العملاء ، وكنت بسجل عميل وادوس على زرار حفظ ينزل تلقائياً في تابيلور فيه كل اسماء العملاء .
لكن قابلتني مشكلة بعد كده ؟؟
اني عايز لما أدوس دبل كليك بالماوس يعرض بيانات الصف اللي انا واقف فيه في التكستات اللي فوق ، انا كتبت الكود بس هو للاسف بيعرض أول صف في التابيلور بغض النظر انا دايس على انه صف ، حتى ولو كان الصف الاخير
انا هأرفع الصورة عشان الفكرة توضح أكتر .
أرجو الافادة ... وجزاكم الله خيراً .

ماشاء الله 25 مشاهدة ، ومفيش ولا رد واحد
هو الموضوع طلع عويص للدرجة ده ، ولا انا اللي معرفتش اوصل نا عايز ايه
ارجو من خبراء الاوراكل سرعة الرد
انا فعلاً متحاج الحل ضروري
وجزاكم الله خيراً

السلام عليكم
اجعل عرض الاسماء مشروط بمعنى مثلا لما يكون اسم الجدول اللي تحت . رقم البطاقة = اسم الجدول اللي فوق . رقم البطاقة .
واذا لم تفلح الطريقة فأكتب لنا الكود حتى نستطيع مساعدتك .
وشكرا
ميجا

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

dearest
abdu

my name is omer abdulatif and im happy to hlep you
if you still facing this issue and you did'nt solve it tell me
or try this code on your trigger [ when mouse double click ]
(

PROCEDURE CHITEM IS
M NUMBER;
STATE NUMBER;
CHQ VARCHAR2(20);
BEGIN
CHQ:=:item_name;
STATE:=TO_NUMBER(:SYSTEM.TRIGGER_RECORD);
LAST_RECORD;
M:= TO_NUMBER(:SYSTEM.TRIGGER_RECORD);
FIRST_RECORD;
FOR K IN 1..M LOOP
IF RTRIM(LTRIM(:item_name))=RTRIM(LTRIM(CHQ))
AND TO_NUMBER(:SYSTEM.TRIGGER_RECORD)!=STATE THEN
GO_RECORD(STATE);
RAISE FORM_TRIGGER_FAILURE;
ELSE
NEXT_RECORD;
END IF;
END LOOP;
END;

item_name refere to your item that you use to do your query
if it didnt work send me back

الاستاذ عمر
شكراً جزيلاً على الرد ، لكن الكود فيه مشكلة وهي لما أجي انفذ الكود مع اول دوبل كليك مابيحصلش حاجة ، بعد كده لو دوست دبل كليك مرة أخرى بيطلع رسالة وهي "يجب إدخال او حذف السجل اولاً " .
أرجو الايضاح
--------------------------------------------------------------------------------
الاستاذ : خالد انا حاولت أجرب الكود بشرط معين معرفتش انا بأستخدم الكود على مستوى البلوك في حدث when mouse dblcklick
والكود أهوه
go_block('customer');
:customer.cus_num := :CUST_LIST.cus_num ;
:customer.cus_name := :CUST_LIST.cus_name;
:customer.cus_address := :CUST_LIST.cus_address ;
:customer.cus_id := :CUST_LIST.cus_id ;
:customer.cus_tel := :CUST_LIST.cus_tel;
:customer.cus_fax := :CUST_LIST.cus_fax ;
:customer.cus_mobil := :CUST_LIST.cus_mobil ;
:customer.cus_type := :CUST_LIST.cus_type ;
:customer.cus_mail := :CUST_LIST.cus_mail;
ارجو المساعدة في تعديل الكود ، علماً بأن البلوك اللي فوق مش dtatbaseitem ، واللي تحت databaseitmes
وجزاكم الله خيراً

تم تعديل 19 أبريل 200719 سنة بواسطة abdu1_far

جرب الفورم اللى باعتو لك

شوف الكود واحد واحد
USRE IS SCOTT
PASSWORD IS TIGER

وريني وش رايك

شوف الكود التحت

اعمل فورم فيه اثنين داتا بلوك
للجدول EMP
اللى موجود فى المستخدم SCOTT

وخليهم TABULAR
تحت بعض
سمى واحد فيهم EMP1 وخليه فوق وتعمل عليه ال QUERY
والثانى EMP تعمل فيه الQUERY
بعد ماتعمل على EMP1
غير الحقل EMPNO لي EMP_NO
اللى موجود فى EMP1

واكتب اللكود اللى تحت
فى ال TRIGGER
WHEN-MOUSE-DOUBLE CLICK
على الحقل EMP_NO

الكود

DECLARE
M NUMBER;
BK VARCHAR2(100);
STATE NUMBER;
CHQ NUMBER;
BEGIN
CHQ:=:EMP_NO;
GO_BLOCK('EMP');
LAST_RECORD;
M:= TO_NUMBER(:SYSTEM.TRIGGER_RECORD);
GO_BLOCK('EMP');
FIRST_RECORD;
FOR K IN 1..M LOOP
GO_BLOCK('EMP');
STATE:=:SYSTEM.TRIGGER_RECORD;
IF CHQ=:EMPNO THEN
GO_RECORD(STATE);
ELSE
NEXT_RECORD;
END IF;
END LOOP;
GO_BLOCK('EMP1');
END;


جرب الفورم اللى باعتو لك

شوف الكود واحد واحد
USRE IS SCOTT
PASSWORD IS TIGER

وريني وش رايك

emp_details.zip

جزاك الله خيراً على تفاعلك وتعبك معايا
وانا اسف جداً جداً أني شغلت وقتك في مشكلتي
الموضوع أتحل والحمد لله ، وطلع أبسط من كده بمراحل
عادي خالص الكود اللي انا كنت كتبه في البداية كان صح
اللي هوه ده
go_block('customer');
:customer.cus_num := :CUST_LIST.cus_num ;
:customer.cus_name := :CUST_LIST.cus_name;
:customer.cus_address := :CUST_LIST.cus_address ;
:customer.cus_id := :CUST_LIST.cus_id ;
:customer.cus_tel := :CUST_LIST.cus_tel;
:customer.cus_fax := :CUST_LIST.cus_fax ;
:customer.cus_mobil := :CUST_LIST.cus_mobil ;
:customer.cus_type := :CUST_LIST.cus_type ;
:customer.cus_mail := :CUST_LIST.cus_mail;
بس المشكلة اني كنت مخللي التكستات اللي في التابيلور displayeditem
وهو ده اللي كان مخليه ميتحكش مع الصف اللي انا واقف فيه
قلت أجرب وخليه تكست ايتم عادي ، والحمد لله اشتغل
احيانا المشكلة بتبقى بسيطة والواحد بيدوخ فيها ، بس في الاخر ربنا بيكرم
وخليت خاصية الانسرت والابديت داخل التابيلور false
اسف جداً جداً للمرة التانية ، ووالله الخطأ مكنش مقصود
جزاكم الله خيراً

السلام عليكم ورحمة الله وبركاته

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