كل الانشطه

تم التعامل مع المشكلة بتغيير اسلوب التنفيذ في المشاركة الرئيسية .

وعليكم السلام ورحمة الله وبركاته .. مشاركة مع أخي @moho58 . أخي الكريم .. الواجب والأصل أن تحدد الشرط الثاني ما إذا كان رقمي أم نصي أم تاريخ . لأن لكل حالة تحتلف صيغة الكود . فعلى سبيل المثال :- اذا كان الحقل نصي :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]='" & Me.RAIANESAMI & "'" End Sub اذا كان الحقل رقمي :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=" & Me.RAIANESAMI End Sub أما اذا كان الحقل تاريخ على سبيل المثال :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=#" & Format(Me.RAIANESAMI, "dd/mm/yyyy") & "#" End Sub لاحظ أنني استخدمت اسمك بدلاً من اسم الحقل والمطابق لشرطه ( مربع النص ) = RAIANESAMI

ابشر انشاء الله قرب يكتمل لكن عطني وقت لأني بوعكة صحية .

محاولة بسيطة في انتظار الاخوة Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' OR [Type_Item]='" & Me.Type_Item & "'" End Sub

السلام عليكم اريد إضافة شرط ثاني لفتح تفرير Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "'" End Sub

وعليكم السلام ورحمة الله وبركاته أخي الكريم 🌹 يبدو إننا تجاوزنا أحد قوانين المنتدى، وهي القاعدة رقم (11) اللي تنص على: يُمنع طرح أكثر من سؤال في موضوع واحد لتسهيل البحث والمتابعة لاحقًا. لذلك لو تم الرد على سؤالك الأول، فضلاً اختر "تمت الإجابة" وابدأ موضوع جديد لسؤالك الآخر، وإذا كان بين السؤالين ارتباط، ممكن تشير للموضوع السابق في سؤالك الجديد. تحياتي وتقديري لك 🌷

بداية اشكرك جزيـــلا اخي الفاضل @منتصر الانسي على الرد والاهتمام بموضوعي في الحقيقة هذا الطلب هو جزء من مشروع مخازن وأحاول التعديل عليه - وقد جزأت هذه الطلبات بناء على طلب استاذنا @ابوخليل لادخال تعديلاته على البرنامج وفق طلباتي وبداية التعديل : كانت باضافة الأزرار : السابق - التالي: تمت معالجة هذا الموضوع من طرف أستاذنا @ابوخليل و الآن في هذا الموضوع: صلاحية الأصناف - الضريبة و بعدها........ والله يا اخي @منتصر الانسي لا اعرف إن كان هذا هو الحل المناسب لسؤالي - لأن الحل قد يكون مرتبط بالطلبات الأخرى المتبقية التي اريد التعديل عليها وبعض هذه الطلبات مذكورة في موصوع بإســـــم : إضافة و تعديل وتحسين خصائص في برنامج المخازن مرة اخرى اشكركم جميعا وان شاء الله هذا البرنامج يكتمل لأنني في حاجة ماسة ومستعجــــلـة اليه في عملي

السلام عليكم.... أستاذ... بارك الله فيك هذا العمل هو المطلوب ويشتغل بشكل جيدًا.... ممتاز على الشرح والتوضيح فيما يخص الدالتين... جزاك الله عنا كل خير أستاذ.... لدي فورم في الاكسل لعرض القائمة والبحث بإسم الموظف مع تصفية القائمة (فلتر).... أرجو المساعدة في تصحيح الكود الخاص بالبحث..... حيث أنه لا يستجيب ويقوم بمسح كل القائمة عند الكتابة في خاصية TextBox13.... لماذا... وما هو السبب.... ؟ 01-قاعدة بيانات الموظفين 24-10-2025.xlsm

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

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

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

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

ولو في اي تحسينات مشكورين عليها ☺️

