كل الانشطه

مرفق جزء من أحد المشاريع السابقة ، لفاتورة البيع والشراء مع المستلزمات ،، تم حذف أجزاء كثيرة من المشروع وأكواد واستعلامات ليس لها علاقة بالمطلوب ,, 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") جرب ما يحقق غايتك

هو ليس حقل تاريخ هو عبار عن حقل نص الكود VBA المستخدم فى حدث بعد التحديث هو Me. Upfield = Upfield & " " & Date

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

وعليكم السلام ورحمة الله وبركاته ،، أخي الكريم يوجد أكثر من طريقة واسلوب وحل ، ولكن قبل الشروع بذكر أحدها سأنصحك نصيحة متفرعة = 1. الإبتعاد عن التسميات العربية للجداول والحقول والنماذج ومكوناتها . 2. عدم استخدام "-" في التسميات ، والأفضل استخدام "_" إن كنت مضطراً . الآن في النموذج سنقوم بحذف جميع الأكواد ولا حاجة لها ولا حاجة للزر أيضاً ، ثم في مديول جديد ألصق الكود التالي :- Public Sub UpdateEmployeeFiles() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPath As String Dim strFileName As String strPath = CurrentProject.Path & "\" Set db = CurrentDb Set rs = db.OpenRecordset("جدول1", dbOpenDynaset) If Not rs.EOF Then rs.MoveFirst Do Until rs.EOF strFileName = strPath & rs!رقم_الموضف & ".pdf" rs.Edit If Dir(strFileName) <> "" Then rs!لديه_ملف = "نعم" rs!مسار_الملف = strFileName Else rs!لديه_ملف = "لا" rs!مسار_الملف = Null End If rs.Update rs.MoveNext Loop End If rs.Close Set rs = Nothing Set db = Nothing End Sub وفي النموذج يكفينا الإستدعاء للدالة في حدث عند التحميل كما يلي :- Private Sub Form_Load() UpdateEmployeeFiles End Sub حيث أن الدالة ستقوم بتحديث قيمة الحقل في كل مرة تفتح فيها النموذج للموظفين الذين لديهم ملف PDF أو لا . أيضاً سيتم تعديل مسار الملف اذا كان موجوداً بدلاً من استخدامك للكود السابق في حدث "في الحالي" . FILE.zip