نجوم المشاركات

:: بسم الله الرحمن الرحيم :: ** السلام عليكم ورحمة الله وبركاته ** .. أما قبل .. فالصورة التالية تحكي لكم الفكرة باختصار : .. أما بعد : .. فإليكم الطريقة كما هداني إليها رب العالمين 🙂 : أولا :: تقوم بتصميم جدولك وإضافة حقول نعم/لا بالطريقة العادية ثانيا :: تصمم استعلام يكون مصدره جميع حقول جدولنا الجميل 🙂 ثالثا :: تضيف حقول جديدة في الاستعلام ( حقل مقابل كل حقل من نوع (نعم/لا) في الجدول ) نسميه بنفس اسم العقل مع إضافة رقم2 لتفنيده عن الحقل الأصلي وتضيف له هذه الدالة : .. NewFeildName: IIf([TrueOrFalseFeild]=-1;ChrW(10004);ChrW(10008)) وتقوم بتغيير اسم الحقل لكل واحد من حقول الجدول ملاحظة : ChrW(10004) تعطيك الرمز ✔ و ChrW(10008) تعطيك الرمز ✘ لتكون التيجة النهائية هكذا : وعند حفظ الاستعلام وعرضه يظهر لنا هكذا : رابعا :: تقوم بإنشاء نموذج جديد مبني على الاستعلام الظريف وتنسقه بالطريقة التي تحبها .. وتنتبه أنك ستدرج الحقول الجديدة التي أنشأناها في الاستعلام بدلا عن الحقول الأصلية .. ستكون الحقول البديلة عبارة عن حقول نصية عادية غير قابلة للتعديل ( لأنها حقول محسوبة ) .. لذلك سيسهل عليك تنسيقها باللون والشكل الذي تحبه تماما كما تنسق أي حقل نصي آخر 🙂 خامسا :: فقط بقي علينا أن نظيف أمر تغيير قيمة حقول (نعم/لا) الأصلية عند النقر على الحقول البديلة .. ولعمل ذلك نضع الأمر (الكود) البسيط التالي في حدث عند النقر على لكل خانة ( IsActive كمثال ) : Private Sub IsActive2_Click() IsActive = Not IsActive x.SetFocus End Sub وتكرر نفس العملية لكل واحد مع تغيير أسماء الحقول .. لاحظ أنني أضفت هذي للكود ( x.SetFocus ) في النهاية ، وهي باختصار حركة تجميلية .. حيث قمت بإضافة مربع نص (غير منظم) للنموذج وسميته x وجعلت لونه ولون حدوده نفس لون خلفية النموذج ، وجعلت حجمه صغيييييييييييييييير جدا 🙂 يعني الطول x العرض بمقدار = 0.01 تقريبا ..( الهدف أنه ما يظهر للمستخدم) وبعدها خليت الأمر ينقل التركيز لهذا المربع الصغير .. فكانت النتيجة كما شاهدتم سيداتي وسادتي 😊 ونكون بذلك قد انتهينا من عمل مربعات صح أو خطأ كبيرة وجميلة وتنفتح لها النفس 😉👌 وبعدها ينفتح لكم باب الخيال الواسع للإبداع والزيادة كما تشتهي أنفسكم وتلذ أعينكم 😊 ولا تنسونا من صالح دعواتكم وزكواتكم وهداياكم 😅 :: وختامها رابط المثال للتحميل (مجاناً) 😁 :: صح أو خطأ.accdb

وعليكم السلام فعلا طريفة مميزة ولكن ليست جديدة

انت تأمر يا دكتور إتفضل شوف فى المرفق النموذج اللى باسم frmOptionGroup ( √ ) أو ( x ) - الفرز -علامة.mdb

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

