الرقم القومي المصري

[TQTHAMI]

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

اسعد الله اوقاتكم بالخير والسعادة

اقدم لكم برنامج بسيط وصغير ولكنه بالنسبه لي انتاج كمبتدي وهو عبارة عن استخراج العمر وتاريخ الميلاد والجنس ومكان الميلاد من الرقم القومي المصري

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

واعتذر ان كان به اخطاء او كم هائل من الاكواد

وتقبلوا  تحياتي

الرقم القومي المصري.mdb

[محمد أبوعبدالله]

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

جميل بارك الله فيك

الملاحظة التي وجدتها هي النوع ( الجنس ) يوجد خطأ بالكود التالي

    If s = 1 Then
    Me.s1.Value = "ذكر"
    Else
    Me.s1.Value = "أنثى"
    End If

يرجى استبداله بالتالي

        Dim XXX As Long
        XXX = Mid([b], 13, 1)
        
        Select Case XXX
        Case Is = 1, 3, 5, 7, 9
        Me.s1.Value = "ذكر"
        
        Case Is = 0, 2, 4, 6, 8
        Me.s1.Value = "أنثى"

        End Select

الرقم القومي المصري.rar

تحياتي

[TQTHAMI]

4 ساعات مضت, TQTHAMI said:

لكنه بالنسبه لي انتاج كمبتدي

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

بارك الله فيك

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

يمكن تطبيقه والاستفادة منه اما بالنسبه لنا

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

تقبل تحياتي

[محمد أبوعبدالله]

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

وكلنا بحمد الله نستفيد من بعض في هذا الصرح العلمي العملاق بارك الله في القائمين عليه

تحباتب

[د.كاف يار]

في ٢٨‏/٦‏/٢٠٢١ at 07:40, TQTHAMI said:

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

اسعد الله اوقاتكم بالخير والسعادة

اقدم لكم برنامج بسيط وصغير ولكنه بالنسبه لي انتاج كمبتدي وهو عبارة عن استخراج العمر وتاريخ الميلاد والجنس ومكان الميلاد من الرقم القومي المصري

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

واعتذر ان كان به اخطاء او كم هائل من الاكواد

وتقبلوا  تحياتي

الرقم القومي المصري.mdb 904 kB · 16 downloads

ماشاء الله لا قوة الا بالله شغل نظيف و مرتب