Foksh

تم تسجيل جهاز جديد في الإنتظار ينتهي بالرقم :- 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

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

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

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

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

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

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

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

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

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