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

هذا الملف بشرح ما أفصده 1-البيانات الاساسية في صفحة Salim 2- في الصفحة Result بعد تنفيذ الفلتر بواسطة UserForm يمكن احتيار اي صف من ListeBox لينتقل الى الشيت في المكان المناسب (يمكن تكرار العملية وفي كل مرة يضاف ما تحتاره الى احر صف) 3- الصورة المرفقة تشرح كيفية التعامل مع UserForm الملف مرفق Filter_By UserForm.xlsm

وعليكم السلام 🙂 تفضل: Me.Table2Subform!NoOrder_Label.Caption = "jjafferr" جعفر

عليكم السلام Me.Table2Subform.Form.NoOrder_Label.Caption = "NoOrder" Me.Table2Subform.Form.NoOrder_Label.Caption = "رقم الطلب" هذا الكود لرقم الطلب ويمكن التعديل على البقية بنفس الطريقة

حياك الله .... بالتوفيق

تحت حدث عند عدم الوجود في القائمة ضع هذا الكود Dim i As Integer Dim Msg As String If NewData = "" Then Exit Sub Msg = "'" & NewData & "' áíÓ ÚäÕÑÇ Ýí ÇáÞÇÆãÉ. " & vbCr & vbCr i = MsgBox(Msg, vbQuestion, "ÛíÑ ãÚÑæÝ") Me.ww = "" Me.ww.Dropdown Response = acDataErrContinue 33 (1).accdb

هل افهم من كلامك انك لم تصمم الجدول وانما انت تريد فكرة تصميم جداول للمطلوب .... أم هذه اليبانات موجودة ومدخلة تريد حل لها ...

جرب هذا الملف Habib.xlsm

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

وعليكم السلام -يمكنك استخدام هذه المعادلة لطلبك =IF(ROWS($G$12:G12)>DAY(EOMONTH(DATE($O$3,$P$4,1),0)),"",DATE($O$3,$P$41,ROWS($G$12:G12))) كشف الحضور1.xlsm

تم معالجة الامر يمكنك احتيار الاسم من القائمة المنسدلة او كتابته بدوياً (الخيارين معاً) Kan3any_Extra.xlsm

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

وعليكم السلام-اهلا بك فى المنتدى - سيتم ما تطلب بهذا الكود Private Sub CommandButton1_Click() TextBox2.Value = (TextBox1.Value) * 0.8 TextBox3.Value = (TextBox1.Value) * 0.95 TextBox4.Value = (TextBox1.Value) * 1.14 End Sub 1حساب النسبة المئوية.xlsm

جرب البحث في المنتدى هناك امثلة لما طلبت

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

تجربتي انا اضع جدول للمشتريات وجدول فرعي اطراف مشتريات وجدول للمبيعات وفرعي اطراف مبيعات وفي كل منهما استخدم الترقيم التلقائي الخاصة باكسس ولكن باجراء تعديل لتكون فاتورة المبيعات الاولى تبدأ برقم 10000001 وفاتورة المشتريات برقم ايضا تلقائي بيبدأ بـ 20000001 الفواتير تحفظ تلقائيا بمجرد ادخالها ولكن الفاتورة تبقى غير منفذة الا بالنقر على زر حفظ حيث يتم اضهار نموذج السداد وبمجرد تنفيذ السداد يتم زيادة الكميات او انقاصها في جدول الكميات الخاص بالاصناف وتكون الفاتورة منفذة لايمكن الغائها او تعديلها الالغاء او تعديل الكميات يكون عن طريق شاشة المرتجع وهذا الامر مفيد بالنسبة لي لكون بعض العملاء يتراجع عن الشراء او يرغب في البحث عن اصناف اخرى وهنا يمكن تعليق الفاتورة و فتح فاتورة جديدة للعميل التالي وايضا لا يتغير كميات الاصناف الا للفواتير المنفذة وللتحديث استخدم جداول مؤقتة واستعلام يقوم بحساب الكمية المتوفرة وتنفيذ الزيادة او النقص حسب نوع العملية ولم يواجه مستخدمي الاصدارة الاخيرة بيتا4 اي مشكلة علما بان احد المستخدمين لديه اربعة موظفي كاشير وتصل عند الذروة الى 6 موظفين يعملوا عن طريق الشبكة للحصول على الترقيم التلقائي المنسق يمكن بعدة طرق من ابسطها عن طريق استعلام sql للمبيعات INSERT INTO invoices ( bil_number ) SELECT 10000001 AS Expr1; للمشتريات INSERT INTO invoices ( bil_number ) SELECT 20000001 AS Expr1; هذا الاستعلام ينفذ في بداية تشغيل القاعدة ثم يحذف ملاحظة مهمة عند حذف كافة الفواتير وعمل ضغط واصلاح للقاعدة فسوف يعود الترقيم الاساسي لاكسس من رقم 1 اما في حالة وجود فواتير مسجلة فلن يكون هناك اي مشكلة مع الضغط والاصلاح

