كل الانشطه

طيب أخي @2saad ، حتى لا نحمّل الاستعلام مصدر سجلات التقرير حملاً زائداً ( من وجهة نظري ) ، قمت بإنشاء دالة بسيطة تقوم بجلب التلاميذ الذين الدمج لهم <> 1 ، كالتالي :- Public Function GetDamgStudents(lagnaID As Long) As String Dim sql As String Dim hasRecords As Boolean sql = "SELECT Studentname FROM Tbl_student WHERE id_lagna = " & lagnaID & " AND damg_id <> 1 AND alsaf_Id = " & Forms!frm_Reports!ComboSaf With CurrentDb.OpenRecordset(sql) hasRecords = (Not .EOF) Do Until .EOF GetDamgStudents = GetDamgStudents & !Studentname & vbCrLf .MoveNext Loop .Close End With If Not hasRecords Then GetDamgStudents = "لا يوجد تلاميذ دمج لهذه اللجنة" Else GetDamgStudents = Trim(GetDamgStudents) End If End Function وعليه قمت بإنشاء مربع نص = "lstDamgStudents" مصدر بياناته استدعاء الدالة بهذا الشكل :- =GetDamgStudents([id_lagna]) وهذه صورة للنتيجة ، علماً أنك لم تقم بارفاق الملف الصحيح كما في الصورة ( ولا أعتقد أنه ضروري ، بما انك تنقل التعديلات الي مشروعك الرئيسي ) وعليه ، يصبح تعديلي في هذا الملف :- Data21.zip * ملاحظة ، تم عمل تنسيقات بسيطة لاخفاء مربع النص عندما لا يكون في اللجنة تلاميذ دمج ، وتستطيع الاستغناء عن هذه الفكرة طبعاً .

