طلب مساعدة بخصوص الرقم القومى

[alaaelgammal]

لو انا محتاج اجعل من تيكست بوكس أخر يحصل على بيانات من تيكست بوكس الخاص بالرقم القومى 

مثلاً 

اسم المحافظة  والنوع ذكر أم أنثى من خلال الرقم القومى 

[Shivan Rekany]

38 دقائق مضت, alaaelgammal said:

لو انا محتاج اجعل من تيكست بوكس أخر يحصل على بيانات من تيكست بوكس الخاص بالرقم القومى 

مثلاً 

اسم المحافظة  والنوع ذكر أم أنثى من خلال الرقم القومى 

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

[alaaelgammal]

الصور بتشرح الرقم القومى المصرى 

[Shivan Rekany]

اذاً على هذا الاساس راح نقدر ان نأخذ البيانات مثل مواليد و النوع ذكر ام انثى واسم المحافظة
لكن انتظرني حتى غدا لان ليس لدي وقت كافي لعمل الان .. عند ربع ساعة راج ارجع عالبيت
ان شاء الله غدا راح اعمل لك المطلوب
تقبل تحياتي

[alaaelgammal]

بارك الله فيك فى انتظارك

[jjafferr]

السلام عليكم

 

أخي علاء ، المنتدى مليء بمثل هذا السؤال ، وكل ما عليك عمله هو استخدام خاصية البحث ، 

قواعد المشاركة فى الموقع

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

 

 

واليك بعض هذه المواضيع:

https://www.officena.net/ib/topic/43015-استخراج-تاريخ-الميلاد-من-الرقم-القومي-عنوان-معدل/?do=findComment&comment=247938

https://www.officena.net/ib/topic/49846-طريقة-كتابة-الرقم-القومي/?do=findComment&comment=304211

https://www.officena.net/ib/topic/73911-إستخراج-تاريخ-الميلاد-والسن-والنوع-من-الرقم-القومي/?do=findComment&comment=475682

https://www.officena.net/ib/topic/62992-استخراج-تاريخ-من-الرقم-القومي/?do=findComment&comment=409130

 

وهذا البحث يعطيك جميع المواضيع التي تخص الاكسس

https://www.google.com/search?biw=1400&bih=870&ei=ugIfWp7dC8qza6a5m9AG&q=-excel+access+"الرقم+القومى"+site%3Awww.officena.net&oq=-excel+access+"الرقم+القومى"+site%3Awww.officena.net&gs_l=psy-ab.3...18076.24409.0.25876.0.0.0.0.0.0.0.0..0.0....0...1.1.64.psy-ab..0.0.0....0.ngMmP-xMScE

 

جعفر

[أحمد العيسى]

لنفرض أن لديك  مربع نص الذى سوف تضع فيه الرقم القومى وليكن أسمه : National_Nr

          ، مربع نص سوف يأخذ معلوماته فى النوع من السابق وليكن أسمه : gender

           ، مربع نص ثالث سوف يأخذ معلوماته فى المحافظة  وليكن أسمه : Mohaftha

           ، مربع نص رابع سوف يستقطع تاريخ الميلاد  وليكن أسمه : birth

من مربع النص  National_Nr فى خاصية حدث بعد التحديث أنسخ الكود التالى:-

Private Sub National_Nr_AfterUpdate()
  
  Dim x, y, z, r As Byte
  Dim xx As String * 2
  Dim MyProvinces As Variant
  
     x = Left(Me.National_Nr, 1)
  If x = 2 Then
     Me.birth.Value = Mid(Me.National_Nr, 2, 2) & "-" & Mid(Me.National_Nr, 4, 2) & "-" & Mid(Me.National_Nr, 6, 2)
  Else
     Me.birth.Value = 20 & Mid(Me.National_Nr, 2, 2) & "-" & Mid(Me.National_Nr, 4, 2) & "-" & Mid(Me.National_Nr, 6, 2)
  End If
'=======
     y = Left(Right(Me.National_Nr, 2), 1) Mod 2
  If y = 1 Then
     Me.gender.Value = "ذكر"
  Else
     Me.gender.Value = "أنثى"
  End If
'=======
MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "03/بورسعيد", "04/السويس", "11/دمياط", "12/الدقهلية", "13/الشرقية" _
, "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "31/البحر الأحمر", "32/الوادى الجديد" _
, "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "23/الفيوم", "24/المنيا", "25/أسيوط", "34/شمال سيناء", "35/جنوب سيناء" _
, "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "88/خارج مسر")
    z = Mid(Me.National_Nr, 8, 2)
    For r = LBound(MyProvinces) To UBound(MyProvinces)
        xx = MyProvinces(r)
        If z = xx Then
           Me.Mohaftha.Value = Right(MyProvinces(r), Len(MyProvinces(r)) - 3)
         Exit For
        End If
    Next

End Sub

الكود السابق تم أخذه من هنا بالمنتدى ...

الأفضل عمل ملف توضيحي بالمرفقات .. تفضل

db1.rar

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

[Shivan Rekany]

51 دقائق مضت, أحمد العيسى said:

الحروف الهيروغليفي هى أسماء المحافظات

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

[أحمد العيسى]

6 دقائق مضت, Shivan Rekany said:

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

أولاً أنا استفدت من كرمك سابقاً .. ولا يمكن أن أسبق أستاذ مثلك

ثانياً وجدت الأستاذ جعفر  كتب بعدك ليدله على طريقة البحث فاحببت تقصير المسافة لا أكثر

عذراً .. تقبل أسفى ، وشكراً على معلومة القص واللصق

[Shivan Rekany]

1 دقيقه مضت, أحمد العيسى said:

عذراً .. تقبل أسفى

استغفر الله ... نحن نشكرك على مشاركتك 

2 دقائق مضت, أحمد العيسى said:

وشكراً على معلومة القص واللصق

لا داعي 

[alaaelgammal]

 بارك الله فيكم وجزيتم خيراً