Foksh

جاري تجربة الحل الذي تم استنباطه من فكرة تغيير لغة الترميز .. اعتقد أن الفكرة تستحق الإنتظار ، لأنها قيد التجارب على أكثر من كمبيوتر 😁

إلى كل من ساهم في إنجاح فكرتي ، والتي ترتكز على تطوير فكرة التفعيل من خلال الإنترنت ( دون الحاجة إلى أي رمز تفعيل يتلقاه المستخدم أو العميل من خلال مطور ومبرمج قاعدة البيانات ) . وقد تم من خلال التجارب التي شاركتموني إياها الحصول على جميع الأخطاء ، وحلها بشكل كامل وجذري بإذن الله . المشاركة إختيارية وليست إجبارية ، ولا عتب على من لا يرغب ، يكفينا أنه أنار المنتدى بمروره الكريم ، وسيتم تفعيل اشتراك أي مستخدم تلقائياً لحذف ملفات التفعيل السابقة ، استخدم ملف الحذف التالي حسب إصدار الأوفيس لديك . Clear64.zip أو Clear32.zip

يعمل بكفاءة .. شكراً لجهودك وعطاءك المستمرين أستاذ @عبدالله بشير عبدالله

جزاك الله خيراً أستاذ عبدالله ، كملاحظة :- الملف يعمل عند الاختيار بدون الفلترة بشكل صحيح 100% ، لكن عند الفلترة ، انظر الصورة التوضيحية

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

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

أخي وائل ، تم تفعيل اشتراكك بنجاح .. جرب الآن الدخول الى البرنامج وانقر زر "تحقق من تفعيل النسخة" وللتأكيد انقر على زر علامة التعجب في اقصى اليسار في الأعلى ، وارسل صورة للنتيجة

وزائر آخر ينضم إلى كوكبة المسجلين حضورهم ، ينتهي بالرقم 146252 ، وزيارة عابرة كالعادة 😇

هذا السطر وظيفته فقط هي استخراج آخر رقمين من سنة الميلاد من الرقم القومي ، وبالتالي لن تكون النتيجة مثلا 1985 أو 2010 على سبيل المثال بل ستكون 85 أو 10 ( كما في المثالين ) . ولذا فأن الجزء المصحح أعلاه سابقاً ، وظيفته إعادة دمج رقم القرن مع رقم السنة المستخرج ..

لاعب جديد ينضم إلى قائمة المسجلين لحضورهم على السيرفر ، ينتهي بالرقم 375526 ، وأيضاً لم يطالب بالتفعيل

شكراً لذوقك الرفيع 😎

باعتقادي استخدام كما هو الحالي ، هو أفضل حل لك

أستاذ محمد ، تم تفعيل اشتراكك بنجاح .. جرب الآن الدخول الى البرنامج وانقر زر "تحقق من تفعيل النسخة" وللتأكيد انقر على زر علامة التعجب في اقصى اليسار في الأعلى ، وارسل صورة للنتيجة

لا عليك أخي أبو أحمد ، شكراً لاهتمامك وردك اللطيف 💐

أخي محمد ،تم تفعيل اشتراكك بنجاح .. جرب الآن الدخول الى البرنامج وانقر زر "تحقق من تفعيل النسخة" وللتأكيد انقر على زر علامة التعجب في اقصى اليسار في الأعلى ، وارسل صورة للنتيجة

تم تسجيل جهاز جديد في الإنتظار ينتهي بالرقم :- 45860

أهلا بك أخي العضو الجديد @markoni .. الموضوع قديم ومضى عليه 3 سنوات .. وصاحب الموضوع لم يتابع بإكمال الموضوع باتباعه سياسة المنتدى وشروط إنشاء موضوع جديد

فعلاً ، ملاحظتك صحيحة ومهمة جداً ، وأنت محق في التنبيه عليها .. وعليه فإنه يمكن تعديل الدالة الأصلية لتصبح :- Function Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim D As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== ' يمكنك إضافة المحافظات الاخرى الغير موجودة ' او تعديل الموجود في حالات الخطأ 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/خارج مصر") '============================================== Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(MyNumber)) = 0 Then GoTo 1 End If If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then Date_Sex_Province = "Error_MyNumber" GoTo 1 End If If MyTest = 1 Then D = Mid(MyNumber, 6, 2) m = Mid(MyNumber, 4, 2) y = Mid(MyNumber, 2, 2) ty = Left(MyNumber, 1) Select Case ty Case "2": yy = "19" & y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Date_Sex_Province = DateSerial(yy, m, D) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "ذكر" Else yy = "انثى" Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function أي أن ما تم تعديله هو الجزء :- Select Case ty Case "2": yy = y Case "3": yy = "20" & y ليصبح :- Select Case ty Case "2": yy = "19" & y Case "3": yy = "20" & y جزاك الله خيراً أخي @منتصر الانسي ، عادة لا أقوم بالتعديل على أي جزء لم يتطرق له صاحب الطلب ( معتقداً انه يلبي حاجته دون التوسع في الإحتمالات 😅 )

شكراً لك دعمك أخي جمال .. تم تفعيل الإشتراك مدة 270 يوم ، أي أن التفعيل سيكون لتاريخ 2026-06-25 . ونرجو تأكيد ذلك من خلال صورة بعد النقر على زر "تحقق من تفعيل النسخة" ، وإعلامنا بالنتيجة والمدة الحالية لديك

سؤال جميل .. بعد الإطلاع على الوحدة النمطية ، جرب هذا الاستعلام باستدعاء الدالة :- UPDATE tbl_student1 SET Birth = Date_Sex_Province([National_Nr], 1) WHERE Len([National_Nr]) = 14 AND IsDate(Date_Sex_Province([National_Nr], 1));

وعليكم السلام ورحمة الله وبركاته .. دون الحاجة لإستخدام وحدة نمطية ، كانت لي تجربة سابقة من خلال استعلام تحديث مباشر ، تم تعديله ليتعامل مع مسميات الحقول والجدول لديك ، جربه :- UPDATE tbl_student1 SET Birth = DateSerial( IIf(Left([National_Nr],1)="2",1900,2000) + Val(Mid([National_Nr],2,2)), Val(Mid([National_Nr],4,2)), Val(Mid([National_Nr],6,2)) ) WHERE Len([National_Nr])=14 AND IsDate(DateSerial( IIf(Left([National_Nr],1)="2",1900,2000) + Val(Mid([National_Nr],2,2)), Val(Mid([National_Nr],4,2)), Val(Mid([National_Nr],6,2)) ));

تم إضافة مستخدمين جديدين على السيرفر :- الأول برقم ينتهي بـ 75826 الثاني برقم ينتهي بـ 55263 ولم يطالبا بالتفعيل إلى الآن

تم التفعيل بنجاح ، وإذا سمحت لك الفرصة ، النقر على زر "تحقق من تفعيل النسخة" ، وإعلامنا بالنتيجة والمدة الحالية لديك

أخي أبو أحمد ، دعوة للمشاركة بهذا الموضوع الذي يعتمد على Google Apps Script

لاعب آخر سجل حضوره على السيرفر ينتهي بالرقم 59561