تحديد الجنس في جدول

[فؤاديحيى]

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

الجنس ‫‬.rar

[ابوخليل]

اهلا استاذ فؤاد وكل سنة وانت طيب

طبعا  الموجود في الجدول اسماء فقط  ، وتريد اكسس يتعرف على  اسم الذكر من اسم الانثى

الحل بسيط جدا  ، نحتاج  اداة مساعدة لها مخ بشري اقصد آدمي لديه خبرة بالاسماء   ويكتب في العمود الثاني امام الذكر : ذكر  وأمام الانثى : انثى ..... واشتراط الخبرة احتمال بعض الاسماء فيها اشكالات ويصعب التفريق بينها 

ومع هذا يمكن تجد حل  لان القاعدة البرمجية تقول  لا يوجد مستحيل

اسأل الله لك الاعانة والتوفيق

[عبد الفتاح كيرة]

استحدث حقلا للجنس

لا عيب

ولا حرام

وفقكم الله

تم تعديل سبتمبر 9, 2017 بواسطه عبد الفتاح كيرة

[فؤاديحيى]

حياك اخي العزيز ابو خليل

وتسلم

الذي اقصده مثلا

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

فعندما يكون الاسم الاول مثلا احمد يكتب في استعلام ذكر

واذا كان امل يكتب انثى

فعندما قسمنا الاسم الى 

الاسم الاول   والثاني  والثالث واللقب استخدمنا جدول كما في المرفق

 

 

الجنس ‫‬.rar

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

[عبد الفتاح كيرة]

الحقل يكون فى الجدول

وهو حقل رقمى

1=ذكر

2=أنثى

 

[فؤاديحيى]

اخي عبدالفتاح اظن ان الفكرة ما اتضحت لك

انا اعرف انه يوضع كما قلت جدول وفيه 1=ذكر  ؛2=انثئ

لكن المطلوب هو عندما يكون الاسم مثلا امل محمد السيد يظهر مباشرة في حقل الجنس انثئ في استعلام حسب الاسم الاول

لان احيانا بتكون لدينا اسماء كثيرة فبدل ان اجلس اكتب انا جنس كل واحد

الاستعلام يوضع لهم الجنس حسب دالة او برمجة

[Shivan Rekany]

مشاركة مع استاذنا @ابوخليل و @عبد الفتاح كيرة

في ٩‏/٩‏/٢٠١٧ at 19:50, فؤاديحيى said:

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

ھذا جيد

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

Private Sub namst_AfterUpdate()
    Dim MyName
        MyName = Split(Me.namst, " ")
    If DLookup("[namm]", "TblMalomat", "[namm]='" & MyName(0) & "'") <> "" Then
            Me.sex = DLookup("[sex]", "TblMalomat", "[namm]='" & MyName(0) & "'")
        Else
            MsgBox (" الاسم " & " ( " & MyName(0) & " ) " & " ليس موجودا في الجدول المعلومات ")
    End If
End Sub

اذن اكتب احد الاسماء الموجودة في جدول المعلومات 
لكن ملاحظة يجب ان يكون هناك فراغ اي مسافة بين الاسماء 

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

Public Function BoyGirl(MyName)
        Dim MySex
        MyName = Split(MyName, " ")
    If DLookup("[namm]", "TblMalomat", "[namm]='" & MyName(0) & "'") <> "" Then
            MySex = DLookup("[sex]", "TblMalomat", "[namm]='" & MyName(0) & "'")
    End If
    BoyGirl = MySex
End Function

وفي استعلام التحديث اضف حقل الجنس وفي سطر تحديث اكتب
اسم الفانكشن و بين قوسين اسم الحقل الاسماء

BoyGirl([tel1]![namst])

فقط عليك ان تعمل تشغيل الاستعلام مرة واحدة فقط
اتفضل اليك قاعدتك بعد التعديل
 

 

الجنس --.rar

[فؤاديحيى]

تسلم اخي الغالي

هو المطلوب بالضبط

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