كان عليك توضيح هذا الطلب من البداية تجنباً لعدم اهدار الوقت -تفضل يمكنك هذا بذلك الكود Private Sub CommandButton1_Click() On Error Resume Next Dim ws As Worksheet Set ws = Sheets("Sheet1") Me.TextBox2.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 2, 0) Me.TextBox3.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 3, 0) Me.TextBox4.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 4, 0) End Sub 2حساب النسبة المئوية.xlsm

هذه تعملها كما تعمل معيار بين تاريخين: في الاستعلام ، في حقل رقم امر الصرف ، اكتب في المعيار : >=Forms!frm_Main!From_A and <=Forms!frm_Main!To_A ويكون عندك في النموذج frm_Main ، حقلي ، من امر صرف: From_A ، والى امر صرف: To_A جعفر

بعذ اذن احي أحمد بدرة اختر الغام المناسب من الخلية G1 MH332.xls

جرب هذا تغير التاريخ.xls

جرب هذا جعل الكود يبحث في ورقة 2 .xlsm

الحمدلله تم التوصل الى حل بسيط بعد التفكير باللوغاريتمات اكتشفت ان الحل ابسط مما توقعت ☺️ .. فى البداية فكرة فى دالة For مزدوجة بالشكل التالى Sub Double_Loop_Test() Dim SalesCount, X1, X2, BOMCount As Integer SalesCount = DCount("*", "TblSalesReq") BOMCount = DCount("*", "TblBom", "[Productcode]=TblSalesReq![Productcode]") For X1 = 1 To SalesCount For X2 = 1 To BOMCount Next X2 Next X1 End Sub End Sub وصلت الى نقطة انى سأحتاج الى استعلام الحاق Append Query وحاولت عمل استعلام الحاق وقمت بربطه بكافة الجداول المتعلقة وكانت النتيجة هكذا INSERT INTO TblTransactions ( Code, item, QtyNeeded, ProductName ) SELECT TblBom.code, TblBom.Item, [QtyUsed]*[TblSalesReq].[Qty] AS TotalQtyNeeded, TblSalesReq.ProductDesc FROM TblBom INNER JOIN TblSalesReq ON TblBom.productcode = TblSalesReq.ProductCode GROUP BY TblBom.code, TblBom.Item, TblSalesReq.ProductDesc, TblBom.QtyUsed, TblSalesReq.Qty; وعند تجربة استعلام الالحاق منفردا بدون اكواد قام بالنتيجة المرجوة وبسرعة جيدة :) :) تم ارفاق الطريقة فى مثال وذلك ليستفيد منها من يريد ذلك .. افتح النموذج واضغط الزر لتشغيل الاستعلام وسيقوم بالمطلوب .. دمتم بود ❤️ 2003(2).mdb

وعليكم السلام-عليك التحلى بالصبر وكان عليك رفع ملف مصغر كنموذج وليس كل هذا الملف تفضل لك ما طلبت تم عمل قائمة منسدلة بأسماء المقاولين .... وأعتقد انه ليس هناك داعى لعمل صفحات مستقلة بأسماء المقاولين لأن هذا سيثقل من حجم الملف ويبطئه , فقط عليك اختيار اسم المقاول من القائمة المنسدلة واترك الباقى على الإكسيل-بارك الله فيك حساب توريدات٢٠٢1.xlsx

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

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

أحسنت استاذ سليم عمل ممتاز بارك الله فيك وزادك الله من فضله

وعليكم السلام 🙂 تفضل Dim PauseTime, Start PauseTime = 5 ' Set duration in Seconds Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop . الافضل النظر في الكود ومعرفة وين المشكلة ، وبعض الاوقات ينحل الموضوع بالامر DoEvents بعد الامر اللي يأخذ وقت للتنفيذ ، واكتبه لأكثر من مكان ، واللي يعمله هو ، ما يطلب من الكود ان يتوقف حتى يكمل الكود عمله ، وانما يعطي امر للمعالج بأن يواصل عمل بعض الاوامر الاخرى 🙂 جعفر

تفضل هذا الفيديو وتحته الملفات اللازمة لإضافة Date Picker .... للأستاذة ساجدة العزاوى وهذا فيديو لـــــــــ TreeView Intro to Excel TreeView Control | Excel Userform Tutorial

وعليكم السلام-فقط عليك استخدام هذه المعادلة لتاريخ البداية =DATE(C3,B3,A3) وهذه لتاريخ النهاية =DATE(F3,E3,D3) Date1.xlsx

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

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

