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

Sub Test() ProtectWorksheets False Rem YOUR CODE ProtectWorksheets True End Sub Public Sub ProtectWorksheets(ByVal bProtect As Boolean) Const MYPASS As String = "123" Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If bProtect = False Then ws.UnProtect Password:=MYPASS Else ws.Protect Password:=MYPASS End If Next ws End Sub

حقل رقم الفاتورة الأم بجانب حقل رقم فاتورة المرتجع جاء من الحاجة اليه لاحظ انه لن يدرج الا في سجل فواتير المرتجعات اقرب لك الفائدة : لنفرض انه تم الارجاع من كمية فاتورة اكثر من مرة ، كيف سنستدل على ما سبق من مرتجع الا من خلال رقم الفاتورة الام في التفاصيل بنقرة زر يظهر لنا تفاصيل الفاتورة والعمليات التي تمت عليه هل وضحت الفكرة ؟

بعد إذن من سبقني يمكنك ضرب ناتج المعادلة بالرقم 1 ثم تنسق الخلية بالتاريخ: =LEFT(A2;FIND("-";A2)-1)*1

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

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

الزميل الفاضل مرفق الاكسيل.فرز مساحات.xlsm

السلام عليكم و رحمة الله جرب هذا الكود Sub AbsData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, i As Long, j As Long Dim C As Range, Name As String, dat Set ws = Sheets("Sheet2") Set Sh = Sheets("Sheet3") LR = Sh.Range("C" & Rows.Count).End(3).Row i = 8 Do While i <= LR Name = Sh.Range("C" & i) For Each C In ws.Range("C2:C20") j = 4 Do While j <= 34 If C.Value = Name And C.Offset(0, 1) = "غ" _ And C.Offset(0, 2) = Sh.Cells(7, j) Then Sh.Cells(i, j) = "غ" End If j = j + 1 Loop Next i = i + 1 Loop End Sub

بسم الله الرحمن الرحيم استكمالا لموضوع ال ListView شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها نستكمل الشرح مع درس عملي في كيفية استخدامها والبحث والتعدديل والاضافة وكذلك تغيير طريقة العرض من اليمين لليسار او العكس المثال سهل وبسيط لتوضيح الفكرة وان شاء الله ساشرح المثال تباعا من خلال تجربتكم واسئلتكم المرفقات ListView -ٍsearch.xlsm

فتح التقرير من النموذج ، لم أرغب برفع المثال ، لأترك لك فرصة تطويره لوحدك وحتى لا أتورط في طلبات قادمة 🙂 .. سبق أن نوهت أني مزحوم وربما أكون أكثر حضورا بعد العيد إن شاء الله. المثال: تقويم سنوي 2003_02.mdb

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

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

السلام عليكم ما شاء الله موضوع جميل جدا لو سمحتم لي باضافة وجهة نظري المحاسبية ، بما ان اختصاصي هو المحاسبة كل الفواتير تقسم الى نوعين فقط : ادخال واخراج فواتير الادخال هي 1- المشتريات : تستخدم لادخال المشتريات الجديدة 2- مرتجع المبيعات : تستخدم لدخال البضاعة التي ارجعها احد زبائننا ، اما بالنسبة للسعر فيجب ان تعود بنفس اخر سعر مبيع هذا الغالب في السوق ، لكن قد يكون اتفاق على اجور الشحن والنقل ان وجدت ، من يجب ان يتحملها 3- بضاعة اول المدة : تستخدم في بداية كل سنة مالية في عملية التدوير الحسابات من سنة الى سنة وفي بداية ادخال الحسابات على برنامج المحاسبة (اتمتة الحسابات) 4- ادخال : تستخدم غالبا عند وجود بضاعة زيادة في المستودع ظهرت في الجرد ، او لادخال بضاعة دون التاثير على الحسابات مثل بضاعة حصلت عليه كهدية تدخل بالقيمة صفر على المستودع ولا تؤثر على رصيد المورد فواتير الاخراج 1- المبيعات : تستخدم في اخراج المبيعات من المستودع 2- مرتجع الشراء : تستخدم لاخراج البضاعة المعادة من قبلنا الى المورد 3- اخراج : تستخدم غالبا في اخراج بضاعة التالفة او الناقصة من المستودع هذه هي الفواتير الاساسية السبعة يضاف لم فاتورة مناقلة حيث تقوم بنقل البضاعة بين المستودعات برمجيا بالنسبة لي اضع الفواتير كلها في جدولين فقط 1- راس الفاتورة والثاني بنود الفاتورة في جدول راس الفاتورة اضيف زيادة على اعمدة الفاتورة المتعارف عليه عمود نوع الفاتورة ادخال ام اخراج و عمود اسم الفاتورة بهذه الطريقة يمكنك ان تسمح للمستخدم باضافة اسماء فواتير خاصة به تاخد اعداداتها من جدول خصائص الفواتير مثل يستطيع اضافة فاتورة مبيعات جملة ومبيعات مفرق ومشتريات جملة ومشتريات مفرق وهكذا

محاولة ولكن بشروط: أن تقوم بضبط عرض صندوق الصورة بما يناسب الصورة تماما. أن تعرف أبعاد الصورة وليس الصندوق ليتم التعامل معها في ضبط الإرتفاع بناء على العرض "نسبة وتناسب" فالصورة عندك أبعادها 500 * 253 وسترى هذه الأرقام في الكود وطريقة التعامل معها. عملت لك كودين في الفرعي وفي الرئيسي. Re-centerBlooming_Flower_02.rar

