السلام عليكم ورحمة الله وبركاته
أخواني كيف يمكن عمل Validation على Text Box بحيث يتم لا يقبل سوى الحروف الانجليزية
من خلال Fuction خاص بدون استخدام الخصائص لهذا الحقل
ولكم جزيل الشكر

السلام عليكم

Declare
Ch Varchar2(30);
Begin
If :Blk.Part_Name Is Not Null Then
For I In 1..Length(:Blk.Part_Name) Loop
Ch:=Substr(:Part_Name,I,1);
If Ch  Between '1' And '9' Or Ch  Between 'ء' And 'ي' Then
Message('PLEASE INSERT TEXT ONLY');
Message('PLEASE INSERT TEXT ONLY');
Raise Form_Trigger_Failure;
End If;
End Loop;
End If;
End;

تم تعديل 15 ديسمبر 200916 سنة بواسطة PALI.ORACLE

شكرا جزيلا على الكود زبط معاي
وبارك الله فيك

ممكن تغير ال international كل ال properts الى local & local only

ايهاب وجدى

شكرا اخي أيهاب على الرد
ولكن هل يمكن شرح المقصود بالرد لو سمحت وهل سوف يمنع الكتابة باللغة العربية لجميع الحقول
الفكرة التي عندي هي وضع الــ fuction على البرنامج الرئيسي في Server
وبهذا كل الــ Client سوف يتفعل عندهم بدون تغيير في اعدادات اللغة عندهم
بارك الله فيك

شكرا جزيلا على الكود زبط معاي
وبارك الله فيك

بالتوفيق

اخى international من ضمن خصائص ال text box بتخلى الtext ميقبلش غير لغه معينة عربى و انجليزى

ايهاب وجدى

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

ممكن شرح الكود لو سمحت؟

السلام عليكم

اذا كان الحقل غير فارغ.

If :Blk.Part_Name Is Not Null Then

هنا يعمل لووب على كل التكست اللي انت دخلته في الايتم..من اوله لاخره باستخدام length

For I In 1..Length(:Blk.Part_Name) Loop

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

Ch:=Substr(:Part_Name,I,1);

اذا كانت نتيجة الرمز ch تحتوي على ارقام او تحتوي على حروف بالعربي اعمل raise يعني امنعه يكمل عملية الادخال.

If Ch  Between '1' And '9' Or Ch  Between 'ء' And 'ي' Then
Message('PLEASE INSERT TEXT ONLY');
Message('PLEASE INSERT TEXT ONLY');
Raise Form_Trigger_Failure;
End If;

تم تعديل 15 ديسمبر 200916 سنة بواسطة PALI.ORACLE

بارك الله فيك اخي ايهاب على المعلومة الرائعة