تم معالجة الأمر بالنسبة للزر "بحث" تكتب ما تريد البحث عنه في الحلية C6 ثم تنقر على الزر بحث allahabi 1.xlsm

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا 💐 جرب المرفق التالى لعله ما تريد على نفس فكرتك بالتوفيق New_autoNum-DCount - 2.accdb

في نظري طريقتك هذه افضل من اعادة الترقيم ...

واياكم وفيك بارك الله كلنا نتعلم من بعضنا ومن اخواننا واساتذتنا جزاهم الله خيرا عندما تقف فى اى شئ قم بالبحث اولا فالمنتدى وخارجه فسوف يفدك البحث كثيرا وان لم تصل الى شىء افتح موضوع بالمنتدى واشرح به ما تريد مع مثال للتوضيح وان شاء الله تجد العون باذن الله اما شرح الكود سوف اشرحه ببساطه lastNum متغير واسندت له قيمه آخر سجل بالداله -Dlast- من الاستعلام qryFilter بعد فرزه بناء على 2 الكمبوكس Nz(DLast("ItemCode", "qryFilter"), 0) ثم اضفت متغير بالسطر الذى بعده strNum واسندت الرقم الخاص بالترقيم بعد اقتصاصه بهذا الجزء وبه 3 دوال Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-")) ثم اضافه + 1 ثم السطر الذى بعده متغير strLeft اسندت له الجزء المقصوص قبل الرقم بالجزء وبه 2 داله Left(lastNum, InStrRev(lastNum, "-")) ثم قمنا باستخدام if الشرطيه اذا كان المتغير lastNum =0 يضع القيمه الناتجه من السطر التالى Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1 والا ضع القيمه بالزياده ارجو ان اكون وفقت بالشرح والتوضيح بالتوفيق اخى

في هذه الحالة نحتاج اعادة ترتيب المستندات حسب التاريخ ثم اعادة الترقيم مرة اخرى ..... وهل هذا الطريقة منطقية .. ؟؟؟

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

تفضل ...... ترقيم تلقائي جديد كل سنة مضاف الى الترقيم السنة.mdb

وفقكما الله

جرب المرفق واعلامنا بالنتيجة ...... ترقيم تلقائي جديد كل سنة.mdb

معليش ... ممكن نعرف ليش .... أمكن لدى البعض افكار اخرى تساعدك في حل مشكلتك ... بارك الله فيك

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

وعليكم السلام-تفضل هذا فيديو لما تريد ومعه البرنامج المطلوب, يمكنك تحميله أسفل الفيديو بعد مشاهدتك له

تفضل هذا الفيديو سيفيدك فى طلبك

الف مبروك ترقية مستحقة وأعانك الله عليها وبارك الله فيك

كان عليك استخدام خاصية البحث بالمنتدى للوصول لكيفية تحويل ملف الإكسيل الى ملف تنفيذى تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور وهذا ايضاً شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup (شوقي ربيع)

اخى الكريم لا يحدث معى اى مشكلة وشوف بنفسك -يمكنك استخدام هذا الكود بناءاً على مسميات الصفحات لديك Sub test() Sheets("casher").Range("A3:D18").Copy Sheets("sales").Range("A14:d25").PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone End Sub 13.xlsm

السلام عليكم ورحمة الله وبركاته سـبحـان الله وبحمده*عدد خلقه*ورضاء نفسه*وزنة عرشه*ومداد كلماته جزاكم الله خيرا وجعل كل ايامكم رضا(وبارك الله فى مبرمجه)تقويم الصيام(معدل).xls والسلام عليكم ورحمة الله وبركاته

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

ممكن ذلك ترتيب ابجدي.New.xlsx

