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

لم يفلح هذا معى اخى لم يفلح للاسف قوائم.xlsm

استاذى ومعلمى الاستاذ محمد صالح جزيت خيرا من عند الله وادامك الله عونا لمن يحتاجك

انا اللي فاهم على صاحب الموضوع هو يريد تنفيذ (تشغيل) كود مكتوب في الجدول لهذا وجهته ان هذه الطريقة ستسبب له لاحقا مشاكل برمجية .. وايضا فيها محاذير أمنية . على كل حال انت صاحب الشان جرب هذا Dim x As String x = DLookup("cal", "test_tbl") Me.C = Round(Eval(x), 3) Cal error2.rar

السلام عليكم ورحمة الله وبركاته.. كنت اعمل على مشروع للقرآن الكريم، يكون ضمن تطبيق قوت القلوب، صورته في التوقيع 🥰 البرنامج من تصميمي وبرمجتي 100% فاحتجت للقرآن الكريم مرتل ومقسم لايات قمت بالعثور على ختمات كاملة وللعديد من القرآء في موقع Archive.org فقمت بتحويل الروابط الى قاعدة بيانات SQLite تتضمن ترتيل القرآن الكريم على شكل ايات كل آية على حدا وبرابط مباشر، أي ستقوم بتشغيل الصوت من الرابط مباشرة بدون تنزيلة طبعا يمكنكم تشغيل الصوت مباشرة من الويب باستخدام الكثير من المكتبات المجانية مثل NAudio.dll وغيرها... قبل كل شيء، هذا الكود لإنشاء الجدول sounds الذي ستكون فيه روابط الصوت لايات القرآن الكريم في قاعدة البيانات.. 1. تسلسل السورة 2. رقم الآية 3. رابط الملف الصوتي للآية 4. معرف القارئ CREATE TABLE "sounds" ( "surah_number" INTEGER, "ayah_number" INTEGER, "audio_url" TEXT, "reader_id" INTEGER ); 0. احمد نعينع 1. الطبلاوي 2. عبد الباسط 3. المنشاوي 4. الحصري السورس كود للفائدة، الذي يقوم بتوليد الايات حسب السور بلغة NET. Sub GenerateQuranAudioLinks(ByVal baseUrl As String, ByVal reader_id As String) ' عدد الآيات لكل سورة من القرآن الكريم Dim surahAyatCounts As Integer() = { 7, 286, 200, 176, 120, 165, 206, 75, 129, 109, 123, 111, 43, 52, 99, 128, 111, 110, 98, 135, 112, 78, 118, 64, 77, 227, 93, 88, 69, 60, 34, 30, 73, 54, 45, 83, 182, 88, 75, 85, 54, 53, 89, 59, 37, 35, 38, 29, 18, 45, 60, 49, 62, 55, 78, 96, 29, 22, 24, 13, 14, 11, 11, 18, 12, 12, 30, 52, 52, 44, 28, 28, 20, 56, 40, 31, 50, 40, 46, 42, 29, 19, 36, 25, 22, 17, 19, 26, 30, 20, 15, 21, 11, 8, 8, 19, 5, 8, 8, 11, 11, 8, 3, 9, 5, 4, 7, 3, 6, 3, 5, 4, 5, 6 } ' حلقة لتوليد جمل SQL لكل سورة وآياتها For surah As Integer = 1 To 114 Dim surahNumber As String = surah.ToString("D3") ' تحويل رقم السورة إلى 3 أرقام Dim ayatCount As Integer = surahAyatCounts(surah - 1) ' توليد جمل SQL بناءً على عدد الآيات لكل سورة For ayah As Integer = 0 To ayatCount Dim ayahNumber As String = ayah.ToString("D3") ' تحويل رقم الآية إلى 3 أرقام Dim fileUrl As String = baseUrl & surahNumber & ".zip" & "/" & surahNumber & ayahNumber & ".mp3" Dim sqlInsert As String = "INSERT INTO sounds (surah_number, ayah_number, audio_url, reader_id) VALUES (" & surah & "," & ayah & "," & "'" & fileUrl & "'" & "," & reader_id & ");" My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\sql_" & reader_id & ".txt", sqlInsert & vbNewLine, True) Next Next '' تشغيل كل عملية في ثريد منفصل باستخدام Task 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/128kb---a7mad--n3ena3---morattal------quran----6236---ayaat-----__verse--by---_189/", "1")) 'احمد نعينع 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/64kb__---mp3------------quran----6236---ayaat-----__verse--by---verse----_-by-/", "2")) 'الطبلاوي 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/192kb----morattal----quran----6236---ayaat-----__verse--by---verse----_-by--ab_525/", "3")) 'عبد الباسط 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/128kb____--mp3-------full-----quran----6236---ayaat-----__verse--by---verse---/", "4")) 'المنشاوي 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/64kb___--mp3-----quran----6236---ayaat-----__verse--by---verse----_-by---alhos/", "5")) 'الحصري End Sub ارفقت لكم البيانات على شكل ملفات TXT لكي تعدلو عليها كيفما شئتم. لا تنسوني ووالدي من صالح دعائكم SQLite.zip