السلام عليكم ورحمة الله كيكفم اخوتي جميعا انا عندي قاعدة اكسس تشابة الكويك بوكس ولكن للعملاء والموردين شغالة حاليا في الموردين عند فتح التقرير للمورد المعني بجيب الرصيد التراكمي غير صحيح هكتب اسماء الاستعلامات التي اعمل عليها استعلام أساسي VendorStatementBaseQ VendorStatementWithBalanceQ التقرير Vendor Statement Report يعتمد على المصدر جدول اسمه TempVendorStatement كود زر اختيار المورد Private Sub btnPreview_Click() On Error GoTo ErrHandler Dim db As DAO.Database Dim rs As DAO.Recordset Dim runningBalance As Double Dim tempSQL As String Dim vendorID As Long Dim dtFrom As Date, dtTo As Date ' التحقق من المدخلات If IsNull(Me.cboVendor) Or IsNull(Me.txtFromDate) Or IsNull(Me.txtToDate) Then MsgBox "يرجى إدخال المورد وتاريخ البداية والنهاية.", vbExclamation Exit Sub End If vendorID = Nz(Me.cboVendor, 0) dtFrom = Me.txtFromDate dtTo = Me.txtToDate Set db = CurrentDb ' فتح الاستعلام الأساسي وترتيبه بدقة Set rs = db.OpenRecordset( _ "SELECT * FROM VendorStatementBaseQ " & _ "WHERE VendorID=" & vendorID & " AND TransDate BETWEEN #" & Format(dtFrom, "yyyy/mm/dd") & "# AND #" & Format(dtTo, "yyyy/mm/dd") & "# " & _ "ORDER BY TransDate ASC, IIf(TransType='Invoice',0,1), TransNum ASC;", dbOpenDynaset) ' تفريغ الجدول المؤقت db.Execute "DELETE FROM TempVendorStatement;", dbFailOnError runningBalance = 0 ' حساب الرصيد التراكمي لكل صف مع التعامل مع Null Do While Not rs.EOF runningBalance = runningBalance + Nz(rs!InvoiceAmount, 0) - Nz(rs!PaymentAmount, 0) tempSQL = "INSERT INTO TempVendorStatement " & _ "(VendorID, VendorName, TransDate, TransType, Memo, InvoiceAmount, PaymentAmount, RunningBalance) " & _ "VALUES (" & Nz(rs!VendorID,0) & ", '" & Replace(Nz(rs!VendorName,""), "'", "''") & "', #" & _ Format(Nz(rs!TransDate, Date), "yyyy/mm/dd") & "#, '" & Nz(rs!TransType,"") & "', '" & _ Replace(Nz(rs!Memo,""), "'", "''") & "', " & Nz(rs!InvoiceAmount,0) & ", " & Nz(rs!PaymentAmount,0) & ", " & runningBalance & ");" db.Execute tempSQL, dbFailOnError rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing ' فتح التقرير DoCmd.OpenReport "Vendor Statement Report", acViewPreview Exit Sub ErrHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical If Not rs Is Nothing Then rs.Close Set rs = Nothing Set db = Nothing End Sub الشاشة الرئيسية اختيار مورد عند وضع الخيار مثلا Nepta وتاريخ البداية 1/1/2025 وتاريخ النهاية 31/12/2025 واضغط الزر بجيب المورد عندة فانورتان واحدة يوم 21/8 بقيمة 132750000 والثانية يوم 21/10/2025 بقيمة 12000000 مفترض الرصيد يكون 144750000 لكن يظهر 277500000 وهو غير صحيح ف الفكرة يحسب الفاتورة اولا ثم اذا في مبلغ دفع يتم الخصم ارجو منكم المساعدة وربنا يبارك فيكم QuickBooksStyle.rar

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

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

اخي الكريم سيكون الحقلان Date_expiration و Prix_achat مرتبطان بعمليات الشراء لأن تاريخ الانتهاء وسعر الشراء سيتغيران بيتغير وقت الشراء لذا يتم إضافتهما إلى جدول tblInvoiceDetail اما الحقل Impot سيكون مرتبط بالصنف لأنه نادراً ما يتغير لذا نضيفه الى جدول tblAsnaf (أما إذا كانت الضريبة مرتبطة بنوع المنتج فيتم إضافته إلى جدول tblClassTypes) الحقل Prix_achat_final كونه عملية إحتساب فلا نحتاج لإضافته في جدول بل سيكون حقل محتسب في الإستعلامات مرفق لك ملفك بعد إجراء التعديلات عليه ستجد الإستعلام Query1 يحتوي على الأربعة الحقول المطلوبة يمكنك من خلاله معرفة مصدر كل حقل تحياتي stock7 .rar

