عبد الفتاح كيرة

جميل جدا يسر الله الأمور وجزاك خيرا

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

شكرا لك أستاذنا ماذا عن القوائم المنسدلة مثل قائمة ملف و تعديل و ... كيف يمكن عمل قوائم تتنقل بالمستخدم بين عناصر قاعدة البيانات كالنماذج و التقارير؟ و تكون بجوار القوائم الموجودة تحت مسمى وظائف إضافية جزيل الشكر

نعم صدقت

أشهد أن كلام الأخ @jjafferrمضبوط 100% تمت التجربة بارك الله فيه و فيكم * خاصية SelLength لمربع النص تعيد طول النص الخالى إلى صفر بعكس دالة len

بارك الله فيكم

أعتقد تساوى صفرا أيضا لأن دالة len تعيد رقما

ما قصدته هو لماذا وليس فقط

لدى سؤال ما فائدة &"" بعد اسم الحقل فى دالة len ?

تمام سأكتفى بتحديث السجل فقط مع أن ملفنا لا يزيد عن 211 سجلا هى عدد طلاب الصف شكرا لك أستاذ جعفر بارك الله فيك

شكرا جزيلا لك لعنايتك بالرد قررت الجمع بين تحديث كل سجل وقت الإدخال والتحديث الجماعى بعد الإغلاق تفاديا لأى خطأ ما رأيك؟

ما معنى لاحقا تقصد عند إدخال الدرجة فى النموذج يعنى فى حدث بعد التحديث للحقل؟ لماذا؟ هل هذه الطريقة معيبة أو غير مضمونة وقد لاحظت أنها سريعة سؤال هل لو عملنا requery للنموذج قبل الخروج يضمن تحديث الجدول؟ نعم أضفتهما لمحاولة تنشيط مصدر السجلات نسيت أن أذكر أن مصدر السجلات ليس هو الجدول بل استعلام قائم على الجدول لأنه يتم تعديل درجات حقل واحد فى النموذج يدويا بإدخال درجة الطالب و التحديث الجمعى لجمع هذا الحقل مع حقلين آخرين بالجدول والناتجة بحقل ثالث والحقل الرابع يوضع فيه واحد للراسب فى المادة و 0 للناجح فيها

السلام عليكم و رحمة الله هذا كود يتم تنفيذه بعد إغلاق النموذج و هو يعمل بكفاءة و الحمد لله لكن لاحظت أن تحديث الحقول فى الجدول محل التحديث يتأخر أحيانا و يحتاج لإعادة فتح النموذج و غلقه فما سبب ذلك و ما علاجه ننتظر مشورات الإخوة بارك الله فيهم الكود يجمع حقلين و الناتج بحقل ثالث Dim rs As DAO.Recordset Dim db As DAO.Database Set db = CurrentDb Set rs = db.OpenRecordset("upD") Do While Not rs.EOF If rs.Fields(4) = -1 And rs.Fields(5) = -1 Then rs.Edit rs.Fields(6) = -1 rs.Update ElseIf rs.Fields(4) = -1 And rs.Fields(5) <> -1 Then rs.Edit rs.Fields(6) = Nz(rs.Fields(5), 0) rs.Update ElseIf rs.Fields(5) = -1 And rs.Fields(4) <> -1 Then rs.Edit rs.Fields(6) = Nz(rs.Fields(4), 0) rs.Update Else: rs.Edit rs.Fields(6) = Nz(rs.Fields(4), 0) + Nz(rs.Fields(5), 0) rs.Update End If rs.MoveNext Loop rs.MoveFirst Do While Not rs.EOF If rs.Fields(6) < 50 Then rs.Edit rs.Fields(7) = 1 rs.Update Else rs.Edit rs.Fields(7) = 0 rs.Update End If rs.MoveNext Loop rs.MoveFirst rs.MoveLast rs.Close db.Close Set rs = Nothing Set db = Nothing جزاكم الله خيرا و نلقاكم بعد الصلاة بإذن الله

منطقيا كيف يتوالى هذان السطران انتبه أستاذنا

ربنا يكرمك كلنا نتعلم من بعض وللاستفادة لعامة الإخوة غيرنا المتغير الذى نحفظ فيه قيمة ناتج الجمع من Integer إلى Double حيث يمكن وجود علامة عشرية و أرقام بعدها

تمام يا فندم هذا هو المطلوب قلت أصلى العصر ثم أفتح مرفقك وجاءنى الحل نفسه و أنا أصلى بارك الله فيك

نقلت بيانات الاستعلام إلى جدول و منه إلى استعلام جديد يعنى أن حقل mycc فى القاعدة الأصلية هو حقل محسوب أما فى هذا المثال فمأخوذ من جدول يعنى لا يفيد تحويل نوع الحقل إلى مزدوج kera11.rar المربع بالخط الأحمر و الخلفية الصفراء يجب أن يكون نصف .5 وشكرا

ناتج الجمع صحيح فى القيم الكاملة مثلا 1 و 2 و 3 ... وغيرت التنسيق إلى ثابت سأرسل نموذجا للموضوع إن شاء الله قد فعلت و لا تغيير ...شكرا لك

ليس هناك جدول هذا الحقل هو حقل محسوب فى استعلام ومربعات النص غير منضمة على النموذج جربت تغيير تنسيق مربع النص إلى ثابت و لم يتغير شىء

ليس بهذا السطر مشكلة يا أخى فهو يعمل لكن المشكلة أن مربع النص يلغى النصف ويظهر مكانه صفرا

السلام عليكم أتمنى أن تكونوا بخير نموذج عليه مربعات نص غير منضمة يتم تعبئتها بالكود Set rs = db.OpenRecordset("select nz(sum(mycc),0) from kaderc3 where kader_n =" & i & " and empdepart =" & k) مع حلقة تكرار و هو يعمل بكفاءة إلا أنه عندما يكون الناتج نصف .5 يغيره إلى صفر كالمؤشر عليه بالصورة مفروض تكون نصف فما الحل بقية الكود Set db = CurrentDb f = 1 For k = 2 To 11 For i = 1 To 6 Set rs = db.OpenRecordset("select nz(sum(mycc),0) from kaderc3 where kader_n =" & i & " and empdepart =" & k) myc = rs.Fields(0).Value Me.Controls("a" & f) = myc f = f + 1 Next i Next k جزيل الشكر لكم إخوتى مقدما

بارك الله فيكم

شكرا للجميع ليتني أملك ردا كنت رديت عليكم يبدو أنها عين أصابت الملف😂😂😂😂

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

هذا من عجائب ما لاقيت من الأكسيس لقد تم إنشاء هذا الملف على سطح المكتب ثم تم فتحه وكان شغال تمام بعد ذلك حدث ما حدث والعلم عند الله شكرا لك