Foksh

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

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

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

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

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

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

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

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

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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) أدعوكم لتجربة فكرة جديدة تم تنفيذها من خلال آكسيس ( هذا العملاق الصغير 😅 ) . بحيث أُجري تطويراً على فكرة تدعم المبرمجين والمطورين وتمكنهم من إنشاء نظام تفعيل عن بعد ( Online - سحابي ) ؛ بحيث لا يكون على المستخدم سوى إرسال رقم معرف جهازه فقط للمطور ، وما على المطور إلى تفعيل حسابه حسب المدة ( أنواع الإشتراكات ) التي يقدمها مطور البرنامج . وعليه فإنه في هذه المرحلة ، سأطلب ممن يرغب بالمشاركة ( فضلاً وكرماً منه لا أمراً ) أن يقوم بإرسال صورة لواجهة البرنامج الذي سأرفقه تالياً ، مع رقم معرف جهازه فقط . وسأقوم بدوري بتفعيل البرنامج المؤقت له بأشتراكات متنوعة لتجربة الفكرة . وكفكرة على المطلوب ، سأبدأ بنسخة من جهازي كتجربة لتتوضح لكم آلية المشاركة .. عند فتح القاعدة لأول مرة ، سيتم الإتصال بالسيرفر لتسجيل رقم جهازك ( أول مرة فقط ) . لذا شكراً لانتظارك وصبرك 😇 بعد الإتصال بالسيرفر ، سيتم اعتماد مدة تجريبية = 14 يوم وهذه الصورة المطلوبة منك عزيزي القارئ ثم من زر النسخ ، إنسخ رمز المعرف لجهازك ، وألصقه كاملاً كما في مثالي التالي 🤗 ID-0223222033111131825422051 التفعيل يعتمد على اتصال الجهاز بالإنترنت ، حالنا كحال الشركات التي تعتمد على سيرفر خاص بها بالتفعيل 😎 ، لذا لن تفيدك المحاولة بدون اتصال بالإنترنت . نسخة تعمل على النواة 64 :- Officena64.zip نسخة تعمل على النواة 32 :- Officena32.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

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

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

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

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

وعليكم السلام ورحمة الله وبركاته ,, أهلاً وسهلاً بك أخي الكريم وشكراً لك على هذه المشاركة الجميلة ,, علّ أحد الأخوة بأن يزودنا بتجربته ( ممن لديهم ماسح ضوئي )

وإياكم أخي @moho58 .. ولكم مثلما دعيتم بظهر الغيب وأكثر ..