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

لم افهم ماذا تقصد بعبارة لو يكون الرنج في العامود K أوسع اذا كان فصدك توزيع المواد على عدة حلايا فهذا الملف (صفحة Salim ) يفي بالغرض Aboomar_1.xlsm

جرب هذا الملف (صفحة Salim ) Affan.xlsm

النطاق الازرق من هذا الملف (يمكن تغيير التواريخ) تم ادراج تواريخ عشوائية للتحقق من المعادلات اللون الأحضر في الجدول الاساسي يدل على التواريح (المطابقة) في شهر 8 واللون الزهري على التواريح (المطابقة) في شهر 9 Osama-2.xlsx

جرب هذا الكود Option Explicit Sub get_Std() Dim rg As Range, Cel As Range Dim Where As Range Dim dic As Object, ky, m Dim COl As Collection Set Where = Range("J4").CurrentRegion If Where.Rows.Count > 1 Then Where.Offset(1). _ Resize(Where.Rows.Count - 1) _ .ClearContents End If Set rg = Range("A4").CurrentRegion If rg.Rows.Count = 1 Then Exit Sub Set rg = rg.Offset(1).Resize(rg.Rows.Count - 1) Set dic = CreateObject("Scripting.Dictionary") Set COl = New Collection For Each Cel In rg.Columns(3).Cells If Cel <> vbNullString Then dic(Cel.Value) = dic(Cel.Value) & Cel.Offset(, 1) & " ," On Error Resume Next COl.Add Cel.Offset(, -1), CStr(Cel.Offset(, -1)) On Error GoTo 0 End If Next If dic.Count = 0 Then Exit Sub m = 5 For Each ky In dic.keys Cells(m, "J") = COl(m - 4) Cells(m, "K") = ky Cells(m, "L") = _ Mid(dic(ky), 1, Len(dic(ky)) - 2) & "." m = m + 1 Next Set dic = Nothing: Set COl = Nothing End Sub الملف مرفق Aboomar.xlsm

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 2020 البرنامج هو تحديث للاصدارات السابقة من نفس البرنامج اولا وقبل كل شيئ اعتذر عن التأخير فى اطلاق هذا الاصدار نظرا لانشغالي الدائم وظروف خارجه عن الارادة. كما هو معروف عن برنامج المخزون و الفواتير الشامل: واجهة تطبيقية كاملة علي الاكسيل يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين و حساب المصروفات مع ميزانية عامه توضح الربح و الخساره. البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها.بالاضافه الي طرق جديده فى تصميم الفاتورة كما يتميز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت يعمل علي جميع اصدارات الاكسيل بنواتين 32 أو 64 بت ويفضل دائما الاصدارات الاحدث من الاكسيل اوفيس 2019 و 365 البرنامج مجاني بنسبة 100 % للاستخدام الشخصي ولا يوجد به تاريخ انتهاء. وتستطيع استخدامه بامان تام.ويمنع بيع البرنامج او اي ربح تجاري بدون الرجوع الي المالك الاصلي.و الله الشاهد علي ذلك. تم تصميم البرنامج بمواصفات خاصه ويعمل للشركات الصغيره الي متوسطة الحجم او للمشاريع الخاصه .وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية. تم اطلاق الاصدار الاول من هذا البرنامج عام 2012.وكل ما يلزم هو وجود نسخة اكسيل علي جهازك.وسيفي بالغرض تماما. هذا هو اخر اصدار للبرنامج علي اكسيل و الاصدار الخامس و لمزيد من التحسينات الكبيره سوف يتم تطويره إن شاء الله بلغة برمجه اخري وقاعده بيانات اخري. الدخول الاول:اسم المستخدم "مدير" و الباسورد 123 تم ارفاق نسختين من البرنامج نسخة الاستخدام المباشر كمستخدم ويمكنك استخدامها فى عملك مباشرة. نسخة اخري للتعلم مفتوحة المصدر وتوجد بها جميع الاكواد لجميع الشاشات داخل البرنامج للتعلم او التعديل عليها كما هو الغرض الرئيسي من هذا الصرح العظيم. يمكنك الرجوع الي الاصدارات السابقة حيث يوجد شرح كامل لكيفية استخدام البرنامج لاول مرة. توجد الروابط للاصدارات السابقة و الشرح اسفل هذا الموضوع . 📑الجديد في هذا الاصدار (2020)SIS Ver.4: شاشة تصميم الفواتير و هي من الشاشات الجديدة وبها الكثير من الاكواد الجديده فى الاكسيل (علي حسب علمي) حيث تمكنك من وضع اللوجو الخاص بالمؤسسه او الشركة الخاصه بك كما يمكنك ايضا وضع بياناتك اسفل الفاتورة كرقم التليقون و العنوان و ...... التحكم الكامل في بعض القيم و ظهورها داخل الفاتورة كرصيد العميل. شاشة اختيار عملة الدولة ووضع الضريبه او القيمه المضافه تمكنك هذه الشاشه من اختيار العمله علي حسب الدوله التي تعمل فيها. كما تمكنك من ضبط قيمة الضريبه او القيمه المضافه لفواتيرك شاشة ضبط صلاحيات المستخدمين بعد اضافة مستخدم جديد للبرنامج تستطيع ضبط صلاحيات المستخدم من الوصول الي جميع شاشات البرنامج شاشة حذف البيانات الغير مستخدمة بكل سهولة تستطيع حذف العملاء و الموردين او الاصناف الغير مستخدمة داخل البرنامج. شاشة الحركة المالية السريعة تستطيع ادخال سند صرف موردين او سند عميل بضغطة زر واحده. شاشة الفواتير الكثير من التحسينات تم ادارجها داخل شاشة الفواتير فاتورة المشتريات . انت من يقوم بوضع رقم الفاتورة الخاصه من المورد.بدلا من وضعها اتوماتيكيا كالاصدار السابق. اضافة خصم اجمالي علي الفاتورة. يتم تحديد الخصم كنسبه مئويه او خصم مبلغ مقطوع. اضافة الضريبه علي الفاتورة ويمكن تحديد قيمتها يدويا او تثبيتها من خلال شاشة البيانات الجديده وضبط الضريبه او القيمه المضافه علي حسب الدولة. مبيعات نقدي: فى حالة اختيار هذا النوع من الفواتير يتم ادراج سند قبض مباشره الي حساب العميل مع حفظ الفاتورة لانها مبيعات نقدية. ظهور رصيد العميل الحالي داخل الفاتورة. و التحكم في ظهوره من خلال شاشة تصميم الفاتورة. زر لسداد كامل الفاتورة مباشرة وادراج سند قبض او سند صرف داخل حساب العميل/المورد سند بالمبلغ المدفوع داخل الفاتورة وتسوية حساب العميل او المورد. شاشة الحركات المالية ادراج الكثير من الحركات المالية داخل سند الصرف. شاشة جديده لحساب رواتب وجميع الحسابات للموظفين العاملين فى المؤسسة او الشركة يوجد الكثير من الاضافات و التحسينات علي كل الشاشات والتقارير داخل البرنامج . تستطيع اكتشاف المزيد و المزيد اثناء استخدام البرنامج. التعامل مع رصيد اول المده (كميات الاصناف- حسابات العملاء/الموردين) تم الاستغناء عن شاشة اكواد البيانات والجرد فى هذا الاصدار وكانت تستخدم لوضع رصيد اول المده للاصناف. وعوضا عن ذلك ولحساب المخزون بطريقه منظمه يجب ان يتم وضع كميات اول المده لجميع الاصناف من خلال فاتورة مشتريات باسعار شراء محدده حتي يتم ادراجها وحسابها بطريقه دقيقه.وايضا فى حالة رصيد سابق للعملاء والموردين يجب ان يتم ادخاله من خلال شاشة الحركات الماليه( حركة ماليه رصيد اول مده او ترحيل لحساب عميل/مورد) طباعة الباركود لا تزال غير مفعله ايضا فى هذا الاصدار. 👁️‍🗨️شرح كيفية استخدام البرنامج وادخال البيانات من الاصدارت السابقة:(برجاء مراجعة الروابط التالية) شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) استخدام البرنامج لاول مره من الاصدار الثالث شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) 🏷️تحميل البرنامج: النسخة الاولي SIS 4.566EO : هى نسخة المستخدم النهائي مجانيه 100 % لاعضاء المنتدي الكرام وليس لها تاريخ انتهاء وكما ذكر سابقا هي للاستخدام الشخصي فقط. 💳SIS 4.566EO.rar النسخة الثانيه SIS 4 Learning : هي نسخة للمطورين و الباحثين عن التعلم وهي نسخة مفتوحة المصدر تحتوي علي جميع اكواد الشاشات داخل البرنامج. 🧼SIS4(Learning).rar إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

