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

زيادة في اثراء الموضوع و بعد اذن الاخ علي هذا الكود Option Explicit Sub get_value() Dim D As Worksheet, R As Worksheet Dim RgD As Range, RgR As Range Dim Dic As Object, x%, y%, m%, ky Set D = Sheets("Data"): Set R = Sheets("Repport") Set RgD = D.Range("A2", D.Range("A1").End(4)) Set RgR = R.Range("A2", R.Range("A1").End(4)) Set Dic = CreateObject("Scripting.Dictionary") If R.Range("E1").CurrentRegion.Rows.Count > 1 Then _ R.Range("E1").CurrentRegion.Offset(1).ClearContents m = 2 For x = 2 To RgR.Rows.Count + 1 For y = 2 To RgD.Rows.Count + 1 If D.Cells(y, 1) = R.Cells(x, 1) Then Dic(D.Cells(y, 1) & "*" & D.Cells(y, 3)) = _ Dic(D.Cells(y, 1) & "*" & D.Cells(y, 3)) + D.Cells(y, 2) End If Next For Each ky In Dic.keys R.Cells(m, "E") = Format(CDate(Split(ky, "*")(0)), "yyyy/mm/dd") R.Cells(m, "F") = Dic(ky) R.Cells(m, "G") = Split(ky, "*")(1) m = m + 1 Next ky Dic.RemoveAll Next End Sub الملف مرفق Mouwaredine.xlsm

وعليكم السلام-لك ما طلبت جمع يوم + مورد1.xlsx

كل عام وحضراتكم بخير ورمضان كريم اعاده الله عليكم وعلى الامة الاسلامية بالخير واليمن البركات البحث فى القرآن الكريم.xlsm

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل لاحظت الكثير من الاخطاء عند العمل على المصاحف الرقمية وبفضل من الله تحصلت على ملف ورد من مجمع الملك فهد لطباعة المصحف الشريف اريد كل ايه فى سجل هل يمكن عمل ذلك برمجيا المصحف الرقمى - مجمع الملك فهد.mdb UthmanicHafs1 Ver13.doc

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

وعليكم السلام عدد ايات القران الكريم بحدود 6236 اية بدون البسملة اقصى عدد لحقول الجدول الواحد 255 حقل عدد ايات بعض السور مثل سورة البقرة 268 ومعناها ان عدد اياتها اكبر من استيعاب جدول واحد ممكن يكون كل سورة في جدول ومعناها اننا نحتاج الى 114 جدول +1 جدول لبقية سورة البقرة اي 115 جدول ايضا توجد ايات عددها اكبر من استيعاب عدد حروف الحقل النصي 255 حرف مثل الاية الدين في سورة البقرة 551 حرف لست خبير في مواضيع الاستيراد ولكن اعتقد ان ذلك ممكن ولكن بجهد كبير

هلا عملت لك frmVaccine و frmVaccines Vaccines - 2.accdb

جرب المرفق Vaccines - Copy(1).accdb

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

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

الأخ اسلام سيد أنا أستخدم نسخة أوفيس 2019 64 بت على النسخة العربية ويعمل البرنامج بامتياز حاول تشوف اللغة عندك بالجهاز او نسخة الاوفيس تكون الاخيرة عربية شكرا مرة ثانية لصاحب البرنامج

ما شاء الله لا قوة الا الله جزاك الله خيرا استاذنا الفاضل وارجو من الله ان يحعله في ميزان حسناتك اخي الكريم تحياتي

azhr1979

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

موفق ابا جودي ان شاءلله في ميزان حسناتك 👈🌹

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

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

ما شاء الله عمل رائع جعله الله في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

بالتوفيق اخي ازهر والشكر لله سبحانه

أستاذي الفاضل أحمد الفلاحجي جزاك الله كلَّ خير وأسال الله العظيم أن يمنَّ عليك بالصحة والعافية وطول العمر في مرضاة الله تعالى فهذا هو الحل والئي به انقشعت غشاوة كبيرة، وأرحاني من كتابة بعض الأكواد المملة. فقط يحتاج إلى تعديل باعتبار النسبة غير ثابتة؛ لأن النسبة تخرج من مجموع الدرجات الكلي

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

طيب بفضل من الله توصلت الى نتيجة تقربنا جدا من المطلوب دمجت كل السجلات الى سجل واحد الان المطلوب فصل بيانات السجل الى عدة سجلات لتكون كل اية فى سجل خاص بها المصحف الرقمى - مجمع الملك فهد.zip