شكرا جزيلا أخي الفاضل انظر للصورة يوجد اسفل كل لجنة جملة ( أسماء الطلبة الدمج باللجنة ) عايز اسماء الطلبة الدمج الموجوده في اللجنة نفسها تأتي أسفل هذه الجملة يعني لو عندي طالب دمج في لجنة 1 يأتي اسم التلميذ الدمج تحت جملة ( ( أسماء الطلبة الدمج باللجنة ) وهكذا ونستعين بجدول Tbl_damg لو فتحنا الجدول نجد الصورة الآتية انا عايز التلميذ الذي <> 1 يعني اللي عنده ( إعاقة ذهنية أو شلل دماغي ) محتاج دالة أو كود يجلب ذلك في كل لجنة انظر الصورة والجدول موجود بالاستعلام أتمني أن الفكرة قد وصلت شكرا لحضرتك

ان كان التعبير والشرح غير كافي ، فارسل صورة توضح المطلوب يا صديقي ( على اعتبار انه نفس الطلب الرئيسي لك )

شكرا جزيلا أخي الفاضل وربنا يبارك في عمرك وصحتك أنا آسف علي التأخير في الرد لأن الإنترنت كان فاصلا عندي معلش محتاح دالة أو كود ينادي ( يجلب ) الطالب الدمج في الاستعلام QQQR_STU مع الدباجة السفلية في اللجنةData20.rar يوجد في المرفق جدول اسمه Tbl_damg

انصحك بالبدء بفهم طبيعة تركيب وانشاء استعلام ، ثم توسع للذهاب الى الفلترة من خلال الـ VBA 😉 قمت بانشاء الاستعلام في وضع التصميم أولاً وتعريف المعاملات من خلال الزر ، ثم تضمن الشروط . حيث قمت بإضافة الشروط كما في الصورة التالية مراعياً اظهار السجلات كاملة عند فتح النموذج :- أما فيما يخص جزء PARAMETERS ( أو ما يعرف بالمعاملات ) وشرحها ، فهي كالآتي بشرح مختصر بسيط :- يتم توجيه الحديث مباشرة أنه يا آكسيس هناك بعض القيم سيتم إدخالها من النموذج ( Frm_Bons ) ، فقم بحفظها مؤقتاً لاستخدامها في الفلترة التي سيتم تطبيقها . وتم تطبيق جزء الشروط ( WHERE ) ، كما رأيت سابقاً مع استخدام الدالة Like لعدم التقيد بقيمة محددة كاملة ، بل يمكنك كتابة جزء من القيمة النصية المطلوب البحث عنها والفلترة ، بمعنى أصح وإن جاز التعبير هو نظام يشبه محركات البحث المعتادة مثل جوجل . يعني باختصار ، الاستعلام يعمل عمل فلتر الماء على مراحل يمرر البيانات عبر مرشح العميل أولاً ، ثم مرشح نوع البون ، ثم مرشح التاريخ ، ثم مرشح المنتج . وبالتالي أفضل الاستعلام أكثر من الفلترة من خلال الأكواد لسهولة ومرونة التعامل معه بشكل بصري أكثر من الكتابي . هذا والله أعلم طبعاً 😇

أخى الكريم أريد التعلم الطريقتين طريقة الاستعلام وكود الفلترة طريقة الاستعلام ممتازة ولو تكرمت تشرحها لى هل حضرتك كتبتها كود SQl على طول أم تأخذ كل شرط بإحتماله مع الشروط الأخرى . أنا مش عارف سألت السؤال كدة صح ولا ايه بمعنى لو تشرح لى كود sql الجزء بتاع PARAMETERS فى الملف المرفق وضعت كومبو أخر وهو المنتج يكون من ضمن شروط التصفية جزاكم الله خيرااااا

استبدل الإستعلام السابق ، بالاستعلام التالي :- PARAMETERS [Forms]![Frm_Bons]![cmpagen] Long, [Forms]![Frm_Bons]![cmpkind] Text ( 255 ), [Forms]![Frm_Bons]![fromdate] DateTime, [Forms]![Frm_Bons]![todate] DateTime, [Forms]![Frm_Bons]![cmb_prod] Text ( 255 ); SELECT tbl_Bons.Bon_nu, tbl_Bons.BonDate, tbl_Bons.Bon_kind, tbl_Bons.agent_id, tbl_Bons.carNo, tbl_Bons.driver_nm, tbl_Bons.Prod_no, tbl_Bons.Qty, tbl_Bons.sale_price, tbl_Bons.Remark, [sale_price] * [Qty] AS txtall FROM tbl_Bons WHERE (tbl_Bons.agent_id=Forms!frm_Bons!cmpagen Or Forms!Frm_Bons!cmpagen Is Null) And (tbl_Bons.Bon_kind Like "*" & Forms!Frm_Bons!cmpkind & "*" Or Forms!Frm_Bons!cmpkind Is Null) And ((tbl_Bons.BonDate>=Forms!Frm_Bons!fromdate Or Forms!Frm_Bons!fromdate Is Null) And (tbl_Bons.BonDate<=Forms!Frm_Bons!todate Or Forms!Frm_Bons!todate Is Null)) And (tbl_Bons.Prod_no Like "*" & Forms!Frm_Bons!cmb_prod & "*" Or Forms!Frm_Bons!cmb_prod Is Null); تطبيق الفلترة على 4 مراحل كما تريد ، ومن رأيي الإستعلام أفضل لك للتعامل مع الفلترة المتعددة

احسنت اخي جعفر بهذة الطريقة يبقى الفورم في المقدمة دائما ويمكن وضع القيمة مباشرة في البارميتر الخامس ليكون الامر DoCmd.OpenForm "FINISHED CAED", , , , , 3 او تجاوز البارامترات وكتابة الامر DoCmd.OpenForm "FINISHED CAED", WindowMode:=3 اخونا الشايب

تم تغيير سواء خلية او مربع نص استاذنك ان الخلية لو ناتجة من معادلة (بها )معادلة يكون فيه تغيير الى اللغة العربية والعكس كذلك الاحتفاظ بجميع المعادلات والتنسيقات الاخرى كرقم او صيغة تاريخ

تريد الأسهل أم الأصعب لك ولعملك ؟؟ ممكن توضح أكثر ؟

شكرا جزيلا أخى الكريم ممكن طريقة أخرى بالكود التصفية بدلا من الاستعلام ونزيد فى المعايير كود المنتج أيضا سواء بالاستعلام أو كود التصفية جزاكم الله خيرا 10.accdb

**بسم الله الرحمن الرحيم** الأساتذة الكرام أعضاء هذا المنتدى الموقر، يطيب لنا أن نعبر عن أصدق مشاعر الامتنان والتقدير لجهودكم القيّمة التي تبذلونها في إثراء هذا المنتدى بعلمكم وخبرتكم. فما تقدمونه من إجابات وافية، ومناقشات هادفة، وتوجيهات حكيمة، ليس إلا دليلًا على سموّ أخلاقكم وحرصكم على نشر الفائدة والعلم. لا يسعنا إلا أن نشكر لكم تفانيكم في توضيح الغامض، وتبسيط المعقد، وإضاءة دروب المعرفة للجميع. جهودكم لم تكن مجرد مشاركات عابرة، بل كانت بصمات تُسهم في بناء مجتمع متعلم ومتكاتف. أسأل الله أن يجزيكم خير الجزاء على ما تقدّمونه، وأن يبارك في وقتكم وعلمكم، ويجعل أعمالكم في ميزان حسناتكم. دمتم ذخرًا لهذا الصرح، ونبراسًا يهدي الباحثين عن المعرفة. واخص بالذكر استاذي أبو جودي استاذي Foksh استاذي kkhalifa1960 استاذي ناقل تقبلوا فائق الاحترام،

السلام عليكم حياكم الله هل من الممكن الاتصال بجهاز البصمة ZKTECO دون المرور بالبرنامج ATTENDANCE وسحب التقارير مباشرة من جهاز البصمة من خلال الاكسل ارجو ان يكون ممكن

العفو أخي الكريم .. لا تنسى إغلاق مواضيعك 😇 .

بعد التمعن بكلامك ايش المطلوب بالضبط ياريت لاتبخل بالشرح .

من وجهة نظري بعدما جربت محاولات كثيرة لنفسي أولاً ومنها حلول استاذي ومعلمي استاذ @jjafferr مايصير طلبك إلا من خلال زر من نموذج أخر مثلما سويت بأول المشاركة. لكن ممكن بجوار بعض اذا مساحة الشاشة تسمح بذلك . وممكن تتحكم في ارساء كل منهم بالكود بالفورم (FINISHED CAED TEMPLATE) تفضل الشرح والمرفق . ووافني بالرد. DDOpen2Forms-1.rar

السلام عليكم اضفت عمود اسمه EmpID_01 في جدول T2 واريد ان تنتقل له نفس اليبانات عمود EmpID اي عمود EmpID في جدول T1 بياناته تنتقل الى عمودين هما EmpID و EmpID_01 DDFinding Differences-Last.mdb

لا قوة الا بالله نفتخر بتواجدنا بين هذه الكوكبة وفق الله الجميع لما فيه الخير وجعل علمكم صدقة جارية

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

اما اذا اردت النموذج الصغير دائما في المقدمة ، افتحه بهذه الطريقة DoCmd.OpenForm "FINISHED CAED",,,,,acDialog بدلا عن DoCmd.OpenForm "FINISHED CAED",acNormal

وعليكم السلام في نهاية كودك ، وقبل الرسالة ، اكتب هذا السطر: FORMS("FINISHED CAED").setfocus FORMS("FINISHED CAED").Controls("FAL").setfocus وتقدر تختار اي كائن يصير ال التركيز عليه ، مو شرط الحقل اللي كتبته لك.

ابشر لكن عطني وقت لأني على موعد اليوم .

السلام عليكم اساتذتي الكرام لقد وجدت مشكلة في التعديل الاخير لهذا الملف خلال شهر مارس الفارط المنخرط دفع مبلغ الانخراط كاملا بتاريخ 2025/04/17 والكود يرفض اعطائه منحة او قرض ياريت معرفة سبب المشكلة وشكرا. Taher_20250515.rar

اشكر حضراتكم علي الرد السريع لكن انا ما اريده هو ان المعلم منتدب انتداب جزئي يعني هو موجود اساسي علي قوة مدرسع ومنتدب لاستكمال نصاب الحصص في مدرسه اخري يعني يعمل بالمدرستين لكن في ايام مختلفه طبعا المطلوب ان المعلم يظهر في اعداد المدرسة الاساسية عند حصر الاسماء ولا يظهر في اعداد المدرسة المنتدب لها جزئي يعني يومان من كل اسبوع مع اعلم انه بيتم عرض بيانات المدرسين في listbox

الفكره حلوه وممتازة واشكرك عليها - ولكن طلبي ياصديقي هو عند فتح النموذج الرئيسي يفتح مع بعض ويكون النموذج الصغير في الامام مثال اذا ضغطت على FINISHED CAED TEMPLATE لقتحة يفتح مع بعض FINISHED CAED ويكون FINISHED CAED في الامام نفس فكرتك