alaaelgammal قام بنشر نوفمبر 29, 2017 قام بنشر نوفمبر 29, 2017 لو انا محتاج اجعل من تيكست بوكس أخر يحصل على بيانات من تيكست بوكس الخاص بالرقم القومى مثلاً اسم المحافظة والنوع ذكر أم أنثى من خلال الرقم القومى
Shivan Rekany قام بنشر نوفمبر 29, 2017 قام بنشر نوفمبر 29, 2017 في 29/11/2017 at 16:09, alaaelgammal said: لو انا محتاج اجعل من تيكست بوكس أخر يحصل على بيانات من تيكست بوكس الخاص بالرقم القومى مثلاً اسم المحافظة والنوع ذكر أم أنثى من خلال الرقم القومى Expand هذا يعود حسب كيفية عمل الرقم القومي من قبل الدولة يجب عليك ان تعرف ذلك وتعطينا المعلومات عليه لكي نعمل لك المطلوب تحياتي
alaaelgammal قام بنشر نوفمبر 29, 2017 الكاتب قام بنشر نوفمبر 29, 2017 الصور بتشرح الرقم القومى المصرى
Shivan Rekany قام بنشر نوفمبر 29, 2017 قام بنشر نوفمبر 29, 2017 اذاً على هذا الاساس راح نقدر ان نأخذ البيانات مثل مواليد و النوع ذكر ام انثى واسم المحافظة لكن انتظرني حتى غدا لان ليس لدي وقت كافي لعمل الان .. عند ربع ساعة راج ارجع عالبيت ان شاء الله غدا راح اعمل لك المطلوب تقبل تحياتي
jjafferr قام بنشر نوفمبر 29, 2017 قام بنشر نوفمبر 29, 2017 السلام عليكم أخي علاء ، المنتدى مليء بمثل هذا السؤال ، وكل ما عليك عمله هو استخدام خاصية البحث ، قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملةو بصفة خاصة نؤكدعلى ما يلي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 جعفر 1
أحمد العيسى قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 (معدل) لنفرض أن لديك مربع نص الذى سوف تضع فيه الرقم القومى وليكن أسمه : 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.rarFetching info... تم تعديل نوفمبر 30, 2017 بواسطه أحمد العيسى 1
Shivan Rekany قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 في 30/11/2017 at 12:57, أحمد العيسى said: الحروف الهيروغليفي هى أسماء المحافظات Expand شكرا على المساعدة ... انا كان عطيت موعد لكي اساعده لكن حضرتك سبقتني وشكرا لك ومن شان الحروف الهيروغليفية ... هناك علاج مبسط على ذلك فقط قبل تعمل نسخ الكود يجب عليك ان تتغير كيبوردك الى العربية وبعدين تعمل نسخ ولصق وبهذه الطريقة لا تجد الحروف الهيروغليفية تحياتي لكم 1
أحمد العيسى قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 في 30/11/2017 at 13:52, Shivan Rekany said: شكرا على المساعدة ... انا كان عطيت موعد لكي اساعده لكن حضرتك سبقتني وشكرا لك ومن شان الحروف الهيروغليفية ... هناك علاج مبسط على ذلك فقط قبل تعمل نسخ الكود يجب عليك ان تتغير كيبوردك الى العربية وبعدين تعمل نسخ ولصق وبهذه الطريقة لا تجد الحروف الهيروغليفية تحياتي لكم Expand أولاً أنا استفدت من كرمك سابقاً .. ولا يمكن أن أسبق أستاذ مثلك ثانياً وجدت الأستاذ جعفر كتب بعدك ليدله على طريقة البحث فاحببت تقصير المسافة لا أكثر عذراً .. تقبل أسفى ، وشكراً على معلومة القص واللصق
Shivan Rekany قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 في 30/11/2017 at 14:01, أحمد العيسى said: عذراً .. تقبل أسفى Expand استغفر الله ... نحن نشكرك على مشاركتك في 30/11/2017 at 14:01, أحمد العيسى said: وشكراً على معلومة القص واللصق Expand لا داعي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.