-
Content Count
1,323 -
Joined
-
Last visited
-
Days Won
19
sandanet last won the day on December 18 2019
sandanet had the most liked content!
Community Reputation
743 ExcellentAbout sandanet

-
Rank
Name
Profile Information
-
Gender (Ar)
ذكر
-
Job Title
مهندس اتصالات
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
اخي الكريم ارجو منك ارفاق نسخة من برنامجك للتجربة ومعرفة مكان الخطأ واصلاحه او اتجه لموضوع الاستاذ جعفر واستخدم البرنامج المشار اليه في موضوعه
-
شكراً جزيلا لك أستاذنا القدير جعفر دائماً متميز بمواضيعك .. وفقك الله
- 11 replies
-
- 1
-
-
- backup
- comapct and repair
-
(and 2 more)
Tagged with:
-
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
فكرة الدالة هي مقارنة الاسم المكتوب مع الاسم الذي يتم تجزئته باستخدام مثال الاستاذ ابو خليل واباجودى .. وكما اسلفت النتيجة كانت جيدة في حال كان الاسم يحتوي على لاحقة في الاسم الرابع غير مدرجة في الجدول .. تقوم الدالة باستخراج تلك اللاحقة فقط .. لكن لو جاءت اللاحقة في الاسم الاول او الثاني او الثالث وهي غير موجودة في الجدول فمثالكم ومثال الاخ اباجودى تظهر الاسم المقطع بشكل غير صحيح وهذا يؤدي الى عدم مقدرة الدالة السابقة من اظهار اللاحقة الصحيحة. وفي الاخير فضلت استخدام طريقة اجبار المستخدم على مليء اربع خانات ومن ثم تجميع الاسم تحياتي -
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
كنت قد استخدمت الدالة التالية التي تعمل على استخراج الفرق بين جملتين Function WORDDIF(rngA As String, rngB As String) As String On Error GoTo Err ' to test the function, press ctrl+G then paste this line of code--> ?WORDDIF("عبد الرحيم بن سلمان عبد الله بو سالم", "عبد الرحيم بن سلمان عبد الله سالم") Dim WordsA As Variant, WordsB As Variant Dim ndxA As Long, ndxB As Long, strTemp As String WordsA = Split(rngA, " ") WordsB = Split(rngB, " ") For ndxB = LBound(WordsB) To UBound(WordsB) For ndxA = LBound(WordsA) To UBound(WordsA) If StrC -
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
اخي العزيز أبو عبدالله في الحقيقة انا ابحث عن النتيجة النهائية المرضية كمبرمج .. والنقاش العلمي و المنطقي واحتمالات حدوث الصح والخطأ في اي فكرة يتم طرحها هي هدفي ولست من ذلك النوع الذي يلتفت للردود ويقيمها فيما اذا كانت قاسية او جارحة او مازحة من الاعضاء الكرام فنقاشنا علمي بحت وافكارنا تحتمل الصح والخطأ وما يهمنا دائما هو النتيجة الافضل ..اليس كذلك؟ بالنسبة لي لم ولن يكن في صدري حرج من اي رد منك او من اي شخص آخر مالم يكن نقاشنا خارج إطار العلم فلا داعي للإعتذار . نعم كلامك صحيح يمكن حصر اغلب اللواحق المحلية والمشهورة بنسبة كبيرة كما تفضلت انت .. لكننا دائماً نتطلع بأن تكون الطر -
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
استاذي العزيز ابو عبدالله ماتفضلت به ليس هو الحل الذي نتطلع للوصول اليه كمبرمجين فأنت لن تستطيع حصر جميع لواحق الاسماء المركبة في الجدول حتى وان كان الجدول لديك يحتوي على كمية كبيرة من لواحق الاسماء فسوف يصادفك اسم مركب لاحقته غير مدرجة مسبقاً في الجدول ولن تلاحظ ذلك .. هنا ستحدث المشكلة .. تحياتي -
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
رائع جداً .. لكن ماذا لو اتى الاسم "بو سالم" في المنتصف اي الاسم الثاني او الثالث؟ -
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
نعم استاذي العزيز افهم قصدك من ذلك لكن لايمكن اعتبار الاسم "عبد الرحيم بن سلمان عبد الله بو" اسم رباعي ولا يمكن السماح بادراج الاسم بهذا الشكل في حال لم تكن اللاحقة "بو" مضافة للجدول مسبقاً لذلك قمت بتعديل بسيط على طريقتكم باستخدام كود الاستاذ القدير @ابوخليل والنتيجة كانت ممتازة .. انظر المرفق جرب ادخل الاسم التالي "عبد الرحيم بن سلمان عبد الله بو سالم" بدون ادخال اللاحقة "بو" الى جدول tblSpecialParts تحياتي Test Four Name.mdb -
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
نعم اخي أبو عبدالله كلامك صحيح ... لكن لو لم تكن اللاحقة مضافة لجدول tblSpecialParts مسبقاً فسنواجه مشكلة خصوصا لو كان هنالك عدد من المستخدمين يعملون على البرنامج .. اعتقد انه من الافضل ايجاد طريقة تنبيه للمستخدمين تفيد بأن الاسم سيتم اقتطاعه لوجود لاحقة غير مضافة لجدول tblSpecialParts وبالتالي يمكن تلافي ادراج الاسماء منقوصة. نعم كلامك صحيح ونقطة في محلها فعلا خصوصا لو كان لدينا برنامج كبير لكني في الواقع افضل تقليص عدد الجداول ^_^ ولو ان كود الاستاذ جعفر كنز ثمين لايمكن تجاهله لكن بالتأكيد سنحتاجه عاجلا ام آجلاً. معناها لو قمنا بالغاء الاستعلام qry_SP فسنلغي دال -
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
أشكرك جزيل الشكر على المرفق السابق لكني واجهت مشكلة اخرى عندما حاولت اضافة الاسم التالي "عبد الرحيم بن سلمان عبد الله بو سالم" فظهر في الخانة الاخيرة كلمة "بو" فقط .. المفروض تظهر كلمة "بو سالم" كلها كما ان لدي بعض التساؤلات التي استوقفتني السؤال الاول : ماهو الفرق بين استخدام طريقتكم التي تفضلتم بها و طريقة الاستاذ اباجودي التي تفضل بها في مرفقه ؟ هل يمكن اعتبار ان الفكرتين تؤديان الى نفس النتيجة أم هنالك فرق جوهري بالأمر؟ ارجو التوضيح فهذه نقطة مهمة جدا فكلا المرفقين فيهما حلول رائعة السؤال الثاني: لماذا تستخدم دالة MakeMsg التي تستوجب اضافة جدول ووحدة نمطية للبرنامج ف -
هل من طريقة لاجبار المستخدم علي ادخال الاسم رباعيا
sandanet replied to أبو عبدالله الحلوانى's topic in MS Access
أخي العزيز أبو عبدالله شكراً لك على المرفق الأخير الأكثر من رائع والشكر لكل من ساهم به ولو بفكرة بسيطة اثناء عمل compile للكود يظهر خطأ في الدالة التالية x = Split(testSpcailPart(M), " ") اعتقد ان الكود يجب ان يكون بهذا الشكل x = Split(testSpcailPart(M, 4), " ") كما اني لاحظت ان الاسم الرباعي لو كان مركبا مثل هذا "جاب الله نور الدين عصام الدين بن مسعود" لا يتم قبوله إلا إذا قمنا بتقليص الاسم يعني استبدال اسمين مركبين باسمين غير مركبين فما هو سبب حدوث ذلك؟ -
معقولة اقارن اجابتي المتواضعة باجابة بروفيسور 😝
-
اهلا وسهلا أخي العزيز ابا جودى انا كنت متابع بصمت معكم في المنتدى لإنشغالي ببرمجة برامج تخص جهة عملي لكني وجدت ان برنامجك جميل ويستحق التمعن فيه بالنسبة للحل الذي توصلت إليه فهو للأسف لم يكن نقلاً عن اساتذتي الكبار والذين افتخر بحلولهم السحرية دائماً ويشرفني ان اقتبس منهم لكني بالحقيقة من خلال التجربة والبحث وماقادني للطريقة هو البحث في المواقع الاجنبية كما في الصورة كما انني قمت بتبسيط الدالة أكثر ^_^ انظر الى الكود في ملفي المرفق في التعليق السابق
-
سبقتموني في الوصول الى الحل لكني وصلت لنفس نتيجة الاستاذ جعفر بالنهاية وهذا شرف كبير لي 😀 821562509_FilterWithMoreCondition.mdb