بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه ،،
كيف حالكم أخواني في الله؟
أريد منكم المساعدة في إستخراج الجنسية من الرقم
مرفق مثال لأخت زهرة حساب العمر من الرقم
في نفس الرقم كيف اخذ الجنسية من الرقم الرابع والخامس والسادس من اليسار
شكرا لكم جميعاً
تم تعديل هذه المشاركة بواسطة Mrhb في 18 نوفمبر 2009 في 21:32
وعليكــم السـلام ورحمة الله وبركاتـه..
تفضل أخي الكريم ملفك آمل أن أكون أفدتك ... لاحظ الحدث في حدث بعد التحديث للرقم وطبعاً يمكنك وضعه أنت نهاية الكود السابق ولكن فصلته لكي تطلع عليه ...
طبعاً في قناع الأدخال جعلت الرقم فقط تسع خانات ..
تم تعديل هذه المشاركة بواسطة أبو رهف في 19 نوفمبر 2009 في 01:27
(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)
«´¨`.¸ أبو رهـــــــف ¸.´¨`»
(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )
¸.•’’ ’’
( `•.¸
`•.¸
شكرا لك أخي أبو رهف على سرعة الرد
ولكن المطلوب إذا الرقم 356 في المربع الرقم تلقائياً تحول في الخانة الجنسية بالحروف
مثلاً الرقم 28635601023
مثل ما تحول 86 إلى سنة الميلاد 1986م
و بالنفس الطريقة أريد تحول 356 في المربع الجنيسة إلى الأحرف ( هندي )
356 = هندي
458 = سعودي
957 = كويتي
هكذا
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
عمل ممتاز
سبق و ان قمت بعمل رقم يحتوي على :
اسم الوزارة
الدائرة
الدائرة التابعة
القسم
و الشعبة
و رقم الموظف
و حين تكتب الرقم تظهر المعلومات مباشرة
السلام عليكم ورحمة الله وبركاته
أستاذي إيهاب عثمان شكراُ لك على ما قدمت و فعلاُ هذا هو المطلوب
وشكراُ أيضاُ للأخ أبو رهف و الأخ مستر عربي
عندي سؤال هل أمكانية تحول الرقم إلى الجنسية دون إنشاء الجدول الخاص بالجنسية؟
يعني هل يطبق بالكود فقط؟
وشكرا لكم جميعاُ
بارك الله بكم جميعا
يمكن استخدام الكود بدون انشاء جدول خاص للجنسيات ( لقد تم حذفه من المثال ) وسيكون الكود بهذا الشكل
Private Sub strNumber_Exit(Cancel As Integer) If Mid(strNumber, 2, 2) <= Format(Date, "yy") Then Me.strAge = Format(Date, "yyyy") - (2000 + Mid(strNumber, 2, 2)) Me.strYear = 2000 + Mid(strNumber, 2, 2) Else Me.strAge = Format(Date, "yyyy") - (1900 + Mid(strNumber, 2, 2)) Me.strYear = 1900 + Mid(strNumber, 2, 2) End If Dim Indx As Double Indx = Mid(strNumber, 4, 3) Select Case Indx Case Is = 356 strNationality = "هندي" Case Is = 458 strNationality = "سعودي" Case Is = 957 strNationality = "كويتي" End Select End Sub
وهذا هو المثال بعد التعديل
بالتوفيق
شكر الله لك وغفر
بالطبع يمكن عن طريق عبارات if او Select case
ضع هذا الكود كبديل للكود الحالي
أقول لك !!!!
أنظر للمرفق أفضل..
==========
ولكن الطريقة الأولى أفضل...
1- السهولة واليسر في اضافة أي جنسيات جديدة لأنك هنا كلما ظهرت جنسية جديدة ستضر للدخول الى الكود والاضافة وتزداد الصعوبة اذا كان المستخدم لا خبرة له في التعامل مع محرر ال VB
2- كأصول قواعد البيانات لا بد من وجود جدول الجنسيات لسهولة الربط وانشاء العلاقات.
طبتم واهتديتم.
___________________________
عذراّ أستاذتنا الكبيرة زهرة...
لم ألاحظ ردك الكريم الا بعد ارسال مشاركتي..
(لكن لا بأس فإنما كنت أكرر شيئاً مما تعلمته منك :D)
تم تعديل هذه المشاركة بواسطة ايهاب عثمان في 19 نوفمبر 2009 في 18:54
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
السلام عليكم ورحمة الله وبركاته
أستاذتنا أخت زهرة مليون شكر على الرد,
فعلاً هذا هو المطلوب
الله يخليكِ و طول عمركِ فعلاُ اني تعلمت منكِ كثيراً
استاذي ايهاب عثمان فكرتك الأولى رائع جداً و فعلا ًراح طبقها ان شاء الله
ولكن بالكود اني سألت لباب المعرفة فقط اما فكرتك أكيد مفيدة جداً و سهلة
أشكركم جميعاُ
(( تمت الإجابة ))
تم تعديل هذه المشاركة بواسطة Mrhb في 19 نوفمبر 2009 في 19:48
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
