كل الانشطه

التطبيق فى قاعدتين الاولى : تجربة صادر الثانية : تجربة صادر-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("رقم الوارد";"وارد")

حل آخر بالأكواد، في الموضوع السابق فهمتك خطأ بأنك تريد أن يبدأ الشهر دائما مع يوم الأحد وقد تم التعديل في هذه النسخة يتم مراجعة خلية العام الدراسي في حال لم يتم تعديله من قبلكم. حساب_التاريخ_07.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

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

اخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق ساعدني فيه أخ الكريم المعطاء ( خليفة ) وهو برنامج صلاحيات مستخدمين في جدول المستخدمين فيه 2 يوزر وأنا عايز ازود مستخدمين 4 أو 5 وعايز احدد لكل منهم صلاحية في الفورم الموجوده بالملف ؟؟abdo-1 (1).rar

Up

تفضل نسخة منقحة بنموذج بحث بجميع حقول الاجازات . Yamen-QRCode_Last.rar

تم إضافة رسائل تنبيه dbexample.mdb

المطلوب تعديل المعادلات لعدد الحصص بالجدول بدلا من (غ) يكتب مكانها الموجود بجدول الغياب تعديل معادلة.xlsx

السلام عليكم استاذ مازال رسالة تنبيه تظهر لي رسالة تنبيه بأن الاسم موجود في الجدول TableA وفي حالة عدم وجود الاسم يتم الحاق البيانات وتظهر رسالة تنبيه تم الحاق البيانات بنجاح