فى الواقع يا استاذى الجليل و معلمى القدير و والدى الحبيب استاذ @jjafferr الخسارة الفعلية والحقيقية لنا نحن طلاب العلم من غياب اساتذتنا العظماء اركان هذا الصرح الشامخ والفضل كل الفضل لكم من بعد رب العزة سبحانه وتعالى شكر الله لكم حسن حلمكم وكرم اخلاقكم فى نقل خبراتكم وتعليمكم روعايتكم لنا ... جزاكم الله تعالى عنى وعن كل طلاب العلم كل الخير ويعلم الله انه منذ وقت انضمامى الى هذا الصرح الشامخ اول ما ابحث عنه عندما ادخل المنتدى ردود ومشاركات حضرتك واستاذى الجليل و ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل والاستاذ @أبو إبراهيم الغامدي والاستاذ @رمهان و الاستاذ @أبا عمر والاستاذ @SEMO.Pa3x و الاستاذ @أبو آدم وغيرهم الكثير الذين تعلمت انا شخصيا ولازلت حتى الان اتعلم من مشاركتهم حتى ولو كانت قديمه منهم من طال غيابه ومنهم من يدخل حسبما يسمح وقته اسأل الله تعالى لكل اساتذتى العظماء الذين ذكرتهم والذين لم اذكرهم ولكل من تعلمنا منهم وعلى ايديهم بكل حرف حسنه وان يضاعف لهم من فضله الكريم اضعافا مضاعفة واسأله ان يُكتب لهم فى موزاين اعمالهم علم ينتفع به وصدقة جارية الى يوم الدين ان شاء الله ... اللهم امين امين امين احبكم فى الله

عشان تقدر تطبق المطلوب كان لابد من عمد كود برمجة فيه داله اسمها MaxNumber تعمل المطلوب وبشكل مختصر هذا كود البرمجة: Function MaxNumber(rng As Range) As Double Dim cell As Range Dim matches As Object Dim largest As Double Dim regex As Object Set regex = CreateObject("VBScript.RegExp") regex.Global = True regex.IgnoreCase = True regex.Pattern = "\d+(\.\d+)?" largest = -1 For Each cell In rng If Not IsEmpty(cell.Value) Then Set matches = regex.Execute(cell.Value) If matches.Count > 0 Then Dim match As Variant For Each match In matches If CDbl(match.Value) > largest Then largest = CDbl(match.Value) End If Next match End If End If Next cell MaxNumber = largest End Function بعد كده اختار أي عمود تحتاجه عادي جدا زي ما بتعمل أي معادلة وهذه المعادلة كده بتكون : =MaxNumber(A1:A100) تحياتي 🙂 اكبر قيمه.xlsm

ابشر .. سوف اراجع ملاحظاتك .. وأصلحها احتاج الى الوقت المتاح ..

رائع

وعليكم السلام ورحمة الله وبركاته نعم، يمكنك ربط ملف Excel بملف Access عند عمل تحديث بيانات أو اضافة في ملف اكسل تنتقل هذه االتحديثات أو الاضافات أو التغييرات الى ملف اكسس اتبع الخطوات في الصور قاعدة بيانات.zip اكسل.xlsm

السلام عليكم الأخ حجازي حفظه الله الأخ عبدالله خفظه الله الف شكر لكما و جارى تجربة الأكواد تقبلا التحيات من القلب جعل الله اعمالكم فى موازين حسناتكم دمتما فى رعاية الله

