كل الانشطه

يبدو ان المشكلة مسح كل الأحداث بما فيهم الوحدات النمطية

مبدئيا هاهو الميساج لي يظهر لي عند فتح كل فورم إضافة الى ذلك عند دخول كل وحدة نمطية يعلمك بانه يشير الى وحدة نمطية غير موجودة وفعلا تجدها فارغة وساعمل على ارفاق القاعدة ان لم يتم الحل

تلخيص جميل جدا .. 🙂 رزقك الله بنوته جميلة .. 👩 .. تتربى في عزك على الطاعة .. 🌷

مرفق جزء من أحد المشاريع السابقة ، لفاتورة البيع والشراء مع المستلزمات ،، تم حذف أجزاء كثيرة من المشروع وأكواد واستعلامات ليس لها علاقة بالمطلوب ,, New DB.accdb

بارك الله فيك وزادك الله من فضله وعود حميدا .... نورت المنتدى

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

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

ارفق القاعدة

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

حاضر أخي الفاضل سوف أنفذ ما قلت وأوافيك

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

شكرا استاذ @ابوخليل شكرا استاذ @Foksh يعني قصدك يكون جدولين الجدول الاول : راس فاتورة البيع والشراء الجدول الثاني : اطراف فاتورة البيع والشراء وشكرا

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

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

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

يجب ان تتتأكد من صحة المخرجات سبق وطلبت منك ادخال الدرجات لجميع الصفوف فيما لا يقل عن 10 طلاب لكل صف مراعيا جميع الشروط المحتملة ثم تطلع على الكشوف .. وتقرير الرسوب وتتأكد من صحة المخرجات 100% ثم ترفق لنا العمل .. وهذا هو المهم .. من اجل نعتمده كأصل صحيح

شكرا لحضرتك ولأستاذنا الفاضل (foksh ) علي كوده الرائع

الف شكر اخي الغالي @Foksh على هذا الكود التحفة اختصر ثلاثة ارباع الزمن Dim totalRecords As Long Dim recordsWithPositive1 As Long totalRecords = Nz(DCount("*", queryName), 0) recordsWithPositive1 = Nz(DCount("*", queryName, "[1]>0"), 0) For i = 1 To 14 Me("t" & i) = totalRecords Me("Te" & i) = recordsWithPositive1 Dim maleCount As Long Dim femaleCount As Long maleCount = Nz(DCount("*", queryName, "[gender]=1 AND [" & i & "]=0"), 0) femaleCount = Nz(DCount("*", queryName, "[gender]=2 AND [" & i & "]=0"), 0) Select Case i Case 1 maleCtrl = "Text1" femaleCtrl = "Text11" totalCtrl = "Text111" Case 2 maleCtrl = "Text2" femaleCtrl = "Text22" totalCtrl = "Text222" Case 3 maleCtrl = "Text3" femaleCtrl = "Text33" totalCtrl = "Text333" Case 4 maleCtrl = "Text4" femaleCtrl = "Text44" totalCtrl = "Text444" Case 5 maleCtrl = "Text5" femaleCtrl = "Text55" totalCtrl = "Text555" Case 6 maleCtrl = "Text6" femaleCtrl = "Text66" totalCtrl = "Text666" Case 7 maleCtrl = "Text7" femaleCtrl = "Text77" totalCtrl = "Text777" Case 8 maleCtrl = "Text8" femaleCtrl = "Text88" totalCtrl = "Text888" Case 9 maleCtrl = "Text9" femaleCtrl = "Text99" totalCtrl = "Text999" Case 10 maleCtrl = "Text10" femaleCtrl = "Text100" totalCtrl = "Text1000" Case 11 maleCtrl = "Text_11" femaleCtrl = "Text_111" totalCtrl = "Text_1111" Case 12 maleCtrl = "Text12" femaleCtrl = "Text122" totalCtrl = "Text1222" Case 13 maleCtrl = "Text13" femaleCtrl = "Text133" totalCtrl = "Text1333" Case 14 maleCtrl = "Text14" femaleCtrl = "Text144" totalCtrl = "Text1444" End Select Me(maleCtrl) = maleCount Me(femaleCtrl) = femaleCount Me(totalCtrl) = maleCount + femaleCount Next i Data7.rar

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

وعليكم السلام ورحمة الله وبركاته أهلا بك.. الطريقة التالية تقوم أولا بالتحقق من مسار الملف ، ثم التحقق من وجود الملف. وذلك عن طريق حدث السجل الحالي Private Sub Form_Current() '--تحقق مسار الملف مكان_الملف = "D:\FILE\" مسار_الملف = IIf(Len(Dir(مكان_الملف)), مكان_الملف, CurrentProject.Path & "\") & Me.رقم_الموضف & ".PDF" '-- تحقق من وجود الملف Me.لديه_ملف = IIf(Len(Dir(مسار_الملف)), "نعم", "لا") End Sub FILE.zip

أخي @طاهر اوفيسنا ، كل الإحترام والتقدير لك ولأهلنا في الجزائر الشقيق ,, ورغم أني أحاول فهم اسلوبك في التوضيح ، إلا أنني سأطلب منك لطفاً توجيه النقاط المطلوبة والشطر الغير مكتمل ( شرحاً وافياً ) بالعربية الفصحى ، فقط تختلط علي مصطلحات تؤدي الى فهمي الخاطئ لمقصودكم منه .

دعماً للأفكار المطروحة ، جرب هذه الفكرة بعد ان تمت تجربتها Private Sub Datail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next If Me.Counter > 25 Then Me.StuName.FontSize = 12 Me.StuName.Height = 300 Me.Datail.Height = 300 Else Me.StuName.FontSize = 14 Me.StuName.Height = 600 Me.Datail.Height = 600 End If End Sub

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

Up

Me.Upfield = Me.Upfield & " " & Format(Date, "yyyy,mmm,dd") أو Me.Upfield = Me.Upfield & " " & Format(Date, "yyyy,dd,mmm") جرب ما يحقق غايتك