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

هذا الملف بشرح ما أفصده 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

و هكذا هو الحال قم بنغيير العداد ثم اضغط الزر Run و ترى النتيجة الجديدة