شرط في منشأ التعبير في مربع نص نموذج فرعي

[حسين العربى]

السلام عليكم ورحمة الله وبركاته  (اخواني اعضاء ومشرفي المنتدي الكرام  كل عام وانتم بخير )

اريد شرط في مربع نص في نموذج فرعي اسمه رقم اللجنة  يعتمد علي مربع نص الاسم ومربع نص الجنس item_sort مثلا ذكر  انثي 

الشرط  هو اذا  اذا كان  الاسم مربع النص item_nem  يبدأ   بحرف ( أ  ، ب ، ت ، ث ، ج ، ح )  نوعه في مربع نص الجنس مثلا ذكر  يكون رقم اللجنه  ( 1)

واذا كان يبدأ  بحرف  ( خ ، د ، ذ، ، ر ، ز  ، س )  ونوع في مربع نص  الجنس انثي  تكون رقم اللجنة  (2) وهكذا الي باقي الاحرف

تم تعديل مايو 13, 2017 بواسطه حسين العربى

[حسين العربى]

ملحوظه اساتذتي الافاضل  طبعا ممكن حد يسألني ليه انت حاطط في الشرط  الجنس  

الجواب  لاني الرجال  لجنه ( 1 )  عندهم  يكون اول حرف من اسمهم يبدأ  ( أ ، ب ، ت ، ث ، ج ، ح ) 

والنساء لجنه ( 1 ) عندهم  يكون اول حرف من اسمهم يبدأ   ( أ ، ب ، ت ، ث ، ج  ) 

[Shivan Rekany]

2 ساعات مضت, حسين العربى said:

الجواب  لاني الرجال  لجنه ( 1 )  عندهم  يكون اول حرف من اسمهم يبدأ  ( أ ، ب ، ت ، ث ، ج ، ح ) 

يا اهلا بك اخي حسين

ممكن تعطي لي كل الاحتمالات لكي اعمل لك الكود المناسب

تقبل تحياتي

[حسين العربى]

استاذي ومعلمي الفاضل اهلا بك واشكرك علي اهتمامك 

استاذي الفاضل لاتوجد احتملات غير التي ذكرتها

طبعا الرجال هتاخد كل الحروف 

والنساء كذلك

الرجال لجنه (1) يكون اول حرف من اسمهم أ ب ت ث ج ح

ولجنه (2) هيكون اول حرف من اسمهم.  خ د ز ر ز

ولجنه (3) س ش ص ض ط 

بمعني اني الرجال 5 لجان قسم عليهم الحروف الابجديه علي خمسة لجان

طبعا النساء تختلف في انها ليست نفس الرجال في ترتيب الحروف

فلجنه (1)في النساء هيكون اول حرف من اسمهم ) أ ب ت ث ج ح خ

مع العلم انا لجنه ( 1) في الرجال. هيكون اول حرف من اسمهم. أ ب ت ث ج ح وهذا للتوضيح وللعلم لماذ اخترت في الشرط حقل الجنس لهذا السبب

طبعا هنقسم الحروف لابجديه للنساء علي 4 لجان

وارجو ان اكون قد اوضحت ما اريد وحزاكم الله خيرا

تم تعديل مايو 13, 2017 بواسطه حسين العربى

[حسين العربى]

up

[Shivan Rekany]

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 = "انثى" او "ذكر" لأن كل منها بيأخذ نفس الحروف

اتمنى لن يوصل لك المطلوب

تقبل تحياتي

[حسين العربى]

استاذي الفاضل اين يوضع هذا الكود

[حسين العربى]

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

اليك المرفق  للتجربة عليه

 

 

بحث مساهم.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]

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

[حسين العربى]

الف شكر استاذي الفاضل بالفعل انت مبدع دائما    جزاك الله كل خير  وزادك الله من علمه وكل عام وانت بخير 

بس شوف اخي الفاضل المرفق 

المفروض  حرف العين في ذكر  يعطيني لجنه 4 هنا عطيني لجنه 3 

تم تعديل مايو 14, 2017 بواسطه حسين العربى

[حسين العربى]

وحرف الحاء في  ذكر المفروض يعطيني لجنه 2 بيعطيني لجنه 1

[Shivan Rekany]

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

[حسين العربى]

سامحني استاذي الفاضل اسقلت عليك 

انظر الي المرفق من المفترض لجنه 4 ذكر  تكون حرف   العين فقط /  ولا يدخل معها اي حرف اخر  ولا في الصوره يدخل معها حرف الميم

وانظر الي الاسم الاول

وبالنسبه لهذا السطر الذي تريدني ان احذف بس انا لو حذفته بكده حرف العين هيكون غير موجود في لجنة النساء مع العلم اني ذكرته لك في لجنه 3 انثي 
Or Left(Me.myname, 1) = "ع"

 

[Shivan Rekany]

غدا ان شاء الله لي العودة

انتظرني

اتفضل جرب هذا المرفق 

انا اتأخرت لازم اروح

جربه و وافيني بالنتيجة

بحث مساهم.rar

[حسين العربى]

الف الف شكر استاذي الفاضل كده تمام  هذا هو المطلوب جزاك الله خيرا 

[Shivan Rekany]

7 ساعات مضت, حسين العربى said:

الف الف شكر استاذي الفاضل كده تمام  هذا هو المطلوب جزاك الله خيرا 

والحمدلله