Foksh

تمام اخي الكريم .. بداية وحتى تتوضح فكرتي بالتنفيذ ، سنعتمد على حدث عند النقر لمربع النص NASSbox . بحيث نتعرف على موقع المؤشر من خلال ما يلي :- في مديول ، نقوم بحجز المتغير في بداية المديول مع الدالة الرئيسية :- Public cursorPosition As Long Public Sub InsertAtRememberedCursor(ByVal i As String) Dim ctl As Control Set ctl = Forms!Assaker!NASSbox ctl.SetFocus Dim currentText As String currentText = ctl.Text Dim beforeText As String Dim afterText As String Dim insertText As String insertText = vbCrLf & i & "= " beforeText = Left(currentText, cursorPosition) afterText = Mid(currentText, cursorPosition + 1) ctl.Text = beforeText & insertText & afterText ctl.selStart = cursorPosition + Len(insertText) ctl.SelLength = 0 End Sub الآن في النموذج وفي حدث عند النقر على مربع النص المستهدف :- Private Sub NASSbox_Click() DoEvents cursorPosition = Me.NASSbox.selStart End Sub ثم في حدث عند النقر للأزرار ، كل زر ليقوم بإضافته الخاصة به داخل النص ، من خلال الإستدعاء التالي لها :- Private Sub insert1_Click() Call InsertAtRememberedCursor("1") End Sub Private Sub insert2_Click() Call InsertAtRememberedCursor("2") End Sub Private Sub insert3_Click() Call InsertAtRememberedCursor("3") End Sub وبالتالي ، تكون النهاية كما رأيت في الصورة السابقة . المرفق :- Assaker.zip

من باب التوضيح إن كنت قد فهمت المطلوب بشكل صحيح .. هل الصورة أدناه تطبق للمطلوب ؟؟؟

💣 تحميل اللعبة للنواتين :- Minesweeper v 4.0 - 64.accde.zip Minesweeper v 4.0 - 32.zip

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

اذا كانت قاعدة البيانات على سطح المكتب ( على سبيل المثال ) مع مجلد الصور فأنه سيختلف المسار المخزن في الجدول للمرفقات باختلاف اسم المستخدم للويندوز .. فمثلاً في جهازي :- C:\Users\Foksh\Desktop\Project وقد يكون في جهازك ( على سبيل المثال أيضاً ) :- C:\Users\Belal\Desktop\Project رغم ان كلاهما باعتقادك على سطح المكتب . ولذا اعتقد انه يمكن حل المشكلة دون أكواد بحيث يتم وضع مجلد الصور عند الأساس في القرص D مثلاً أو أي قرص آخر قد يكون موجوداً في أي جهاز من تلك التي تستخدمها . أو اتجاهك لدالة تقوم بتحديث مسار الصور عند فتح القاعدة أو هناك سلوكات أخرى متعددة قد تساعدك كجدول الإعدادات بحيث يكون مسار المجلد محدداً في جدول الإعدادات اذا كان مشروعك كبيراً ولديك القدرة على التحكم وضبط هذه المسألة .

عند تجربة الملف على نسخة 32 من إصدار أوفيس 2010 ، فعلاً تظهر هذه الرسالة :- ويليها هذه الرسالة :- ثم يتم اغلاق الأداة .

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

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

تم إضافة النسخة 32 الى المشاركة الأولى 👍

وعليكم السلام ورحمة الله وبركاته .. ملاحظتك قوية ، ولا اعلم عنها لأني لم الحظها في الأسام القليلة الماضية . لكن هل تقصد كحد اقصى من تجربتك 200 رسالة بشكل عام لجهات اتصال متنوعة ، ام ضمن نفس المحادثة لشخص واحد !!!

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

انقر على الملف الذي قمت بتحميله زر يمين من الماوس واختر ( خصائص - Properties ) ، وقم بالتعليم كما في الصورة التوضيحية ثم افتح الملف مرة أخرى .

🤷‍♂️

من خلال ملفك المرفق ، لم اجد مشكلة . لذا اعطنا مثال على قيم وسجلات متنوعة لرؤية النتيجة.

مبارك علينا وعليكم الترقية الجديدة وانضمامكم إلى أسرة خبراء القسم أستاذ @محب العقيدة . إلى الأمام دائماً ، ومن نجاح إلى أعلى

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

أخي طاهر ، هل هذا ما تريده ؟؟ إذا كان هو فعلاً ، فانظر ماذا سنفعل . أولاً انشاء مربع نص ولنفترض اسمه = txtRowNumber ، وسنجعل قيمته أو مصدر بياناته = "=1" ليقوم بعد السجلات الحالية في التقرير . ( الإضافات حتى لا نقوم بتعديل أي تركيبة في تقريرك وللتوضيح طبعاً ) ثانياً إنشاء مربع نص أيضاً للتاريخ ولنفترض اسمه = txtAutoDateDisplay . وسنجعل له قيمة مصدر بيانات بناءً على الاستعلام مصدر التقرير = =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[Auto_Date],"") حيث الهدف من فكرتي هو عدّ السجلات بناءً على مربع النص txtRowNumber وقسمتها على 2 للتوسيط وبالتقريب طبعاً حتى لة كان عدد السجلات 10 مثلاً فسيكون العرض في السجل 6 مثلاً . ثالثاً إنشاء مربع نص أيضاً للرقم وسأفترض اسمه = txtEmployeeIDDisplay . وسيكون له قيمة مصدر بيانات = =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[EmployeeID],"") وطبعاً قمت بإخفاء الحقول الأصلية . ولكن عليك تجربة الفكرة على سجلات كثيرة للتأكد من الفكرة . المرفق لتجربته :- Z1.zip

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

وعليكم السلام ورحمة الله وبركاته .. الق نظرة على هذا الفيديو أولاً :- وهذا الرابط هنا الذي يوضح طريقة تسجيل المكتبة من خلال موجه الأوامر ..

وعليكم السلام ورحمة الله تعالى وبركاته.. الملف بصيغة Accde ولا يمكن تعديله وحفظه لما طلبت.

تم التعامل مع المشكلة بتغيير اسلوب التنفيذ في المشاركة الرئيسية .

وعليكم السلام ورحمة الله وبركاته .. مشاركة مع أخي @moho58 . أخي الكريم .. الواجب والأصل أن تحدد الشرط الثاني ما إذا كان رقمي أم نصي أم تاريخ . لأن لكل حالة تحتلف صيغة الكود . فعلى سبيل المثال :- اذا كان الحقل نصي :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]='" & Me.RAIANESAMI & "'" End Sub اذا كان الحقل رقمي :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=" & Me.RAIANESAMI End Sub أما اذا كان الحقل تاريخ على سبيل المثال :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=#" & Format(Me.RAIANESAMI, "dd/mm/yyyy") & "#" End Sub لاحظ أنني استخدمت اسمك بدلاً من اسم الحقل والمطابق لشرطه ( مربع النص ) = RAIANESAMI

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