ضع هذا الكود تحث حدث عند الضغط على الزر وامسح الماكروا الموجود DoCmd.OpenReport "kashef", acViewPreview, , "stclass Like '*" & Me.stclass & "*'"

السلام عليكم 🙂 شكرا جزيلا اخوي أبو إبراهيم على كلماتك العطرة 🙂 انا احاول قد الامكان ان استعمل الاستعلام لتنفيذ اي موضوع في الاكسس ، لأنه سيكون الاسرع ، ونفس الشيء حاولته لهذا التفكيك قبل ان اعمل الموضوع ، ولكني لم اصل لنتيجة !! ومن الوقت الذي وضعت فيه ملاحظتك ، وانا افكر ، وما توصلت لنتيجة : ما ممكن نستعمل Split ، إلا اذا عرفنا "شرط القطع" (علامة تجارية مسجلة 🙂 ) ، حاولت مع Split ان اخليه يتعرف على الارقام بواسطة "شرط القطع" isNumeric و IN ، ولكن اكسس لا يقبل هذا ، ما ممكن نستعمل inStr و inStrRev ثم isNumeric ، لأن الارقام اللي في السجلات ، ليست بأرقام في نظر الاكسس (استعملت inStrRev في الصورة المرفقة) : . وفي كل خطوة من الخطوات اعلاه في الاستعلام ، اشوف نفسي انجذب لعمل وحدة نمطية لجزئية معينه من كود الاستعلام جعفر

