كل الانشطه

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

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

بعد تجربة أكثر من برنامج محاسبي، وقعت على برنامج الأستاذ وفعلاً غير طريقة شغلي بالكامل. لو بتدور على برنامج الاستاذ أفضل برنامج محاسبة للشركات الصغيرة أو محتاج برنامج محاسبة سحابي تقدر تشتغل منه من أي مكان، الأستاذ هو الخيار الأمثل. وما يقتصر على المحاسبة فقط، فهو أيضاً أفضل برنامج محاسبة للمخازن اللي يحتاج تتبع دقيق للمخزون والحركات، وكذلك أفضل برنامج محاسبة للمقاولات اللي تحتاج إدارة مشاريع ومتابعة تكاليف بدقة. من أبرز مميزاته: إنشاء فاتورة إلكترونية وفاتورة ضريبية في ثوانٍ مع كامل متطلبات الفوترة الإلكترونية من هيئة الزكاة والدخل، بما فيها الـ 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("[رقم الوارد]";"[وارد]") وهنا ( وارد ) هو اسم الجدول ... طبعا الحقل المراد اظهار اخر قيمه فيه يكون في النموذج الرئيسي .. افيدوني يرحمكم الله .

اين الردود؟؟?؟؟؟؟؟؟؟

UP

⏳ باقي من الوقت : 6 أيام حتى نهاية التحدى الثاني وما زال البحث جاري عن مبتكرين وخلّاقي أفكار جديدة ، وليس أفكار نسخ ولصق ، وتعديل على أفكار موجودة

ممكن تعديل الكود اللى فى الشيت بحيث ان التلوين لا يظهر فى الطباعة ثانى حاجة عند تحديد اى خليه بلون معين يظل اللون كما هو بالخلية عند الانتقال لسطر اخر تلوين صف وحلية.xlsb

الخبراء الافاضل برجاء المساعدة المطلوب مكتوب فى الصورة TEST -2.rar

تفضل استاذ @2saad الشرح والمرفق بعد التعديل بطلبك . ووافني بالرد . abdo-Last.rar

اعرض الملف تشفير بيانات في رمز شريطي أو رمز الاستجابة السريعة barcode or Qr-Code Encode input data in a barcode or Qr-Code صاحب الملف عسل قليل الدسم تمت الاضافه 04/04/26 الاقسام قسم الأكسيس  

zint barcode.zip

ابشر....................... باكر انشاء الله .