Foksh

فعلاً ، ملاحظتك صحيحة ومهمة جداً ، وأنت محق في التنبيه عليها .. وعليه فإنه يمكن تعديل الدالة الأصلية لتصبح :- 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

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

وعليكم السلام ورحمة الله وبركاته ، كمشاركة مع أفكاركم النيرة ، عدلت على فكرتي في إزالة التكرارات بهذه الأداة Smart Fillter.zip

طبعاً وللتوضيح ، حتى لا يكون هناك أي لبس في وجود 14 يوم بين التفعيلات الغير كاملة ( كما في حالة التجربة للأستاذ @محمد احمد لطفى مشكوراً ) ، يتم إضافة مدة التفعيل - للتفعيلات المحدودة ( الغير مفتوحة ) - إلى أيام النسخة التجريبية ، فهي من حق المستخدم أولاً وآخراً .. يعني 13-09-2025 + 14 يوم = 27-09-2025 التفعيل سنة كاملة = 27-09-2026

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

السلام عليكم أخي @saffar .. هذه فكرتي البسيطة التي خطرت ببالي ، جربتها وقد تقوم بإجراء إضافة سجلات وتعديلات حسب رغبتك Timetable25.zip

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

تمااام .. بأقرب فرصة إن شاء الله

جهاز جديد تم تسجيله على السيرفر ينتهي بـ :- 30582 ولم يطلب التفعيل 😅

يعني افهم من كلامك انك ملتزم بالتصميم اللي ارفقته للجدول ؟؟؟؟ هل الصورة صحيحة كما تريد ؟؟

تم اكتشاف جهازين تم تسجيلهم على السيرفر . الأول ينتهي بالرقم 45426 والثاني ينتهي بالرقم 55558 لكنهما لم يطالبا بالتفعيل

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