استاذ اشرف انا عاجز عن الشكر ... والله مجهود رائع ان شاء الله هعمل اللى حضرتك قلت عليه وابعت الملف التقديرات

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

من الجميل ان تتعدد الحلول تفضل هذه مشاركة من طرفي اخي الكريم c12.accdb

وعليكم السلام ورجمة الله وبركاته انت تكتب في المعيار اسم النموذج خطأ kkk1 والصحيح kk1 ايضا تكتب في المعيار Like "*" & [Forms]![kk1]![tt1] And [Forms]![kk1]![tt2] & "*" والصحيح Like "*" & [Forms]![kk1]![tt1] & "*" Like "*" & [Forms]![kk1]![tt2] & "*" تفضل اخي الكريم c12.rar تحياتي

كنت اعتقد بأني انتبهت لهذه النقطة !! شكرا على الملاحظة ، وقد تم تعديل المرفق في المشاركة الاصل ، فرجاء انزال المرفق مرة اخرى 🙂 جعفر

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

لا أفهم انت تريد الاستدعاء او الترحيل

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

وعليكم السلام 🙂 هذا رد على سؤالك : . والبرنامج يتحكم بهذا الكم الهائل من المرفقات في اول 2018 ، وفي 8/2019 وصل حجم المرفقات الى اكثر من 1 تيرا بايت : جعفر

كان من الواجب ارفاق ملف (الوقت ليس كافياً لوضع ملف يحتوي على ما تريد) لكن حيث انها المرة الأولى ارفق لك هذا الملف النموذج الكود Option Explicit Sub Sorte_PLease() Dim m%, Ro%, i% Dim Obj_Pos As Object Dim Obj_Neg As Object Set Obj_Pos = CreateObject("System.Collections.ArrayList") Set Obj_Neg = CreateObject("System.Collections.ArrayList") Range("c1").CurrentRegion.ClearContents Ro = Cells(Rows.Count, 1).End(3).Row For i = 1 To Ro If Cells(i, 1) = vbNullString _ Or Not IsNumeric(Cells(i, 1)) Then GoTo Next_I If Val(Cells(i, 1)) >= 0 Then Obj_Pos.Add Cells(i, 1).Value Else Obj_Neg.Add Cells(i, 1).Value End If Next_I: Next i Obj_Pos.Sort Obj_Neg.Sort m = 1 Cells(m, 3).Resize(Obj_Pos.Count) = _ Application.Transpose(Obj_Pos.toarray) m = m + Obj_Pos.Count Cells(m, 3).Resize(Obj_Neg.Count) = _ Application.Transpose(Obj_Neg.toarray) Set Obj_Pos = Nothing: Set Obj_Neg = Nothing End Sub الملف مرفق sorts Pos and Neg.xlsm

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

السلام عليكم مشاركه مع اخى واستاذى الدكتور حسين @د.كاف يار اتفضل اخى @husseinharby تعديل بسيط على كود اخى واستاذى حسين جرب ووافنا بالنتيجه Private Sub item_AfterUpdate() [sale_qty] = 1 If Len(number & "") = 0 Then number = Nz(DMax("[number]", "[details]", "[sale_id]=[Forms]![sale]![sale_id]"), 0) + 1 Else End If End Sub بالتوفيق copy(2).accdb

بارك الله فيك أخي ياسر، الله يوفقك ويأجرك ويسهلك عملك ويجزيك كل خير.

وجدت طريقة اسهل .. اولاً الغي جميع ماسبق من خطوات واستخدمي فقط هذا الكود فيحدث "عند النقر" لزر ضغط واصلاح القاعدة واخبرينا بالنتيجة If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _ "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _ vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _ "تنبيه : رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then Application.SetOption "Auto compact", True End If DoCmd.Quit

أداة تحويل صيغ المعادلات الى اكواد بالمرفقات ملف أداة تحويل صيغ المعادلات الى اكواد Convert__formulas2Code.rar