Foksh

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

وزائر آخر ينضم إلى كوكبة المسجلين حضورهم ، ينتهي بالرقم 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

جهاز جديد تم تسجيله على السيرفر:- ينتهي بـ 75328

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

ليست بروعة أفكارك وإبداعاتك أخي منتصر

أعي تماماً ما هي المشكلة ، لأنني أحياناً أعاني منها من كثرة الملفات التي أقوم بتحميلها من المنتدى للأخوة السائلين .. على العموم ، الملف الذي أرفقته ليس بالضرورة أن يقوم بالتعديل على لغة الترميز ، وإنما هو يقوم بحذف جميع لوحات المفاتيح التي في الريجستري في المسار Computer\HKEY_CURRENT_USER\Keyboard Layout\Preload ويقوم بإضافة فقط لوحتي مفاتيح ( العربية = حسب البلد التي تم اختيارها ، والإفتراضية من الويندوز بالترميز 00000409 = اللغة الإنجليزية ) . على العموم ، تستطيع الدخول الى الريجستري بشكل يدوي الى المسار الذي ذكرته لك سابقاً ، وإبقاء فقط ما تريده . وعلى ما قمت بتنفيذه في الأداة فإن ترميز لوحة المفاتيح العربية ( مصر ) = 00000C01 انظر الصورة للوحتي المفاتيح التي لدي ( العربية الأردن ، والإنجليزية ) والأداة السابقة لن تقوم بأي تعديل على أي تنسيقات خاصة بك سابقاً سوى لوحة المفاتيح ولغة الترميز للتأكيد على الدولة واللغة . طبعاً السبب أن بعض ملفات قواعد البيانات التي نقوم بتحميلها تأتي مرفقة بإعدادات لغة أو تخطيط لوحة مفاتيح مخصصة حسب جهاز المصدر ، خاصة إذا تم إنشاؤها أو تعديلها على أنظمة تشغيل بلغات مختلفة . فعند تشغيل الملف ، قد يقوم النظام تلقائياً بإضافة تلك اللغات لتوافق التنسيق أو الترميز المستخدم . والأمر متروك لك في النهاية بالتجربة وإعلامنا بالنتيجة .

جهاز جديد تم تسجيله على السيرفر:- ينتهي بـ 75526 وجهاز آخر ينتهي بـ 72351 ولم يطلبا التفعيل

وعليكم السلام ورحمة الله وبركاته .. تفضل هذا الموضوع يحل لك مشكلتك ، فقط اختر الدولة ، وقم بتأشير كما في الصورة وسيتم إعادة تشغيل الويندوز وإزالة كافة لوحات المفاتيح باستثناء الخاصة بالدولة التي اخترتها + اللغة الإنجليزية الإفتراضية فقط رابط الموضوع والمشاركة :- :- لا يدعم إصدارات ويندوز 7 وما دون LanguageCheck V 2.5.accdb