كل الانشطه

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

شكرا حزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك