كل الانشطه

شكرا يا عسل العسل ليس قليل الدسم ... العسل كله حلا

تفضل الملف بعد التعديل HB1.accdb

شكرا لك @منتصر الانسي على المرور الطيب أبدى اسفى واعتذارى بسبب وجود مشكلة فى المرفق للاصدار القديم ياللى قمت انت بتحميلة ومن أجل ذلك يرجى حذف الاصدار القديم واعادة تحميل الاصدار الجديد

السلام عليكم ارجو من الاخوة الافاضل مساعدتي : كيف اعمل نموذج بحث بين تاريخين (من تاريخ) الى (تاريخ) HB1.accdb

ها م وعاجل ... وجب التنويه الى استبدال الاصدار السابق باصدار جديد ماهو الجديد في الاصدار 1.01 مشكلة لم انتبه اليها وقت كتابة الكود المشكلة : tblSequences بيخزن الـ Key بالبادئة بس بدون تمييز الجدول اذن فى حال وجود اكثر من جدول ولسبب ما سوف نستخدم نفس البادئة سوف يتشاركون جميعا الاستمرار بنفس التسلسل تم حل المشكلة بشكل جذرى فى ذلك الاصدار الجديد الان مستحيل ان تتم عملية مشاركة الاستمرار لتسلسل الارقام عند استخدام نفس البادئة مع اكثر من جدول

اعرض الملف توليد أرقام تلقائية مخصصة (ترقيم تلقائي احترافي) : Auto Increment توليد أرقام مستندات تلقائية مثل أرقام الفواتير والطلبات والسندات (ترقيم تلقائي احترافي) أربع أنماط للترقيم Yearly → INV-2026-000001 : التصفير واعادة الترقيم عند بدء العام الجديد Monthly → INV-2026-04-000001 : التصفير واعادة الترقيم عند بدء الشهر الجديد Daily → INV-2026-04-05-000001 : التصفير واعادة الترقيم عند بدء اليوم الجديد Sequential→ INV-000001 : ترقيم لا نهائى بدون اعادة بدء الترقيم مستمر بلا توقف المزايا : إنشاء تلقائي لجدول التسلسل : tblSequences وظيفته تخزين تسلسل الأرقام الفريد لكل مفتاح (Key) استرداد ذكي عند حذف جدول التسلسل : tblSequences عن طريق الخطأ تم تصميم الكود بحكمة ليعيد إنشاءه تلقائيا ويستأنف الترقيم من آخر رقم موجود في جدول البيانات الأصلي - أى لا انقطاع ولا تكرار أبدا التحكم الأمثل لإضافة بادئة مخصصة أى أنه يمكن عمل أكثر من عملية ترقيم لنفس الحقل حسب النوع, الفرع , المحافظة مثلا .... Cairo-2026-000018 Alex-2026-000001 التحكم فى شكل تنسيق الترقيم للأرقام بطول سلسلة مخصصة من 1 الى 10 مثل : 000001 أو 0000000001 أو حتى آمن في بيئة الشبكة المتعددة المستخدمين: عدم تكرار أي رقم حتى لو فتح عشرة مستخدمين نفس النموذج في نفس اللحظة مع عمل معالجة خاصة لمنع تعارض الطلبات المتزامنة مع حد أقصى للمحاولات لمنع التوقف التام تحت الضغط الشديد صاحب الملف عسل قليل الدسم تمت الاضافه 04/05/26 الاقسام قسم الأكسيس  

أنا آىسف أخي الكريم علي التأخير وشكرا جزيلا وبارك الله فيك وأكثر الله من أمثالك

. لم تكتب سعر الأجنحة في البورصة و كتبت السعر 55 جنيه و بس ثانيا أنت ربطت سعرالشيش بسعر الصدور و معنى ذلك أنه في حالة عدم وجود صدور في القائمة فلنيتم تحديد سعر الشيش الصدور: سعر البورصة × 2.4 هذا المضاعف (2.4) — من أين جاء؟ هل هو ثابت دائماً أم يتغير؟ شيش: سعر البورصة × 2.4 − 8 نفس السؤال على المضاعف، وهل الـ 8 جنيه ثابتة؟ وراك، دبوس، كبدة: سعر البورصة + مبلغ ثابت هذه المعادلات تبدو ناقصة — منطقياً كيف يكون سعر البيع = سعر البورصة + 10 أو 13 جنيه فقط؟ عادةً في الدواجن يكون السؤال الجوهري: هل سعر البورصة المُدخل هو سعر الكيلو الحي؟ وهل المطلوب تحويله لسعر الكيلو المجزر لكل صنف؟ لأن منطقياً: وراك وكبدة ودبوس لا يُباع بسعر البورصة + 10 جنيه فقط، بل لها نسبة تحويل خاصة بها. ممكن توضح لي كيف تحسب السعر يدوياً لأي صنف غير الصدور هل هناك مضاعف للتحويل من وزن حي إلى وزن صافي مثل الصدور.؟

؟؟؟؟؟؟

لن ابرر شئ ولن ارد على اى شئ من كلامك الغير منطقى لا احب الجدال ولا الوقع اسيرا فى شباك المجادلين ... يبدو اننا سوف نصطدم هنا بالهواة المجادلين ....... كان الله فى العون

