تغيير جنس جنسية الشخص

[التقني]

السلام عليكم ورحمة الله وبركاته

اخواني

أقدم اليك طريقة ( أو حركة بسيطة ) للتعرف على جنس الشخص ومن ثم تغيير جنس جنسيته ..

ففي بعض البرامج يتم ارفاق جدول به أسماء الجنسيات مثل :

مصري - سعودي - كويتي - عراقي .... الخ وهذه المسميات تتبع الاسم المذكر

ولكن اذا أردنا أن ادخال أسماء مؤنثة فهل من المعقول انشاء هذا الجدول بهذه الطريقة :

مصري - مصرية - سعودي - سعودية - كويتي - كويتية .... الخ من المسميات للجنسين

عندها سنحتاج الى سجلات مضاعفة وخاصة إذا أدخلنا جميع جنسيات العالم .

في المرفقات طريقة التعديل على جنس الجنسية :)

ملاحظة مهمة :

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

وتقبل الله صيامكم

التقني

gndr.rar

تم تعديل أكتوبر 10, 2005 بواسطه التقني

[أبو هادي]

السلام عليكم

موضوع جميل (y)

والتعديل كالتالي :

Private Sub Sex_AfterUpdate()
  If Me.Sex = "انثى" Then
    If Right(Me.Nat, 1) <> "ة" Then Me.Nat = Me.Nat & "ة"
  Else
    If Right(Me.Nat, 1) = "ة" Then Me.Nat = Left(Me.Nat, Len(Me.Nat) - 1)
  End If
End Sub

Private Sub nat_AfterUpdate()
  Call Sex_AfterUpdate
End Sub

تحياتي .

تم تعديل أكتوبر 10, 2005 بواسطه أبو هادي

[wkalo]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته،،
للمعلومة فقط ان طلب الجنسية و الجواب عليها يكون عطفا لكلمة جنسية و ليس للجنس
مثال :

الاسم الجنس الجنسية
احمد ذكر مصرية
منال انثى لبنانية
زياد ذكر سعودية


و قد علمت ذلك عندما طلب منى على امن عام دولة كنت ازورها "الجنسية" و قلت "لبناني" فاجاب مستهزاء الجنسية= لبنانية لان
الجنسية هى مؤنث

[التقني]

وعليكم السلام ورحمة الله وبركاته

حياك الله أخي أبو هادي

الكود لم يعمل معي ( لا يوجد له أي تأثير )

-------------

[rudwan]

الكود صحيح مئه بالمئه

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

gndr.rar

[التقني]

السلام عليكم ورحمة الله

نورت الموضع بتواجدك أخي rudwan

فعلا الكود 100% يعمل بكفاءة

لكن بعد الغاء الكود التالي في حدث عند الخروج:

Private Sub sex_Exit(Cancel As Integer)
'If Sex.Value = "انثى" Then
'Nat.Value = Nat.Value + "ة"
'Oky.Visible = True
'End If

End Sub

النتيجة ..

المثال الذي أرفقه الحبيب rudwan هو المعتمد

بارك الله في الأخوين الاستاذين أبو هادي و rudwan

وعلى الخير نلتقي