بارك الله فيكم جميعا والف شكر

في هذا الموضوع اريد اضافة الحقول التالية في الجدول المناسب والنموذج المناسب Date_expiration : تاريخ انتهاء صلاحية المنتجات ( الاصناف) Prix_achat: ثمن شراء المنتوج (الصنف) Impot: قيمة الضريبة على المنتوج الذي نشتريه -- القيمة الافتراضية للحقل تساوي الصفر-- Prix_achat_final= ( (ثمن شراء المنتوج × قيمة الضريبة على المنتوج ) )÷100 + ثمن الشراء Prix_achat_final= ( ( Prix_achat × Impot) ÷100 )+ Prix_achat معلومة فقط : في الشركة الحكومية : حاليا يوجد عندنا ثلاث عندنا مخازن : المواد الدراسية - مواد التنظيف - المواد الغدائية المواد الدراسية - مواد التنظيف : يتم اخراجها من المخازن للموظفين التابعة للشركة اكيد بناء على طلب منهم المواد الغدائية يتم اخراجها وتسليمها إلى المطعم حسب احتياجاته وذلك لتحضير الواجبات الغذائية للطلبة وبارك الله فيكم وجزاكم الله خيرا stock7 .rar

وعليكم السلام ورحمة الله وبركاته ، أنصحك بدايةً بفتح موضوع جديد في قسم الآكسيس ، وليس في قسم مكتبة الموقع . ثانياً اشرح شرحاً وافياً كافياً للمطلوب . فلا أعتقد ان 17 كلمة كافية لتوصيل المعلومة لمن يقرأ موضوعك أخي الكريم . ثالثاً وكي تبدأ بداية سليمة ( وأنت بدأت بداية طيبة جزئياً ) ولكن لتكملها - لا تستعمل أسماء تحتوي فراغات ومسافات لحقول أو مكونات أو عناصر مثل الحقل "Material Description E" . فهذا سيربكك ويصعب عليك الأمور لاحقاً في الاستعلامات أو الأكواد ..... إلخ . فالأصح على سبيل المثال بدلاً من استعمال المسافة أن تستعمل رمز "_" الشرطة السفلية لتصبح النتيجة مثلاً = "Material_Description_E" . افتح موضوعك الجديد في قسم الآكسيس مباشرة وستجد الكثير من الدعم لك 👍 تم اغلاق هذه الموضوع

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