شكراً لك ، ولكني لا أثق بالذكاء الإصطناعي ومقترحاته 😇 .

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

السلام عليكم اخوانى الكرام احتاج عمل دالة If فى عمود السعر تعمل بناء على عمود سعر البورصة و جزاكم الله خيرا مجزر دواجن.xlsx

تمام ... فعلا هو المطلوب وبارك الله فيك

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

التطبيق فى قاعدتين الاولى : تجربة صادر الثانية : تجربة صادر-2 طبعا الاولى افضل واسرع وبدون اكواد للاسباب التالية أكثر سرعة : لا يوجد Query على قاعدة البيانات لان البيانات موجودة فى الذاكرة أكثر دقة : لأنها تضمن قراءة القيمة التي يتم إدخالها بشكل مباشر لذلك لن يحدث أي خطأ في التوقيت أكثر أمان : لأنها لا تعتمد على الدالة أو الترتيب في الجدول وبالتالي تقل احتمالية ظهور القيمة قبل الأخيرة أو Null متى يفضل إستخدام الطريقة التى تعتمد على الكود فى القاعدة الثانية عندما نريد الحصول على أخر قيمة فى زوايا التطبيق المختلفة اى فى نموذج أخر او فى استعلام أو فى اى مكان عندمل نريد دعم فلتر: يمكن إضافة شرط WHERE لاسترجاع اخر قيمة حسب معايير معينة أى الحصول على اخر رقم بشروط (مثلا حسب السنة) وهذا بالاخص ان كان يتم البدأ بالترقيم من الرقم 1 مرة أخرى سنويا ممكن نستخدمها بالشكل التالى: Me.Parent!txtLastIncoming = GetLastValue("رقم الوارد", "وارد", "Year([تاريخ الوارد]) = Year(Date())", 0) تجربة صادر.accdb تجربة صادر-2.accdb

كود ضعيف و يعتمد على الترتيب الفيزيائي في الجدول يعنى نفس مشكلة DLast غير ان بالشكل ده لو الجدول فارغ يحدث خطأ كمان : dbOpenTable بدون ترتيب وده لا يضمن الحصول على اخر قيمة الكود الصحيح يكون بالشكل التالى Function GetLastValue(ByVal strField As String, ByVal strTable As String, Optional ByVal strWhere As String = "", Optional ByVal vDefault As Variant = Null) As Variant On Error GoTo ErrHandler Dim rs As DAO.Recordset Dim strSQL As String strSQL = "SELECT TOP 1 [" & strField & "] FROM [" & strTable & "]" If strWhere <> "" Then strSQL = strSQL & " WHERE " & strWhere End If strSQL = strSQL & " ORDER BY [" & strField & "] DESC" Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot) If rs.EOF Then GetLastValue = vDefault Else GetLastValue = rs.Fields(0).Value End If CleanExit: If Not rs Is Nothing Then rs.Close Set rs = Nothing End If Exit Function ErrHandler: GetLastValue = vDefault Resume CleanExit End Function ويتم الاستخدام بالشكل التالى فى الحدث AfterInsert في النموذج الفرعي لانه يضمن تحديث القيمة فور اضافة وارد جديد Me.txtLastIncoming = GetLastValue("رقم الوارد", "وارد")

ليس بالضرورة إن كان الهدف الحصول على قيمة حقل محدد في آخر سجل ( شرط وجود حقل ترقيم مثلاً ) . ولكن إن كان ضمن شرط فعبارتك صحيحة 100% وهنا ممكن يستخدم حقل الترقيم كأساس على آخر قيمة . وممكن استعمال دالة بسيطة مثل :- Function GetLastValue(strField As String, strTable As String) As Variant Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(strTable, dbOpenTable) rs.MoveLast GetLastValue = rs.Fields(strField).Value rs.Close End Function ويتم استدعائها في مربع نص غير منضم بتمرير اسم الجدول والحقل ، مثلاً :- =GetLastValue("رقم الوارد";"وارد")

حل آخر بالأكواد، في الموضوع السابق فهمتك خطأ بأنك تريد أن يبدأ الشهر دائما مع يوم الأحد وقد تم التعديل في هذه النسخة يتم مراجعة خلية العام الدراسي في حال لم يتم تعديله من قبلكم. حساب_التاريخ_09.xlsm

لابد ن توافر الشرط لضمان القيمة الصح . الشرط ...... تاريخ المعاملة مثلاً .

شكرا جزيلا وبارك الله فيك ........... تمام

Me!الحقل_الرئيسي = DMax("[رقم الوارد]", "[وارد]") في حدث After Update يفضل وجود مرفق من القاعدة بسيط لفهم المشكلة

تفضل اخي الكريم تعديل معادلة.xlsx

السلام عليكم ... لدي برنامج صادر وارد .. اريد اظهار اخر قيمة في حقل رقم الوارد تظهر في حقل اخر مع العلم حقل رقم الوارد في نموذج فرعي استعملت الدالتين DMax / DLast لكن كانت النتيجه هي اظهار القيمه قبل الاخيره وليست اخر قيمه . =DLast("[رقم الوارد]";"[وارد]") =DMax("[رقم الوارد]";"[وارد]") وهنا ( وارد ) هو اسم الجدول ... طبعا الحقل المراد اظهار اخر قيمه فيه يكون في النموذج الرئيسي .. افيدوني يرحمكم الله .