مشاركة مع اخي موسى ما دام السجل يأخذ ترقيما فريدا الى يصلح معيارا بدلا من التاريخ مثل : =DSum("Price";"Q";"ID_Zabon = " & [ID_Zabon] & " and ID_NoF_OUT <>" & [ID_NoF_OUT])

تفضل لمسات لزيادة التحكم والضبط جرب البرنامج .. ووافني بملاحظاتك stock13 .rar

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

جزاك الله خيرا ونحن نؤمن على دعائك ونسأل الله القبول

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

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

اسعدنى ما قلت , بالتوفيق

السلام عليكم ورحمة الله وبركاته. هذا الموقع يمكنك النسخ و اللصق لجميع المصحف بجميع الروايات مع الرسم العثماني. لا تنس فقط تثبيت الخطط الموجود في الموقع . https://surahquran.com/warsh/2.html و هناك أياض مصحف المدينة النبوية للنشر المكتبي تجدà على الرابطط التالي : https://nashrmaktabi.qurancomplex.gov.sa/ بالتوفيق.

احبابى جميع اعضاء المنتدى الكريم سواء اصحاب الشركات التجارية الصغيرة او محبى العلم و محبى البرمجة بلغة الاكسس السلام عليكم و رحمة الله و بركاته يسعدنى ان اقدم لكم الاصدار الخامس من برنامج المحاسب المسلم لادارة المنشأت التجارية و الذى يؤدى جميع خدمات و مهام المحاسب الممتاز الامين مميزات البرنامج 1- سهولة ادخال فواتير مخزون اول المدة - مشتريات - مبيعات مردودات مشتريات - مردودات مبيعات - فواتير عينات و هدايا و تالف عروض الاسعار و المناقصات 2- امكانية تحديد الربح الخاص لكل فاتورة على حده مما يسهل عملية اجراء الخصم 3- الترحيل الفورى لهذه الفواتير لجميع الحسابات و المخزن و اعداد القيد المحاسبى 4- اعداد مجموعة متميزه من شاشات العرض و التقارير التى تعرض جميع بنود الفواتير و تقارير المخازن المتنوعة و ارباح الاصناف و ارصدة العملاء و الموردين و اعمار الديون 5- سهولة ادخال جميع سندات القبض و الصرف للعملاء و الموردين 6- سهولة ادخال جميع سندات الصرف و القبض الخاصة بمصروفات الشركة و ايراداتها الاخرى 7- سهولة استخراج نتيجة العمليات و الارباح و الخسائر 8- مجموعة متميزة من الرسوم البيانية التى تعرض بشكل بيانى جميع التقارير المكتوبة 9- صيانة داخلية للبرنامج 10 عمل نسخة احتياطية من البرنامج 11- و العديد من المزايا الاخرى و التى يمكن رؤيتها داخل البرنامج البرنامج مفتوح الى يوم القيامة للمساهمة فى نهضة المسلمين و اعمال الخير و يسعدنى ان اقدم لمحبى العلم و الاكسس برنامج المحاسب المسلم الاصدار اول بالسورس كود ليكون انطلاقة قوية لمن يريد احتراف البرمجة للوصول لمستوى الاصدار الخامس من البرنامج البرنامج مكون من 7 اجزاء قم بتحميلها جميعا فى فولدر واحد ثم قم بفك الجزء الاول منها فقط ليتكون لك فولدر جديد به البرنامج و ملحقاته و دليل التعليمات ضعه فى اى مكان مع خالص دعائى لك بموفور البركه و الرزق الحلال و انا حاضر دائما لاى استفسار البرنامج موضوع على الرابط التالى http://www.arabmoheet.net/forum/default.as...;topic_no=17992 و سوف اقوم بتحميل البرنامج على هذا المنتدى الكريم الان ان شاء الله الجزء الاول من البرنامج اخوكم م/ علاء الدين محمد النكلاوى اخصائى تخطيط و تصميم برامج بشركة مياه البحيرة - مصر تليفون : 3803009/045 موبايل : 0108455973 accounting.part01.rar

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Sub Copysh() Dim SourceSht As Worksheet Set SourceSht = Sheets("sheet1") Application.ScreenUpdating = False Set Closesh = Workbooks.Open(ThisWorkbook.Path & "\تسويات العهد.xlsm", Password:="123") SourceSht.Copy After:=Closesh.Sheets(Closesh.Sheets.Count) 'حدف الاشكال ActiveSheet.Shapes("copy").Delete ActiveSheet.Shapes("Rounded Rectangle 5").Delete ActiveSheet.Shapes("شكل بيضاوي 1").Delete ActiveSheet.Shapes("صورة 5").Delete Closesh.Close SaveChanges:=True Application.ScreenUpdating = True End Sub بنامج تسوية العهدة.xlsm تسويات العهد.xlsm

السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. إيميلات الطلبه.xlsx

بسم الله الرحمن الرحيم اقدم لكم اليوم هديه برنامج صلاحيات المستخدمين ويمتاز هذا البرنامج بالتالى : ولكن قبل ان نبين مميزات البرنامج لابد من حفظ الحقوق فلقد بداء هذا البرنامج الاستاذ الفاضل / عبد الله المجرب واتم العمل من استكمال للاكواد وعمل التعديلات المطلوبه وتامينه فهو الاستاذ / عباد ابو نصار وتم الاستعانه بكود من مشاركات الاستاذ / عبد الله باقشير فى التنقل لاى صفحه فى المستند والان وقد اكتمل العمل ولكنه قابل للتطوير من الاستاذة الافاضل طبعا وهذا ما نطمح اليه مميزات البرنامج 1- انه سهل الاستخدام فانه يعمل بمجرد ان ترفق له اى عدد من الصفحات تصل الى 254 صفحه وقابله للزيادة عند تعديل جزء صغير فى الكود 2- اعطاء الصلاحيات عن طريق نموذج سهل الاستخدام وبيسر فهو يعطى ثلاث انواع من الصلاحيات (مشاهدة وتعديل اى صلاحيات كامله - مشاهدة فقط - اى للاطلاع - مخفى اى اخفاء هذة الصفحه عن المستخدم 3- يتم تسجيل اسم المستخدم والتاريخ والوقت لكل حركه دخول 4- صفحه mydate هى الصفحه الهامه فى الملف ففيها يتم تسجيل كل الصلاحيات واسماء المستخدمين وكلمات السر الخاصه بهم 5- مرونه عاليه فى الغاء واضافه الصفحات وتغير اسماءها دون التاثير على البرنامج فمبجرد اغلاق البرنامج والدخول عليه يتم تحديث بياناته تلقائيا 6- غير قابل الاختراق عن طريق رفع الامان فى الماكرو 7- الصفحات الرئيسيه فيه هى صفحه mydate وورقه رقم 1 وما دون ذلك قابل للحذف او التغيير المسمى او الاضافه ويتعامل كما ذكرت سابقا حتى 254 صفحه بعد اذن الاستاذة الافاضل / مصممي البرنامج قمت بوضعه فى هذة المشاركه بهدف ان تعم الفائدة من علمكم الغزير وكذلك اعتبارة برنامج قابل للتطوير وذلك لسهوله فكرته ومرونته فى التغيير حسب متطلبات كل شخص لان المشكله التى كانت تواجه اى مستخدم عادى عندما يجد ملف عن نفس هذا الموضوع هو كيفيه تطويعه الى الطريقه التى يعمل بها اما فى هذا الملف فما عليه سوى نقل الصفحات التى يرغبها من ملفاته وسوف يعمل عليها البرنامج بشكل تلقائى وسهل للدخول على البرنامج بصلاحيات كامله : اسم المستخدم : الدعم الفنى كلمه السر 111 ومن داخل صفحه mydate ستجد باقى الاسماء ومعها كلمات السر الخاصه بها عندما تكتب كلمه السر الخاصه بالدعم الفنى ستجد ازار الصلاحيات وكلمه السر تم تفعيلها ومن ثم تسطيع التجول فى البرنامج ومن داخله ايضا تستطيع تغيير كلمه السر صلاحيات المستخدم_.rar

استاذي الفاضل / عباد المحترم السلام عليكم ورحمه الله وبركاته اسعدني مرورك واتمنى المتابعه معنا هنا فلا تحرمنا تواجدك معنا والاستفادة من علمكم الوفير وهذة نسخ من البرنامج باصدارات 2003 و 2007 صلاحيات المستخدم 2003-_.rar صلاحيات المستخدم_- 2007.rar

السلام عليكم لدي قاعدة بيانات مقسمة هذا جزء منها في الجدول tbmr احتاج عند اضافة اي بيانات من مصدر خارجي تظهر رسالة تنبية mr.accdb

يظهر نتيجه المعادله