اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)
59 دقائق مضت, محمود أبوسيف said:

لاداعي للجدوال الأخري أخي شفان فالأمر كله يتم عن طريق الأكواد

اسف ما كان عرفت ما هو الرقم الوطني

 

تم تعديل بواسطه Shivan Rekany
قام بنشر (معدل)

السلام عليكم

الأخ محمود ابوسيف اليك هذا الكود سيفيدك

Private Sub الوطني_AfterUpdate()
   Me.الميلاد = Mid([الوطني], 2, 4)
 
    If (Left(الوطني, 1) = 1) Then
الجنس = "ذكر"
 Else
 الجنس = "انثى"
 End If
End Sub
وهذا مرفق مرفق.rar
تم تعديل بواسطه محمود ادريس
قام بنشر
19 ساعات مضت, محمود ادريس said:

السلام عليكم

الأخ محمود ابوسيف اليك هذا الكود سيفيدك

Private Sub الوطني_AfterUpdate()
   Me.الميلاد = Mid([الوطني], 2, 4)
 
    If (Left(الوطني, 1) = 1) Then
الجنس = "ذكر"
 Else
 الجنس = "انثى"
 End If
End Sub
وهذا مرفق مرفق.rar

أخي محمود الملف المرفق لايفتح (برجاء تحويله إلي Access 2007)

قام بنشر (معدل)
5 ساعات مضت, ابوخليل said:

الاستاذ محمود   المثال الذي ارفقته لك  الا يعمل ويستخرج المطلوب ؟

حتى انك لم تعلق !!

هل يوجد مشكلة في المثال ؟

 

أخي أبو خليل أعزك الله المثال الذي قمت حضرتك بإرفاقة جميل ولكنه طويل بعض الشئ وأنا قمت بتجميع كود من عدة مواضيع 

https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=121302

تم تعديل بواسطه محمود أبوسيف
قام بنشر

كيف طويل ؟

هي اداة من افضل ما صنعه  اساتذة المنتدى الكرام ، فقط تمرر لها  اسم الحقل

melad: Kh_Date_Sex_Province([qawmy];1)
jens: Kh_Date_Sex_Province([qawmy];2)

qawmy هو حقل الرقم الوطني

السطر الاول لاستخراج تاريخ الميلاد  ويمثله الرقم 1

والثاني لاستخراج الجنس ويمثله الرقم 2

راجع الوحد النمطية لترى بقية الارقام

قام بنشر (معدل)

السلام عليكم

بعد اذن استاذى الغالى 

ابوخليل

اخى مثالك معدل على السريع

الكود للاستاز والعلامعه  عبدالله باقشير  بارك الله فيه

 

ومن الافضل من وجهة نظرى البسيطه ان يتم ذلك فى الاستعلامات وليس فى النمازج

كيفية إستخراج بيانات الرقم القومي.rar

 

 

راجع هذه الاعمال

https://www.officena.net/ib/topic/70607-فديو-شرح-دالة-datesrial/#comment-457453

https://www.officena.net/ib/topic/70571-فديوشرح-استخلاص-ت-الميلاد-من-الرقم-القومى-دالة-mid-val/#comment-457243

https://www.officena.net/ib/topic/70571-فديوشرح-استخلاص-ت-الميلاد-من-الرقم-القومى-دالة-mid-val/#comment-457243

 

تم تعديل بواسطه ابو الآء

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information