اولا ضع الكود الاتى فى وحدة نمطية Public Function ChnageDateFormat(Optional dtDateFormat As String = "dd/MM/yyyy") Shell "cmd.exe /c REG ADD ""HKEY_CURRENT_USER\Control Panel\International"" /v sShortDate /d """ & dtDateFormat & """ /F", vbHide End Function ثانيا طبق الكود الاتى بعد اسنخدام الاداة فى قاعدتك التى اشرت اليها بذلك تتخطى عقبة تنسيق التاريخ ChnageDateFormat() --------------------------------- فى حالة اردتم تغيير التنسيق الى تنسيق أخر مثلا yyyy/MM/dd ChnageDateFormat("yyyy/MM/dd") ملاحظة الحرف M الدال على تسيق الشهر لابد ان يكون Capital Letter اى يكتب كبير M وليس صغير مثل m

جميل جدا جدا ورائع من استاذ عبقرى ولكن ماذا لو اختارنا خانه الاختيار من مجموعة الاحتيارات (option group) جزاك الله كل خير

السلام عليكم .. طريقة مميزة اخى موسى وجديدة بارك الله فيك .

جرب الكود التالي ...... اللجان والتصحيح7.4.accdb

وحتى لا اكون ممن كتم علما وننول دعوه صالحه تنفعنا انا واخوتى واساتذتى يوم لا ينفع مال ولا بنون طيب على ما اعتقد اللى بيحصل معاك فالوقت الحالى ان الماكرو غير مفعل ولذلك لم ترى اى استجابه عند فتح قاعده البيانات اغلق النموذج الذى امامك هل تجد شريط اصفر بالاعلى مكتوب تحذير ويوجد به زر تمكين المحتوى اذا كان فاضغط عليه لتمكين الماكرو وان لم يكن ولديك اوفيس 2003 فادخل على اعدادات الماكرو وخفض الماكرو وشغل النموذج هيشتغل معاك باذن الله تعالى بالتوفيق

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا وردا على الاخ @2000ابوعبدالله هذه الفكره خاطئه لان الاكسيس بيقوم بعمل حفظ تلقائى فيجب ان يظهر معك فى هذه الحاله عالعموم قمت باضافه الحفظ لزر فتح البحث وقمت باضافه المرجع الناقص للقاعده لمن اراد بالتوفيق Desktop.rar

أحلى شي فيها أنها جابتك لينا .. ورجعتك بالسلامة 😂

ههههههه مجانا لا ........... كده احمل بدون تقكير

تفضل أخي الكريم عسى ولعل الموقع (2).xlsm

تعديل على كود أستاذنا @مبرمج سابق ليوافق سؤالك 🙂 : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rs As Recordset Set rs = Me.RecordsetClone rs.FindFirst "[LockupFeildInTheTable] = " & Me.FeildInTheFormTxt If Not rs.NoMatch Then If MsgBox("هذه القيمة مكرره هل توافق على التكرار.", vbYesNo, "تنبيه") = vbNo Then Cancel = True End If Else End If rs.Close Set rs = Nothing End Sub

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

والاداة دى كانت بتشتغل من غير صلاحيات الادمن ازاى ؟ اظن انها كانت بالفعل محددة انها دايما تشتغل كمسئول بدون تدخل منك , ممكن اذا تيسر لى الوقت ان شاء الله احاول اعملك اداة شبيهة بدون مشكلة تبديل الشهر مكان اليوم .. فى اقرب وقت بإذن الله خلال الايام القادمة اذا لم يفيدك احد الاساتذة

لقد قلت لحضرتك يمكنك توظيفه وليس مجرد وضعه في اكوادك والتوظيف هو أن تخزن هذا المسار في متغير وتستعمل هذا المتغير في مسار حفظ ملفات ال PDF أكوادك غير واضحة لي وإلا كنت من البداية وظفته لك بالتوفيق

إذا كان المقصود مقارنة خلايا العمود D مع الرقم الموجود في نهاية اسم الباكدج فيمكن استعمال التنسيق الشرطي بمعادلة =D2>VALUE(RIGHT(A2,3)) كما في المرفق التالي مع ضرورة تحويل تنسيق الأرقام في الخلايا إلى رقم لأن تنسيقها نص وذلك بتحديدها ثم الضغط على المثلث الأصفر ثم اختيار convert to number بالتوفيق Mobil.xlsx

وبما انك لم تقم برفع الملف فسيتم الرد عليك أيضاً بدون ملف ... يمكنك مشاهدة هذا الفيديو وهذا فيديو أخر How to Create Barcodes in Excel - الطريقة الأسهل على الإطلاق لإنشاء الباركود في الإكسل

يمكنك ذلك من خلال هذه المعادلة -وهذه معادلة مصفوفة (Ctrl+Shift+Enter) ويمكنك استخدامها مرة بالدولار ومرة أخرى بالريال .. وتم وضع المعادلة بالخلية D2 =SUMPRODUCT((الجدول1[عملة العرض]=$E$1)*(SUBTOTAL(109,OFFSET(I3,ROW(الجدول1[[المبلغ ]])-ROW(I3),0)))) معادلة Subtotal للخلايا المرئية فقط وبشرط.xlsx

هذا ماكرو لمن يحتاج استبدال مجموعة كلمات متباعدة في الورد، لأن هذه الخاصية يحتاجها الإخوة المصححون، وهي غير موجودة ضمن طرق البحث في الورد. وقد وقفت على هذا الماكرو في أحد المواقع الأجنبية، وأضفت عليه بعض اللمسات البسيطة ليسهل استعماله مع لغتنا العربية. والطريقة: 1- بعد تشغيل الماكرو سيظهر لك حقل، تكتب فيه الكلمات التي تريدد استبدالها في الملف، وهي متباعدة، ولا بد أن يكون بعد كل كلمة فاصلة (،)، وإذا اخترت استبدال كلمتين تجعل الفاصلة بعد الكلمتين. 2- تضغط (ok). 3- ستظهر لك شاشة ثانية: تكتب فيها الكلمات السابقة مطابقة تماما، ثم تضبطها بالضبط الكامل، أو تضبط ما يحتاج ضبطا منها. (ولا تنس الفاصلة بين الكلمات) 4- تضغط (ok)، ليقوم الماكرو باستبدال الكلمات غير المشكولة ليضع مكانها الكلمات المشكولة. * ملحوظة: يمكن أن تجمع مئات الكلمات في ملف (txt) مرة غير مشكولة، وأخرى مشكولة، فتنسخ غير المشكول، فتضعه في الحقل الأول، وتنسخ المشكولة في الحقل الثاني، ثم تنفذ الأمر. * ملحوظة أخرى: يجب أن يكون عدد الكلمات متساويا في الحقلين، يعني إذا وضعت في الحقل الأول (3) كلمات، فيجب أن يكون الثاني (3) كلمات، وإذا اختلف العدد، فستخرج رسالة، تبين لك ذلك. مع خالص تقديري للإخوة المشرفين والأعضاء جميعا، وتقبلوا تحياتي. وهذا هو الماكرو: Sub استبدالمتعدد() ' ' استبدالمتعدد Macro 'ماكرو لاستبدال كلمات متعددة متباعدة ' Dim xFind As String Dim xReplace As String Dim xFindArr, xReplaceArr Dim I As Long Application.ScreenUpdating = False xFind = InputBox("أدخل هنا مجموعةالكلمات التي تريد استبدالها، مفصولة بفاصلة: ", "الكلمات المطلوب استبدالها") xReplace = InputBox("أدخل الكلمات التي تريد استبدالها مكان السابقة، مفصولة بفاصلة: ", "الكلمات الجديدة") xFindArr = Split(xFind, "،") xReplaceArr = Split(xReplace, "،") If UBound(xFindArr) <> UBound(xReplaceArr) Then MsgBox "يجب التطابق في عدد الكلمات المطلوب استبدالها", vbInformation, "صل على المبعوث رحمة للعالمين" Exit Sub End If For I = 0 To UBound(xFindArr) Selection.HomeKey Unit:=wdStory With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = xFindArr(I) .Replacement.Text = xReplaceArr(I) .Format = False .MatchWholeWord = False End With Selection.Find.Execute replace:=wdReplaceAll Next Application.ScreenUpdating = True Beep End Sub