السلام عليكم اسعد الله اوقاتكم لو وضعت مرفق لكان افضل واسهل على اعضاء المنتدى حل المشكلة الفكرة لي هي اضافة جدول فيه الاعمدة التالية 1- من قسم 2- الى قسم 3- الاعمدة التي تحتاجها لنقل البيانات ثم تقوم باستعلام الحاق تضيف البيانات مرة اخرى على النفس الجدول مع تغيير العمودين 1 و 2 تكون بهذه الطريقة تم النقل

شيخنا ومعلمنا الجليل / ابو خليل انت احد اسباب تحويل برنامجى الى نظام الجدول الواحد فمنه استخرج كيفما اريد (هذا التحويل من عدة سنوات وكان مفيد لى كثيرا) على العمومى استاذى ومعلمى والقدير / الاستاذ خالد ان شيخنا ابو خليل يفرح كثير وينسى وجوده طالما وصلنا الى التحاور المفيد والمختصر اشكرك كثيرا استاذ ابو خليل ـ استاذ خالد جزاكم الله كل خير ـ وجعلكم الله خير مساعد لنا

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

B2=LEFT(A2,FIND("-",A2)-1)

السلام عليكم ورحمة الله وبركاته وبها نبدأ Add2 عدلها الى Add في كل الكود وسوف يعمل معك على اوفيس ٢٠١٠

جزاك الله خيرا اخي موسى

شكرا لك لفتح المجال لتلاقح الافكار افكر وانا في بيئة الجداول ... جدول فرعي مرتبط بجدول الاستلام بــــ رقم طلب التوريد او رقم الطلبية ولكن السؤال هنا : اذا كان الاستلام كامل الكمية هل تسجل في الرئيس ام في الفرعي . انا ارى ان الكميات المستلمة تسجل في الفرعي سواء كاملة او مجزأة ليصبح الرئيس لتسجيل بيانات الطلبية كــــ رقم طلب التوريد و رقم الطلبية ونوع الطلبية او الوصف واسم المورد ..والكمية المطلوبة وفي الفرعي يتم ادخال الكمية المستلمة والتاريخ سواء كانت كاملة او جزء منها عند التصفية او طباعة التقارير ... يتم جمع الأجزاء ومقارنتها مع اصل الكمية ، ويمكن طباعة تقرير جزء محدد ويكون في رأس التقرير الكمية الكلية / وما تم استلامه من قبل/ ، وفي التفصيل الجزء الجديد المستلم . في النماذج سيكون هناك في النموذج الرئيس نموذج فرعي يظهر منه سجل واحد فقط لأدراج الكمية المستلمة لمسات : عند فتح فورم الطلبيات واختيار طلبية محددة : سوف يظهر الكمية المطلوبة / الكمية المستلمة اذا كانت الطلبية تم استلامها بالكامل تظهر رسالة او نص ينبه لذلك .. ويكون السجل الفرعي غير متاح والا يكون السجل الفرعي متاح للتحرير والاضافة ولمسات اخرى حسب الحاجة .. مثلا منع ادخال كميات اكبر من المتبقي او اكبر من الكمية الاصل المطلوبة

نعم استاذي ابو خليل ..انا شخصيا بدأت أؤمن بنظرية الجدول الواحد للتفاصيل ..وحينما نختار المرتجع نحب عنه الضريبة

In cell B2 use this formula =DATEVALUE(LEFT(A2,FIND("-",A2)-1)) In cell C2 use this formula =TRIM(RIGHT(A2,LEN(A2)-FIND("-",A2)))

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

ربما لم افهم ما اشرتم اليه بشكل صحيح اذا اشتريت من مورد بضاغة مثلا 1000 ريال ثم اتفقت مع المورد على اعادتها وعملتها فاتورة بيع سيتم اعتبار الفاتورة ضمن فواتير البيع مما يتطلب دفع قيمة ضريبة القيمة المضافة وفقا لاليه احتسابها بين قيمة المشتريات وقيمة المبيعات يكون احتساب الضريبة من الفرق بين العمليتين وايضا اذا بعت بضاعة بنفس المبلغ 1000 ريال اعادها بعد ذلك المشتري ثم عملت فاتورة شراء فاني مجبر على دفع القيمة المضافة على اعتبار ان البيع تم اعتقد ان ما اشرتم اليه صحيح قبل عام 2019 في جميع الاحوال ماهي المشكلة لو اضفت جدول للمرتجع والتالف واي فاتورة مرتجعة يتم قيدها سواء لكامل بنود الفاتورة او لبعض البنود تحياتي وتقديري لاستاذنا الفاضل

حتى يمكن استخدام الكود لكل النماذج دون أن تعديل ودون أن يلتزم بأي اسم من كائنات النموذج تم تبديل هذا السطر: Gap = -Me.slbl2.Left إلى: Gap = -minX المثال بعد التعديل: Re-centerExample_02.accdb

نعم ممكن .. هاك : 🙂 تقويم سنوي.accdb

ما شاء الله بنارك لأستاذنا الكبير @ضاحي الغريب هذه الجهود القيّمة المبذولة ، سائلين الله أن يزيدكم من العلم النافع الذي نرجو أن يكون بميزان حسناتكم ...آمين

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

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