هلا اخي يمكنك من التحكم التام بالادخال عن طريق العمليات Transactions بحيث تتم العملية ككل CommitTrans او تفشل ككل Rollback عملت لك مثال مرفق بحيث اذا لم بدخل الاسم تلغى عملية الاضافة Private Sub btnSave_Click() Dim wrkCurrent As DAO.Workspace Dim rstStudent As DAO.Recordset On Error GoTo ErrorHandler Set wrkCurrent = DBEngine.Workspaces(0) Set rstStudent = CurrentDb.OpenRecordset("Student") wrkCurrent.BeginTrans rstStudent.AddNew rstStudent("Name") = Me.txtName.Value rstStudent("age") = Me.txtAge.Value rstStudent.Update If IsNull(Me.txtName) Or IsEmpty(Me.txtName) Then wrkCurrent.Rollback Else wrkCurrent.CommitTrans End If rstStudent.Close wrkCurrent.Close Set rstStudent = Nothing Set wrkCurrent = Nothing Exit Sub ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Sub Test.accdb

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

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

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

طيب انا عملت نصف المهمه والحمد لله انظر الى ترتيب ايات سورة الفاتحة tblAyaat Aya سُورَةُ الفَاتِحَةِ بِسۡمِ ٱللَّهِ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَٰلَمِينَ ۝ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ مَٰلِكِ يَوۡمِ ٱلدِّينِ ۝ إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ ۝ ٱهۡدِنَا ٱلصِّرَٰطَ ٱلۡمُسۡتَقِيمَ ۝ صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ وَلَا ٱلضَّآلِّينَ ۝ انظر الى باقى الايات تجد الاية قد تكون مقسمة فى اكثر من سجل المطلوب تجميع كل اية فى سجل خاص بها كما فى سورة الفاتحة المصحف الرقمى - مجمع الملك فهد.mdb

السلام عليكم ورحمة الله ربما تقصد هذا اليك الملف Classeur1.xlsx

طالما تشغيل البرنامج يتم جيدا من الاختصار ، بينما لا يتم التشغيل مباشرة من أكسس فأقترح كتجربة قيام أكسس بتشغيل الاختصار وليس البرنامج. ربما المسألة لها علاقة بتمرير Parameters أو تحديد working directory . لأنه للأسف لم يعمل برنامجك عندي حتى أستطيع التحقق من الاحتمال مع ملاحظة أن لدي نظام التشغيل ويندوز 7 (32 بت) و FrameWork 4.6.

جزيتم خير اكثر من المطلوب الله يرحم والديكم

وعليكم السلام الحد الاقصي لبيانات قاعدة اكسس 2 جيجا ناقصا حجم الكائنات مث النماذج التقارير الوحدات الخ وهي مساحة ليست بسيطة طالما لا نحتفظ بالمرفقات داخل القاعدة الحد الاجمالي لعناصر القاعدة 32,768 الحد الاقصى للوحدات النمطية 1000 الحد الاقصى للمستخدمين 255 بناء عليه لا اعتقد انك سوف تواجه مشاكل لكونك بعيد عن الحد الاقصى وحتى في اسوء الاحتمالات هناك دائما حلول تحياتي ومبارك عليكم الشهر

جرب استبدال السطر بهذا الكود واخبرنى بالنتيجة #If Win64 = 1 And VBA7 = 1 Then Private Declare PtrSafe Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As LongPtr, clr As LongPtr) '---color Picer #Else Private Declare Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As Long, clr As Long) '---color Picer #End If

وضع كلمة المرورة بهذا الشكل حتى لو عملت بنصيحة اخي الفاضل ابو تراب يمكن معرفة كلمة المرور تحياتي ورمضان كريم 🌹

اقصد في تسمية الحقول وكائنات النماذج من مربعات نص وغيرها تجنب تسميتها بالتسميات المحجوزة لدى محرر الاكواد

ربما كا المطلوب Khoulassa.xlsx

تفضل تم المطلوب بمعادلات المصفوفة خلاصه1.xlsx

