حسين العربى قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 (معدل) السلام عليكم ورحمة الله وبركاته (اخواني اعضاء ومشرفي المنتدي الكرام كل عام وانتم بخير ) اريد شرط في مربع نص في نموذج فرعي اسمه رقم اللجنة يعتمد علي مربع نص الاسم ومربع نص الجنس item_sort مثلا ذكر انثي الشرط هو اذا اذا كان الاسم مربع النص item_nem يبدأ بحرف ( أ ، ب ، ت ، ث ، ج ، ح ) نوعه في مربع نص الجنس مثلا ذكر يكون رقم اللجنه ( 1) واذا كان يبدأ بحرف ( خ ، د ، ذ، ، ر ، ز ، س ) ونوع في مربع نص الجنس انثي تكون رقم اللجنة (2) وهكذا الي باقي الاحرف تم تعديل مايو 13, 2017 بواسطه حسين العربى
حسين العربى قام بنشر مايو 13, 2017 الكاتب قام بنشر مايو 13, 2017 ملحوظه اساتذتي الافاضل طبعا ممكن حد يسألني ليه انت حاطط في الشرط الجنس الجواب لاني الرجال لجنه ( 1 ) عندهم يكون اول حرف من اسمهم يبدأ ( أ ، ب ، ت ، ث ، ج ، ح ) والنساء لجنه ( 1 ) عندهم يكون اول حرف من اسمهم يبدأ ( أ ، ب ، ت ، ث ، ج )
Shivan Rekany قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 2 ساعات مضت, حسين العربى said: الجواب لاني الرجال لجنه ( 1 ) عندهم يكون اول حرف من اسمهم يبدأ ( أ ، ب ، ت ، ث ، ج ، ح ) يا اهلا بك اخي حسين ممكن تعطي لي كل الاحتمالات لكي اعمل لك الكود المناسب تقبل تحياتي 1
حسين العربى قام بنشر مايو 13, 2017 الكاتب قام بنشر مايو 13, 2017 (معدل) استاذي ومعلمي الفاضل اهلا بك واشكرك علي اهتمامك استاذي الفاضل لاتوجد احتملات غير التي ذكرتها طبعا الرجال هتاخد كل الحروف والنساء كذلك الرجال لجنه (1) يكون اول حرف من اسمهم أ ب ت ث ج ح ولجنه (2) هيكون اول حرف من اسمهم. خ د ز ر ز ولجنه (3) س ش ص ض ط بمعني اني الرجال 5 لجان قسم عليهم الحروف الابجديه علي خمسة لجان طبعا النساء تختلف في انها ليست نفس الرجال في ترتيب الحروف فلجنه (1)في النساء هيكون اول حرف من اسمهم ) أ ب ت ث ج ح خ مع العلم انا لجنه ( 1) في الرجال. هيكون اول حرف من اسمهم. أ ب ت ث ج ح وهذا للتوضيح وللعلم لماذ اخترت في الشرط حقل الجنس لهذا السبب طبعا هنقسم الحروف لابجديه للنساء علي 4 لجان وارجو ان اكون قد اوضحت ما اريد وحزاكم الله خيرا تم تعديل مايو 13, 2017 بواسطه حسين العربى 1
Shivan Rekany قام بنشر مايو 14, 2017 قام بنشر مايو 14, 2017 24 دقائق مضت, حسين العربى said: up عفوا على التأخير الرد اتفضل اليك طريقة تقدر تستخدم دالة if هكذا If Me.Gender = "ذكر" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Or Left(Me.myname, 1) = "ح" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "ذ" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "ذ" Then Me.committee = "لجنة 2" End If انا قلت لك اعطيني كل الاحتمالات اي أي لجنة بيأخذ اي حروف للرجال والنساء مثلا اذا لجنة رقم 3 بيأخذ الحروف ط ش س ع ق مثلا للرجال والنساء تقدر ان لا تستخدم في ذلك السطر من الكود Me.Gender = "انثى" او "ذكر" لأن كل منها بيأخذ نفس الحروف اتمنى لن يوصل لك المطلوب تقبل تحياتي 1
حسين العربى قام بنشر مايو 14, 2017 الكاتب قام بنشر مايو 14, 2017 استاذي الفاضل انا وضعت الكود في حدث عند التحميل ومره اخر ه وضعته في حدث عند الحالي وفي حدث عند الفتح ولاكن لم يفلح الامر جربت كل ماثبق اليك المرفق للتجربة عليه بحث مساهم.rar 44 دقائق مضت, Shivan Rekany said: عفوا على التأخير الرد اتفضل اليك طريقة تقدر تستخدم دالة if هكذا If Me.Gender = "ذكر" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Or Left(Me.myname, 1) = "ح" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "ذ" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "ذ" Then Me.committee = "لجنة 2" End If انا قلت لك اعطيني كل الاحتمالات اي أي لجنة بيأخذ اي حروف للرجال والنساء مثلا اذا لجنة رقم 3 بيأخذ الحروف ط ش س ع ق مثلا للرجال والنساء تقدر ان لا تستخدم في ذلك السطر من الكود Me.Gender = "انثى" او "ذكر" لأن كل منها بيأخذ نفس الحروف اتمنى لن يوصل لك المطلوب تقبل تحياتي لجان الرجال لجنة رقم 1 ( أ - ب - ت – ث – ج ) لجنة رقم 2 ( ح - خ - د – ذ – ر – ز ) لجنة رقم 3 ( س - ش – ص– ض– ط – ظ ) لجنة رقم 4 ( ع ) لجنة رقم 5 ( غ - ف – ق – ك – ل – م – ن – ه – و - ي ) لجان النساء لجنة رقم 1 ( أ - ب - ت – ث – ج – ح ) لجنة رقم 2 ( خ - د – ذ – ر – ز- س - ش ) لجنة رقم 3 ( ص - ض – ط – ظ – ع – غ – ف – ق ) لجنة رقم 4 ( ك - ل – م – ن – ه – و - ي )
Shivan Rekany قام بنشر مايو 14, 2017 قام بنشر مايو 14, 2017 (معدل) 34 دقائق مضت, حسين العربى said: استاذي الفاضل اين يوضع هذا الكود اولا اضفت لك حقل جديد في جدول لرمز اللجنة و ستكتب في حدث بعد تحديث ال gender او تقدر تستخدم في حدث عند الحالي او اذا اذا عندك اسماء مكتوبة تقتدر تستخدم في خلف زر و تستخدم مع الكود فور تو لكي يسجل في كل سجلات لكن بعد ما عطيتني كل الاحتمالات اتفظل قاعدة بياناتك بعد اضافة حقل الخاص للجنة واضافة هذا الكود Private Sub Gender_AfterUpdate() If Me.Gender = "ذكر" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "أ" Or Left(Me.myname, 1) = "إ" Or Left(Me.myname, 1) = "آ" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "أ" Or Left(Me.myname, 1) = "إ" Or Left(Me.myname, 1) = "آ" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Or Left(Me.myname, 1) = "ح" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "ح" Or Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ذ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "ز" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ذ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "س" Or Left(Me.myname, 1) = "ش" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "س" Or Left(Me.myname, 1) = "ش" Or Left(Me.myname, 1) = "ص" Or Left(Me.myname, 1) = "ض" Or Left(Me.myname, 1) = "ط" Or Left(Me.myname, 1) = "ظ" Then Me.committee = "لجنة 3" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ص" Or Left(Me.myname, 1) = "ض" Or Left(Me.myname, 1) = "ط" Or Left(Me.myname, 1) = "ظ" Or Left(Me.myname, 1) = "ع" Or Left(Me.myname, 1) = "غ" Or Left(Me.myname, 1) = "ف" Or Left(Me.myname, 1) = "ق" Then Me.committee = "لجنة 3" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "ع" Then Me.committee = "لجنة 4" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ك" Or Left(Me.myname, 1) = "ل" Or Left(Me.myname, 1) = "م" Or Left(Me.myname, 1) = "ن" Or Left(Me.myname, 1) = "ه" Or Left(Me.myname, 1) = "و" Or Left(Me.myname, 1) = "ي" Then Me.committee = "لجنة 4" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "غ" Or Left(Me.myname, 1) = "ف" Or Left(Me.myname, 1) = "ق" Or Left(Me.myname, 1) = "ك" Or Left(Me.myname, 1) = "ل" Or Left(Me.myname, 1) = "م" Or Left(Me.myname, 1) = "ن" Or Left(Me.myname, 1) = "ه" Or Left(Me.myname, 1) = "و" Or Left(Me.myname, 1) = "ي" Then Me.committee = "لجنة 5" End If End Sub وفي حدث الحالي انا كتبت Gender_AfterUpdate لكي اذا تفتح اي سجل يسجله اذا عندك سجلات مسجلة من قبل وتقدر تحذفه بعد تسجيل بحث مساهم.rar تم تعديل مايو 14, 2017 بواسطه Shivan Rekany 1
حسين العربى قام بنشر مايو 14, 2017 الكاتب قام بنشر مايو 14, 2017 (معدل) الف شكر استاذي الفاضل بالفعل انت مبدع دائما جزاك الله كل خير وزادك الله من علمه وكل عام وانت بخير بس شوف اخي الفاضل المرفق المفروض حرف العين في ذكر يعطيني لجنه 4 هنا عطيني لجنه 3 تم تعديل مايو 14, 2017 بواسطه حسين العربى 2
حسين العربى قام بنشر مايو 14, 2017 الكاتب قام بنشر مايو 14, 2017 وحرف الحاء في ذكر المفروض يعطيني لجنه 2 بيعطيني لجنه 1 1
Shivan Rekany قام بنشر مايو 14, 2017 قام بنشر مايو 14, 2017 (معدل) 1 ساعه مضت, حسين العربى said: المفروض حرف العين في ذكر يعطيني لجنه 4 هنا عطيني لجنه 3 انت على الحق الخطأ من عندي افتح محرر فيجوال واحذف هذا Or Left(Me.myname, 1) = "ع" من هذا السطر 7 ساعات مضت, Shivan Rekany said: ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ص" Or Left(Me.myname, 1) = "ض" Or Left(Me.myname, 1) = "ط" Or Left(Me.myname, 1) = "ظ" Or Left(Me.myname, 1) = "ع" Or Left(Me.myname, 1) = "غ" Or Left(Me.myname, 1) = "ف" Or Left(Me.myname, 1) = "ق" Then Me.committee = "لجنة 3" وبالنسبة منذ ساعه, حسين العربى said: وحرف الحاء في ذكر المفروض يعطيني لجنه 2 بيعطيني لجنه 1 ما شفت في الكود اي خطأ وحقا النتيجة بيعطي الخطأ واخير عملت تغير تسلسلي في الكود وضبطت اليك ملفك بعد تعديلين فيها بحث مساهم.rar تم تعديل مايو 14, 2017 بواسطه Shivan Rekany 1
حسين العربى قام بنشر مايو 14, 2017 الكاتب قام بنشر مايو 14, 2017 سامحني استاذي الفاضل اسقلت عليك انظر الي المرفق من المفترض لجنه 4 ذكر تكون حرف العين فقط / ولا يدخل معها اي حرف اخر ولا في الصوره يدخل معها حرف الميم وانظر الي الاسم الاول وبالنسبه لهذا السطر الذي تريدني ان احذف بس انا لو حذفته بكده حرف العين هيكون غير موجود في لجنة النساء مع العلم اني ذكرته لك في لجنه 3 انثي Or Left(Me.myname, 1) = "ع"
Shivan Rekany قام بنشر مايو 14, 2017 قام بنشر مايو 14, 2017 غدا ان شاء الله لي العودة انتظرني اتفضل جرب هذا المرفق انا اتأخرت لازم اروح جربه و وافيني بالنتيجة بحث مساهم.rar 2
حسين العربى قام بنشر مايو 15, 2017 الكاتب قام بنشر مايو 15, 2017 الف الف شكر استاذي الفاضل كده تمام هذا هو المطلوب جزاك الله خيرا 1
Shivan Rekany قام بنشر مايو 15, 2017 قام بنشر مايو 15, 2017 7 ساعات مضت, حسين العربى said: الف الف شكر استاذي الفاضل كده تمام هذا هو المطلوب جزاك الله خيرا والحمدلله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.