Foksh

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

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

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

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

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

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

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

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

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

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

وعليكم السلام ورحمة الله وبركاته ,, كجدول حصص ، هذا ما خرجت به كتجربة يمكنك تعديلها وإعادة تصميمها كما ترغب Timetable25.accdb

كلا الرقمين مختلفين أخي الكريم 😅 تحقق من الاتصال بالانترنت ، واجعل التطبيق يكمل تحميله

وعليكم السلام ورحمة الله وبركاته .. من الغريب جداً ظهور هذه المشكلة ، ولكنني أعلم بأنها بسبب اختلاف إصدار الأوفيس الذي تم إقفال الملف عليها وهو إصدار 2019 - 32 بت .. كما أرى أيضاً أنك تستعمل إصدار ويندوز 7 على ما أعتقد .. لذا سيتم تعديل النسخة 32 بقفلها على إصدار أوفيس 2010 - 32 بت - نسخة عربية في المشاركة نفسها .

أخواني وأساتذتي ومعلمينا ( دون استثناء ) أدعوكم لتجربة فكرة جديدة تم تنفيذها من خلال آكسيس ( هذا العملاق الصغير 😅 ) . بحيث أُجري تطويراً على فكرة تدعم المبرمجين والمطورين وتمكنهم من إنشاء نظام تفعيل عن بعد ( Online - سحابي ) ؛ بحيث لا يكون على المستخدم سوى إرسال رقم معرف جهازه فقط للمطور ، وما على المطور إلى تفعيل حسابه حسب المدة ( أنواع الإشتراكات ) التي يقدمها مطور البرنامج . وعليه فإنه في هذه المرحلة ، سأطلب ممن يرغب بالمشاركة ( فضلاً وكرماً منه لا أمراً ) أن يقوم بإرسال صورة لواجهة البرنامج الذي سأرفقه تالياً ، مع رقم معرف جهازه فقط . وسأقوم بدوري بتفعيل البرنامج المؤقت له بأشتراكات متنوعة لتجربة الفكرة . وكفكرة على المطلوب ، سأبدأ بنسخة من جهازي كتجربة لتتوضح لكم آلية المشاركة .. عند فتح القاعدة لأول مرة ، سيتم الإتصال بالسيرفر لتسجيل رقم جهازك ( أول مرة فقط ) . لذا شكراً لانتظارك وصبرك 😇 بعد الإتصال بالسيرفر ، سيتم اعتماد مدة تجريبية = 14 يوم وهذه الصورة المطلوبة منك عزيزي القارئ ثم من زر النسخ ، إنسخ رمز المعرف لجهازك ، وألصقه كاملاً كما في مثالي التالي 🤗 ID-0223222033111131825422051 تم إغلاق الموضوع وحذف الملفات Clear32.zip Clear64.zip

تم تعديل النسخة 32 بنجاح شكراً للإفادة ، وبانتظار التجربة ممن لديه نسخة 32

Converter 64.zip Converter 32.zip

فعلاً .. معظم المارين من هنا قد لا يكون لهم اهتمام بهذا الموضوع ومحتواه ، ولكن على الأقل ترك أثر طيب ولو بسيط ، قد يشجع على الإستمرار .. وللأسف ملاحظتي أن هذا ما يحدث فعلاً في بعض المواضيع 😯

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

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

بفضل الله ، وله الحمد

ولا يهمك ،، الأمر مختلف قليلاً فعلاً ، ولكن ليس بالتعقيد الذي تعتقده للإنتقال لأول قيمة في الليست بوكس :- If Me.Msaneed_List.ListCount > 0 Then Me.Msaneed_List.Value = Me.Msaneed_List.ItemData(0) End If وللإنتقال لآخر قيمة في الليست بوكس :- If Me.Msaneed_List.ListCount > 0 Then Me.Msaneed_List.Value = Me.Msaneed_List.ItemData(Me.Msaneed_List.ListCount - 1) End If