اخي حسين العربي انا استخدم وندوز 10 البرنامج لايعمل عندي والبرنامج يحتاج الى Smart Civil ID على كل حال هناك محاولة يمكنك القيام بها وهي فتح task manager من الوندوز وحاول تعرف فروع مدخلات التي تعمل مع البرنامج فهناك برامج تحوي اكثر من مدخل عند عملها ولايغلق الا بعد اغلاق هذة المدخلات لان البرنامج يعل لديك والمشكلة في اغلاقة وعند معرفة هذة المدخلات قم باضافتها الى كود الاغلاق لديك واعتذر عن التقصير

دعوني اشارككم اعزائي بآخر المستجدات لعلها تهم احد منكم نموذج-pgt-1.xlsm

اريد برنامج كامل عن الاقساط واضافه عميل جديد ونوع السلعه ونسبه الارباح

طيب أخي الكريم : أولا : لايجب أن تربط الصور برقم تلقائي ... لأنك لو حذفت اسم من السجلات الموجودة وسويت ضغط واصلاح للقاعدة سوف تفقد كل ارتباطات الصور لذلك الصحيح ربط الصور برقم فريد ( رقم هوية - رقم جواز - ...... الخ ) ثانيا : قمت بحذف الكود الموجود لربط الصور الموجود وفقط وضعت هذا الكود في مصدر مربع النص الخاص بالصورة في النموذج والتقرير =[CURRENTPROJECT].[PATH] & "\pic\" & [ID] & ".jpg" انظر للمرفق .... ووافيني بالنتيجة !!!!!! SA.rar

يبقى انت كده ما شوفتش الرابط ...مفيش مشكلة نقول لك تانى - من فضلك اتبع الخطوات الموجودة بالصورة وعليك بتنفيذها

1.xlsx آسف أخي Ali Mohamed Ali لم الاحظ مشاركتك

تفضل يمكنك جعل المعادلة هكذا =IF(C1=1,RIGHT(A1)+LEFT(A1),"") 1.xlsx

وعليكم السلام برجاء مراجعه الروابط التاليه لمشاركه البرنامج على الشبكه لاختنا الغاليه ام عهود والاخ الغالى احمد الحربى جزاهم الله خيرا http://arabteam2000-forum.com/index.php?/topic/78439-مشاركة-قواعد-البيانات-اكسيس-على-الشبكة/ http://arabteam2000-forum.com/index.php?/topic/66225-آكسس-على-الشبكة/ بالتوفيق ان شاء الله

عملت لك مثال و كلمة السر 1234 كما نصح الاخوة الكرام يجب تامين الكود بالتوفيق Test.accdb

السلام عليكم مشاركة مع الاساتذه الاعزاء شرح بالصور عمل كلمة مرور للنموذج من محرر الاكواد تحياتي

تفضل اخي العزيز ارجو ان يكون طلبك ملاحظة : كود الاغلاق للاستاذ Shivan Rekany test1.accdb

اليك الكود . تصدير ملف لكل زبون مهما كان العدد و حفظ باسم الزبون و رقمه .مع امكانية استبدال الملف في حالة وجوده سابقا. اما بالنسبة لإرساله كرساله. يجب وضع القائمة بالايميلات . و تثبيت outlook . يمكنك تغيير مجلد الحفظ في الكود C:\pdfs انشىء مجلد الحفط و قم بوضع المسار في الكود نموذج (1).xlsm

السلام عليكم الشكر واصل للاخ حسام عيسى ....حفظه الله الكود موجود في موديل الورقة Search Private Sub Worksheet_Change(ByVal Target As Range) If Not Target.Address = Range("C2").Address Then Exit Sub '''''''''''''''''' Dim Lr As Long, i As Long, R As Long Dim txt Range("A6:F25").ClearContents txt = Trim(Target) If Len(txt) < 3 Then Exit Sub With Sheets("Data") Lr = .Cells(.Rows.Count, "A").End(xlUp).Row For i = Lr To 2 Step -1 If txt = CStr(.Cells(i, "A")) Or txt = CStr(.Cells(i, "B")) Or InStr(CStr(.Cells(i, "C")), txt) Then Cells(R + 6, "A").Resize(1, 3).Value = .Cells(i, "A").Resize(1, 3).Value Cells(R + 6, "D").Resize(1, 2).Value = .Cells(i, "E").Resize(1, 2).Value Cells(R + 6, "F").Value = .Cells(i, "H").Value R = R + 1 If R = 20 Then Exit For End If Next End With End Sub المرفق 2010 Search++.rar تحياتي