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

يعنى زرار واحد للبحث والاستعلام
ولكم جزيل الشكر

السلام عليكم
داخل الزر جرب الكود التالي:

Enter_Query(No_Validate);
If :Blk_1.Ur_Search_Text Is Not Null Then
Execute_Query(No_Validate);
Else
Go_Item('blk_1.ur_search_text');
:Blk_1.Ur_Search_Text = Null;
End If;

Set Button Item:
label:Enter Query
Keyboard Navigable :No
Mouse Navigate:No

DECLARE
V_FIND ITEM;
V_CHECK VARCHAR2(15);
BEGIN
V_FIND:=FIND_ITEM('BLOCK.ITEM');
IF NOT ID_NULL(V_FIND) THEN
	V_CHECK:=GET_ITEM_PROPERTY(V_FIND,LABEL);
	IF V_CHECK='Execute Query' THEN
		EXECUTE_QUERY;
		SET_ITEM_PROPERTY(V_FIND,LABEL,'Enter Query');
	ELSE
		SET_ITEM_PROPERTY(V_FIND,LABEL,'Execute Query');
		ENTER_QUERY;
	END IF;
	END IF;
END;
END;

تم تعديل 25 أكتوبر 200916 سنة بواسطة DOMSSA

الف شكر على الاهتمام
بس انا كنت عاوز اعمل
when button pr


if:system.form_mode='normal' then
enter_query;
SET_ITEM_PROPERTY(V_FIND,LABEL,'بحث');


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

الكود اللى انا كاتبة حيكون فى الحدث بتاع
WHEN-BUTTON-PRESSED

يلا علشان مش تزعل نفسك

DECLARE
V_FIND ITEM;
BEGIN
V_FIND:=FIND_ITEM('BLOCK.ITEM');
IF NOT ID_NULL(V_FIND) THEN
 IF :SYSTEM.MODE='ENTER-QUERY' THEN
		EXECUTE_QUERY;
		SET_ITEM_PROPERTY(V_FIND,LABEL,'Enter Query');
ELSE
		SET_ITEM_PROPERTY(V_FIND,LABEL,'Execute Query');
		ENTER_QUERY;
	END IF;
END IF;	
END;
END;

تم تعديل 25 أكتوبر 200916 سنة بواسطة DOMSSA

السلام عليكم
تكون في زر واحد والتريجر المستخدم هو
when_button_presed

if :system.mode = 'NORMAL' then

set_item_property('push_button67',label,'execute query');

Enter_Query;


elsif :system.mode = 'ENTER-QUERY' then

set_item_property('push_button67',label,'enter query');

Execute_Query;


end if;