يتشرف #مركز_الرؤية_الاستراتيجية_للتدريب #Strategic_Vision_Training_Center لدعوة سيادتكم للأنضمام الي الدورات التدريبية التالية,,,,, دورات تدريبية هندسة الصيانة مقدمة إن أهمية الدورات التدريبية ليست قاصرة فقط على الحياة المهنية كما يظن أغلبنا .. ولكن الدورات التدريبية تهدف إلى نقل المعرفة والخبرات العملية التى تثقل مهارات الأفراد وتعزز الثقة بالنفس لديهم مما يساهم في إعداد الكوادر مما يعود بدوره على تطوير وتقدم المؤسسات .لذا يهدف مركز الرؤية الاستراتيجية للتدريب إلى تعزيز مهارات وخبرات الافراد من خلال أقوى البرامج التدريبة لنواكب كل تطور في سوق العمل . #دورات #هندسة_الصيانة دورة الادارة المتقدمــة لقيــاس وتـطـويـــر مشاريــع الصيانـــــة دورة الصيانة المرتكزة على المخاطر والموثوقية (RCM و RBM) دورة التكنولوجيا المتقدمة لعمليات الصيانة دورة نظم الصيانة المخططة – التخطيط، الجدولة،التنفيذ والمتابعة دورة تخطيط و صيانة الاوناش والروافع دورة الصيانة الوقائية دورة تشغيل وتصميم وصيانة المبادلات الحرارية دورة صيانة المباني والمرافق دورة تكنولوجيا الصيانة وتحليل الأعطال للمشغلين دورة حماية وصيانة المحركات الكهربائية دورة عملية استكشاف الأخطاء وإصلاحها دورة قياس و اداء فعالية الصيانة دورة مهارات إدارة الصيانة الحديثة دورة نظم ادارة الصيانة المتكاملة باستخدام الحاسب الآلى CMMS دورة هندسة المواد والتآكل لمشرفى الصيانة والمشاريع (CMRP) الدورة المتقدّمة في الصيانة والموثوقية دورة صيانة وإدارة رصف الطرق. دورة تصميم وتشغيل وصيانة الشبكات الكهربائية دورة صيانة المحولات وخلايا التوزيع دورة مقدمة في هندسة الصيانة أماكن الانعقاد ( #دبي #اسطنبول #كوالالمبور #المغرب #السعودية #شرم_الشيخ #القاهرة #الأسكندرية #لندن # اسبانيا #كندا ) الاعتمادات احصل الان على شهادتك باعتماد cpd الدولى كما يوجد خصم للشركات والهيئات والجهات الحكومية والمجموعات كما يتم تنفيذ أي دوره تدريبيه اخرى تلبي احتياجاتكم التدريبية بالوقت و بالمكان المناسبين لكم على ان يكون عدد المشاركين (2) كحد ادنى قاعات التنفيذ بفنادق 5 نجوم ذات الشهره العالميه مجهزه بالوسائل السمعيه والبصريه للتسجيل او لطلب العرض الفنى والمالى يرجى الاتصال او ارسال بريد الاكترونى Ahmed Mohamed 00201551848384 : WhatsApp Training@svtcenter.com www.svtcenter.com Facebook https://www.facebook.com/profile.php?id=100086139318374 Twitter https://twitter.com/StrategicVisio7 Linkedin https://www.linkedin.com/company/strategic-vision-training-center/ Instagram https://www.instagram.com/strategicvisiontrainingcenter WIX https://eslam-training.wixsite.com/training Website https://www.svtcenter.com/ar/Home

مع الإستمرار بنفس الأسلوب الحالي لصاحب الطلب ، هذه فكرة بسيطة بدون فكرة التهميز ( مع أني غير مقتنع 😅 ) . الدالة البسيطة :- Sub SearchRecords() On Error GoTo ErrorHandler Dim strSearch As String Dim strFilter As String strSearch = Trim(Nz(Me.txtSearchName.Value, "")) If strSearch = "" Then Me.Filter = "" Me.FilterOn = False MsgBox "تم إظهار جميع السجلات", vbInformation + vbMsgBoxRight, "" Else strFilter = "[الاسم] LIKE '*" & strSearch & "*' " & _ "OR [الدور] LIKE '*" & strSearch & "*' " & _ "OR [المدرسه] LIKE '*" & strSearch & "*' " & _ "OR [سنة التخرج] LIKE '*" & strSearch & "*' " & _ "OR CStr([م]) LIKE '*" & strSearch & "*' " & _ "OR CStr([المجموع]) LIKE '*" & strSearch & "*'" Me.Filter = strFilter Me.FilterOn = True If Me.Recordset.RecordCount > 0 Then MsgBox "تم العثور على " & Me.Recordset.RecordCount & " سجل", vbInformation + vbMsgBoxRight, "" Else MsgBox "لم يتم العثور على نتائج للبحث : " & strSearch, vbExclamation + vbMsgBoxRight, "" End If End If Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء البحث", vbExclamation + vbMsgBoxRight, "" End Sub واستدعائها عند النقر للزر :- Private Sub cmdSearch_Click() Call SearchRecords End Sub from 93 to 2007.zip

السلام عليكم الاخوة الافاضل ارجو منكم مساعدتي في النموذج المرفق عندي برنامج واريد اجمع تجديد الاقامة نقل الاقامة تجديد الرخصة سداد المخالفات الاجمالي وبعدها المدفوع من السائق والمدفوع من الشركة يكون في خانة المتبقي للشركة بمعني الاجمالي 3000 ريال الشركة دفعة 2000 ريالوالسائق دفع 1000 ريال يكون للشركة 2000 ريال نموذج تجريبي.accdb