وعليكم السلام ورحمة الله وبركاته ،، ما شاء الله عليك ، أبدعت في تحوير الأفكار لما يتناسب مع مطلبك بما انك ستقوم بتضمين الرقم الفريد في الأكواد ، بدلاً من التسمية للزر . جرب هذا التعديل على المديول ليصبح أبسط قليلاً .. Public Sub SelectByMSNO(frm As Form, listName As String, msno As Long) Dim lb As ListBox Dim i As Long Set lb = frm.Controls(listName) If lb.ListCount = 0 Then MsgBox "القائمة فارغة", vbExclamation + vbMsgBoxRight, "" Exit Sub End If For i = 0 To lb.ListCount - 1 If Nz(lb.Column(0, i), 0) = msno Then lb.Value = lb.ItemData(i) Exit Sub End If Next i MsgBox msno & " :لم يتم العثور على السجل", vbInformation + vbMsgBoxRight, "" End Sub وبنفس الأسلوب ، سيتم الاستدعاء بتمرير النموذج الحالي ، واسم الليست بوكس ، والرقم الفريد فقط ( كما فعلت في فكرتك وتعديلك الجميل SelectByMSNO Me, "Msaneed_List", 786 وما شاء الله عليك ، لن تحتاج لملف مرفق

وعليكم السلام ورحمة الله وبركاته .. بداية لي عدة استفسارات مهمة :- هل يوجد في الليست بوكس قيم قد تتشابه ، يعني لنفترض جدلاً هل القيمة "ابن عباس" قد تتكرر بأكثر من تسميةمختلفة ؟؟؟ الزر مصدر تسميته هل هو متغير ؟ على العموم ، سأقدم لك فكرتين ,, الأولى بسيطة وتتعامل مع السجلات البسيطة إلى حد ما ( بطيئة مع السجلات الكثيرة جداً ) Private Sub Goms5_Click() Dim i As Long Dim searchText As String Dim colIndex As Integer searchText = Me.Goms5.Caption colIndex = 1 For i = 0 To Me.Msaneed_List.ListCount - 1 Me.Msaneed_List.Selected(i) = False Next i For i = 0 To Me.Msaneed_List.ListCount - 1 If InStr(1, Me.Msaneed_List.Column(colIndex, i), searchText, vbTextCompare) > 0 Then Me.Msaneed_List.Selected(i) = True Exit For End If Next i End Sub الثانية تعتمد على اسلوبين + لو كان هناك أكثر من قيمة مطابقة يتم التنقل بينها عند كل نقرة على الزر .. Private Sub Goms5_Click() Static lastIndex As Long Dim s As String, i As Long Dim matches As Collection Set matches = New Collection s = Trim(Nz(Me.Goms5.Caption, "")) If s = "" Then Exit Sub With Me.Msaneed_List For i = 0 To .ListCount - 1 If InStr(1, Nz(.Column(1, i), ""), s, vbTextCompare) > 0 Then matches.Add i End If Next i If matches.Count = 0 Then MsgBox " : لم يتم العثور على" & s, vbInformation + vbMsgBoxRight, "" Exit Sub End If Dim pos As Long pos = 1 If lastIndex > 0 Then For i = 1 To matches.Count If matches(i) = lastIndex Then pos = IIf(i = matches.Count, 1, i + 1) Exit For End If Next i End If .Value = .ItemData(matches(pos)) lastIndex = matches(pos) End With End Sub ويمكن الإستفادة من الفكرة في أكثر من نموذج أو أزرار ضمن نفس النموذج بجعلها دالة عامة يتم استدعائها من خلال تحديد اسم الزر واسم الليست بوكس . بحيث في مديول منفصل ، نستخدم الدالة التالية :- Option Compare Database Option Explicit Private dictLastIndex As Object Public Sub SelectNextMatch(frm As Form, listName As String, searchText As String) Dim lb As ListBox Dim i As Long Dim matches As Collection Dim key As String Dim pos As Long, lastIndex As Long Set lb = frm.Controls(listName) searchText = Trim(Nz(searchText, "")) If searchText = "" Then Exit Sub If dictLastIndex Is Nothing Then Set dictLastIndex = CreateObject("Scripting.Dictionary") End If key = frm.Name & "|" & listName & "|" & searchText Set matches = New Collection For i = 0 To lb.ListCount - 1 If InStr(1, Nz(lb.Column(1, i), ""), searchText, vbTextCompare) > 0 Then matches.Add i End If Next i If matches.Count = 0 Then MsgBox " : لم يتم العثور على" & searchText, vbInformation + vbMsgBoxRight, "" Exit Sub End If pos = 1 If dictLastIndex.Exists(key) Then lastIndex = dictLastIndex(key) For i = 1 To matches.Count If matches(i) = lastIndex Then pos = IIf(i = matches.Count, 1, i + 1) Exit For End If Next i End If ونستدعيها في الزرين على سبيل المثال ضمن نفس النموذج :- Private Sub Goms5_Click() SelectNextMatch Me, "Msaneed_List", Me.Goms5.Caption End Sub Private Sub Goms10_Click() SelectNextMatch Me, "Msaneed_List", Me.Goms10.Caption End Sub الملف يحتوي على الأفكار الثلاثة :- LIST.zip

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

بارك الله ، وجزاك الله كل الخير