تصميم شريط ريبون احترافي في الاكسيس تصميم شريط ريبون احترافي في الاكسيس يتم اضافه شريط ريبون لاعطاء البرنامج شكل احترافي مبسط لسهوله الاستخدام من قبل المستخدم النهائي للبرنامج لذا نستعرض ( تصميم شريط ريبون احترافي في الاكسيس ) تصميم شريط ريبون احترافي في الاكسيس في اصدار اوفيس 2003 كان من السهل تصميم شريط ادوات يشبه شكل الريبون بشكل مبسط لانه كان بنظام قوائم منسدله مبسطه لكن بدايه من اصدار اوفيس 2007 تطور شكل الريبون ليعطي شكل مصور بالقوائم بشكل احترافي و تم تعديل طريقه تصميمه ليكون بناء علي نموذج بلغه xml لغه xml هي لغه تنتمي للغهHTML و هي شبيه بها في قواعد كتابه اللغه الي حد كبير و هي اختصار لـ eXtendable Markup Language و هي لغةالترميز القابلة للتوسع . XML صُمّمت لتخزين و نقل البيانات يمكن استخدامها في تصميم بعض البرامج للاندرويد او تصميم المواقع وغيرها دعنا الان نبدا في تصميم شريط ريبون جديد في البدايه نحتاج الي اضافه جدولين جدول لحفظ كود xml و جدول لحفظ الصور المصغره التي نريد وضعها علي الشريط( يمكن ان هذه الصور في ملف مستقل خارج قاعده البيانات الا ان هذا الامر قد يؤثر ببعض المشاكل عند محاوله نقل ملف قاعده البيانات من جهاز الي اخر ) سنقوم بانشاء الجدول الاول جدول حفظ كود xml و سنقوم بحفظه باسم USysRibbons id AutoNumber RibbonName Text RibbonXml Memo او Long Text حيث ان RibbonName يمثل اسم شريط الريبون RibbonXml يمثل مكان حفظ كود xml و تم وضعه هذا الحقل Memo او Long Text حتي يتناسب مع الاكود التي تزيد عن 255 حرف حيث ان short text او text اقصي قدره استعابيه لها في الاكسيس 255 حرف يعد اسم جدول USysRibbons من جدول النظام و بمجرد حفظها لن تظهر بشكل افتراضي و يجب اظهار جداول النظام حتي نستطيع التحكم بها و اذا اردنا ان يكون شريط الريبون مصور و الصور داخل قاعده البيانات سنقوم باضافه جدول باسم tblImagesRibbons idImage AutoNumber imageRibbon Attachment حيث ان imageRibbon من النوع”Attachment” و ذلك لحفظ الصور داخل القاعده البيانات يفضل ان تكون صيغه هذه الصور من النوع ico لتكون متناسقه مع شريط الريبون الان دعنا نتعرف علي كود xml و طريقه كتابه هذا الكود ليتناسب مع الاكسيس نبدا بكتابه معرف التالي و نلاحظ التشابه الكبير في بين لغه xml و لغه html و طريقه صياغه الاوامر البرمجيه هذا الوسم يتوافق مع اصدار اوفيس 2010 فيما فوق نحتاج طبعا الي بعض الخبره البسيطه في قواعد كتابه لغات xml او لغه htmlلنتمكن من كتابه هذا الكود نقوم باضافه الوسم وذلك بعد الوسم tabs في كل مره نريد اضافه قائمه جديده و لاضافه مجموعه جديده داخل القائمه نستخدم الوسم group و يكون بالصيغه التاليه و لاضافه الازرار داخل الجروب نستخدم الوسم button و نلاحظ ان المعامل id يكون لاعطاء اسم برمجي عند استدعاء هذا الزر برمجيا و يختلف هذا المعامل عن معامل label فهو للاسم الظاهر للمستخدم النهائي بينما الخاصيه imageتستخدم لاضافه صوره علي هذا الزر و المعامل onActionيستخدم لحجز متغر في الكود البرمجي عند استدعاء الزر البرمجي او عند الضغط علي هذا الزريتم اعطاء ارقام او اسماء لكل زر بحيث لا يتكرر اي اسم حيث انه في حاله تكرر اي اسم سيتوقف كود xml و لن يظهر شريط الريبون في التصميم ليظهر الكود بشكل كامل كما يلي يتم تخزين جميع الصور في جدول الصور الذي سبق يتم تخزين جميع الصور في جدول الصور الذي سبق و ان قمنا بتصميمه tblImagesRibbons نحتاج في هذا العمل لاضافه مكتبه برمجيه التي تسهل علي الاكسيس استدعاء الصور من الجداول و يمكن ان نستخدم المكتبه البرمجيه Microsoft office 16.0 object libraryحيث يمثل الرقم 16 لرقم اصدار الاوفيس و بالتالي سيختلف من اصدار الي اصدار اخر و في حاله عدم عثورنا علي هذه المكتبه البرمجيه يمكن البحث عنها داخل ملفات النظام و هي موجوده ضمن الملف MSO.DLL نقوم باضافه داله برمجيه لتشغيل ازار شريط القوائم و نستخدم الامر البرمجي Select Case و ذلك للمرور علي كافه ازار التشغيل في الشريط ففي حاله الضغط علي زر يقوم هذا الكود بتحديد الزر و تشغيل الكود الذي يخص هذا الامر Public Sub fncOnAction(control As IRibbonControl) Select Case control.Id Case "bt0" MsgBox "مرحبا" Case "bt1" MsgBox "22222222" Case Else MsgBox "عفوا لا تمتلك صلاحيه الوصل " & control.Id, vbInformation, "انتبه" End Select End Sub لمزيد من المعلومات يمكنك زياره رابط المقال