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

الاخوة الاعزاء تحية طيبه وبعد

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

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

اريد الان في حالة اني ادخلت رقم طبيب مكرر تضهر لي رسالة ان الطبيب موجود مسبقا بحيث اني امنع تكرار الاطباء للمندوب الواحد

ارجو اني اوصلت الفكرة

ومشكورين

السلام عليكم

select count(*)
into  virable
from table name
where mandop_id=:mandop_id
and doctor_id=:doctor_id
if virable>0 then
messgae
else
null;
end if

معكم ولكم نتواصل

السلام عليكم
select count(*)
into virable
from table name
where mandop_id=:mandop_id
and doctor_id=:doctor_id
if virable>0 then
messgae
else
null;
end if
معكم ولكم نتواصل

السلام عليكم
او ممكن استخدام
constraint Uniqueعلى الجدول

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

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

الاخ العزيز يزن ما عد اريد اغير في الجدول لانه مليان بيانات واخاف عليها

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

declare
cursor A is select all doc_no  from mandob_do
where :mandob_up.man_no=:mandob_do.man_no;
AA A%rowtype;
bb number;
begin open a;
fetch A into AA;
if (A%found ) then
bb:=show_alert('Refinery');
:mandob_do.doc_no:='';
:mandob_do.text_item68:='';
:mandob_do.man_no:='';
else
nule;
end if;
end;

ومشكورين

تم تعديل 4 أبريل 201214 سنة بواسطة الحكيمي

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

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

الاخ العزيز يزن ما عد اريد اغير في الجدول لانه مليان بيانات واخاف عليها

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

declare
cursor A is select all doc_no  from mandob_do
where :mandob_up.man_no=:mandob_do.man_no;
AA A%rowtype;
bb number;
begin open a;
fetch A into AA;
if (A%found ) then
bb:=show_alert('Refinery');
:mandob_do.doc_no:='';
:mandob_do.text_item68:='';
:mandob_do.man_no:='';
else
nule;
end if;
end;

ومشكورين

اتوقع اخي الكريم انو عندك خطاء بكتابة ال CURSOER
في جملة ال WHERE
cursor A is select all doc_no from mandob_do
where :mandob_up.man_no=:mandob_do.man_no;
انت مستخدم :mandob_do.man_no ومدام استخدمت : قبل mandob_do هيك راح يرجعلك القيمه يلي بالشاشه من بلوك
mandob_do والاصلا انو يقارن مع الجدول
جرب شيل ال:

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

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

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

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

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

كلام الأخ يزن صحيح.

اكتب الكود التالي

declare
cursor A is select all doc_no  from mandob_do
where man_no=:mandob_do.man_no;
AA A%rowtype;
bb number;
begin open a;
fetch A into AA;
if (A%found ) then
bb:=show_alert('Refinery');
:mandob_do.doc_no:='';
:mandob_do.text_item68:='';
:mandob_do.man_no:='';
else
nule;
end if;
end;

تم تعديل 4 أبريل 201214 سنة بواسطة a_disi

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

كل الشكر لكم اخواني يزن وa_dis

لكن انا اعتقد ان لو فيه خطى في المكان الي تقولون لي عليه بتكون الاخطاء في البيانات الي تضهر في اللوفز
مع ان مشكلتي مش هناك

انا مشكلتي في الرسالة الي تضهر في كل الاحوال سواء كان الرقم مكرر ام غير مكرر
وانا حاولت اسوي زي ما قلتم لي ولكن نفس المشكلة ما تغيرت

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

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

أخي الكريم، هل بالإمكان إرسال الفورم للمراجعة عليه

كل الشكر لك اخي a_disi

وعفوا على التاخر في الرد بسبب انقطاع الكهرباء

هذا هو الفورم
مع العلم اني كاتب الكود في عمود الطبيب (doc_no) في الجدول الاسفل على اليمين

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

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

m1.rar

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

أخي الكريم، قم بتجربة الفورم المرفق

m1.rar

بسم الله الرحمن الرحيم
كل الشكر لك اخي العزيز على متابعتك لي

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

if (A%found ) then

وانا اريد استبدالها بكود يكون بالشكل التالي

if :mandob_do.doc_no%found then

او بالشكل التالي

if :mandob_do.doc_no in A then

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

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

تم تعديل 15 أبريل 201214 سنة بواسطة الحكيمي

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

تم الانتهاء من هذا الموضوع وذلك على الراط التالي

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