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

تفضل تقسيم نصوص الى اعمدة.xlsm

جرب هذا الملف تقسيم نصوص الى اعمدة salim.xlsm

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

وعليكم السلام تفضل استاذنا العزيز ، واتمنى ان يكون هو مطلوبك db.mdb

جزاكم الله كل خير الشكر موصول للأستاذ سليم والأستاذ شريف ولإثراء الموضوع هذا كود ثالث تجزئة الاسماء من اسم طويل.xls

تفضل تسجيل يومية(AutoRecovered).xlsm

تم معالجة الموضوع Salim_filter.xlsm

لا .. بل فقط في حال تم استخدام دوال برمجية لها علاقة بمكتبات خارجية غير موجودة في الاوفيس .. في اغلب البرمجيات البسيطة والمتوسطة يتم انشاؤها بدون استعمال مكتبات خارجية

عليكم السلام أخي بن علية فكرة رائعة ويمكن اختصار المعادلة قليلا إلى =F6/(HOUR(E6)+MINUTE(E6)/60) وفقنا الله جميعا لكل ما يحب ويرضى

جرب هذا أخى الكريم تكاليف-الجرف.xlsm

السلام عليم اخوتي لدي طلب بسيط من خبراء الاكسيس ان امكن و امتمثل في ما يلي لدي جدول رئيسي اسمة tbData خاص بالموردين وجدول اخر اسمه tbBone وهو الجدول الذي ندخل فيه الدفعات الخاصة بكل مورد علما ان العمو anne هو عمود سنة الادخال و عمود mois هو شهر ادخال الدفعة اريد انشاء استعلام يعطيني مجموع كل شهر الخاص بكل مورد بالفعل نجحت في ذلك لاكن كمثال مجموه شهر 1 الخاص بالعميل 5 يكون حاص جمع كل السطور المرتبطة ب الشهر واحد وليس هذا ما اريده اريد ان يجمع لي كل سنة على حدى اي مجموع شهر 1 الخاص بسنة 2017 و شهر 2 ......الى 12 ثم يضهر مجموع شهر 1 الخاص بسنة 2018 و الشهر 2 .....الى 12 كما ارجو اضهار عمود السنوات في الاستعلام شكرا مقدما db.accdb

يوضع هذا الماكرو في حدث الصفحة Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Row > 2 _ And Target.Count = 1 Then Target.Offset(0, 1).Resize(, 4).ClearContents Target.Offset(, 1).Resize(, UBound(Split(Trim(Target), _ " ")) + 1) = Split(Trim(Target), " ") End If Application.EnableEvents = True End Sub

تفضل example.accdb

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

اشكرك يااخى اعمل الكود على مربع الناتج فى نموذج البحث

في نموذج Members اجعل حقل نص39 غير منظم وفي حدث عند الفتح ضع هذا الكود DoCmd.GoToRecord , , acLast Me.نص39 = DMax("IDMem", "Members")

نص الرسالة واضح وهو ان المرجع المذكور في الرسالة غير موجود في الجهاز .. الحل هو البحث في الانترنت عن ملف المرجع ذو الاصدار 4.8

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

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

اخي الفاضل في حدث عند الفتح استخدم هذا DoCmd.GoToRecord , , acLast

السلام عليكم ويمكن أيضا استعمال المعادلة التالية (بإدراج الدقائق إن كانت غير معدومة): =60*F6/(60*HOUR(E6)+MINUTE(E6))