فيصل زهره

تحديث

السلام عليكم ورحمة الله وبركاته الاخوة مشرف المنتدى ارجو أن اجد اجابة على سؤالي وهو كيف احصل على رسالة اذا اشتغلت شاشة التوقف بالويندوز مثلا : حددت الوقت لشاشة التوقف بالويندوز على 1 دقيقة عندما تنتهي الدقيقة ستعمل شاشة التوقف ، المطلوب : اريد تظهر لي رسالة بالاكسيس ان شاشة التوقف اشتغلت مع خالص تحياتي

وإياك اخي الحبيب في وحدة نمطية عامة نلصق الجملة البرمجية التالية : Public Function qsplit(FullName As String, i As Integer) On Error Resume Next qsplit = Split(FullName, " ")(i) End Function لاحظ اننا انشأنا دالة جديدة بناء على الدالة الاصلية وجعلنا لها اسما قريبا من الدالة الاصلية حتى يتم التعرف عليها وعلى عملها من اول نظرة ولاحظ ايضا ما حدث لوسائط الدالة الاصلية وترتيبها حيث سيتم توظيف الدالة الجديدة داخل الاستعلام على النحو التالي : name1 : qsplit(FullName; 0) name2 : qsplit(FullName; 1) name3 : qsplit(FullName; 2) name4 : qsplit(FullName; 3) وفي المثال تطبيق للشرح والمقال : شكرا لك اخي العزير على هذا المثال الرائع .. لدي سؤال آخر هل يوجد طريقة لمعرفة عدد خانات الاسم قبل توزيع الاسماء .. فأحياناً تكون الاسماء خماسية