agha4m قام بنشر يوليو 3, 2023 قام بنشر يوليو 3, 2023 السلام عليكم أريد تصميم استعلام بمعيارين بحيث يتضمن إلادارة والمادة وشكراstu.accdb
شامل2 قام بنشر يوليو 3, 2023 قام بنشر يوليو 3, 2023 عليكم السلام ورحمة الله وبركاته لا يمكن تصميم استعلام بهذا المعيار لان معيار الاستعلام هو التعبير الذي تتم مقارنته في Access بقيم حقل الاستعلام لتحديد ما إذا يجب تضمين السجل الذي يحتوي على كل قيمة. على سبيل المثال، معيار الادارة = شمال او جنوب او وسط تعبيراً يمكن أن تتم مقارنته في Access بالقيم الموجودة في حقل نصي لاستعلام ما. وإذا كانت قيمة هذا الحقل في سجل معين تحقق المعيار فسيتم تضمين السجل من خلال Access في نتائج الاستعلام. اما بالنسبة للمادة فلا يوجد لها معيار في السجلات لانها عبارة عن درجات. ويمكن ذلك بان يتم انشاء استعلام لكل مادة.
شايب قام بنشر يوليو 3, 2023 قام بنشر يوليو 3, 2023 في 3/7/2023 at 18:19, شامل2 said: لا يمكن تصميم استعلام بهذا المعيار لان معيار الاستعلام هو التعبير الذي تتم مقارنته في Access بقيم حقل الاستعلام لتحديد ما إذا يجب تضمين السجل الذي يحتوي على كل قيمة Expand لا لا اخي شامل يمكن تصميم استعلام يتم فيه جلب بيانات المادة وفقا لمعياري النموذج الفكرة عمل دالة تقوم بالمرور على حقول الجدول ثم يتم جلب البيانات اذا تطابق معيار النموذج مع اسم الحقل وننتظر ابداعات الشباب الشايب 🌹 2 1
دروب مبرمج قام بنشر يوليو 3, 2023 قام بنشر يوليو 3, 2023 استخدم الكود التالي Dim strSql As String Dim qdf As QueryDef strSql = "SELECT id, idara, lagnano, lagna, " & Combo0 & " FROM stu WHERE idara ='" & Combo2 & "'" On Error Resume Next DoCmd.DeleteObject acQuery, "stu Query" Set qdf = CurrentDb.CreateQueryDef("stu Query", strSql) DoCmd.OpenQuery qdf.Name qdf.Close Set qdf = Nothing مرفق المثال بعد التعديل stu.accdbFetching info... 1 1
agha4m قام بنشر يوليو 3, 2023 الكاتب قام بنشر يوليو 3, 2023 (معدل) في 3/7/2023 at 19:34, دروب مبرمج said: استخدم الكود التالي Dim strSql As String Dim qdf As QueryDef strSql = "SELECT id, idara, lagnano, lagna, " & Combo0 & " FROM stu WHERE idara ='" & Combo2 & "'" On Error Resume Next DoCmd.DeleteObject acQuery, "stu Query" Set qdf = CurrentDb.CreateQueryDef("stu Query", strSql) DoCmd.OpenQuery qdf.Name qdf.Close Set qdf = Nothing مرفق المثال بعد التعديل stu.accdb 396 kB · 3 downloads Expand السلام عليكم بارك الله فيك أخي تمام لكن اطمع في شيء آخر أريد اضافةcombo1 آخر لاختيار مادة أخرى العرض مادتين معا كيف يكون الكود بعد التعديل تم تعديل يوليو 3, 2023 بواسطه agha4m
شامل2 قام بنشر يوليو 4, 2023 قام بنشر يوليو 4, 2023 بارك الله في جهودك اخينا في 3/7/2023 at 16:15, agha4m said: السلام عليكم أريد تصميم استعلام بمعيارين بحيث يتضمن إلادارة والمادة وشكراstu.accdb Expand في 3/7/2023 at 19:12, شايب said: لا لا اخي شامل يمكن تصميم استعلام يتم فيه جلب بيانات المادة وفقا لمعياري النموذج الفكرة عمل دالة تقوم بالمرور على حقول الجدول ثم يتم جلب البيانات اذا تطابق معيار النموذج مع اسم الحقل وننتظر ابداعات الشباب الشايب 🌹 Expand جهود مباركة في 3/7/2023 at 19:34, دروب مبرمج said: استخدم الكود التالي Dim strSql As String Dim qdf As QueryDef strSql = "SELECT id, idara, lagnano, lagna, " & Combo0 & " FROM stu WHERE idara ='" & Combo2 & "'" On Error Resume Next DoCmd.DeleteObject acQuery, "stu Query" Set qdf = CurrentDb.CreateQueryDef("stu Query", strSql) DoCmd.OpenQuery qdf.Name qdf.Close Set qdf = Nothing مرفق المثال بعد التعديل stu.accdb 396 kB · 3 downloads Expand
شامل2 قام بنشر يوليو 4, 2023 قام بنشر يوليو 4, 2023 في 3/7/2023 at 19:12, شايب said: لا لا اخي شامل يمكن تصميم استعلام يتم فيه جلب بيانات المادة وفقا لمعياري النموذج الفكرة عمل دالة تقوم بالمرور على حقول الجدول ثم يتم جلب البيانات اذا تطابق معيار النموذج مع اسم الحقل وننتظر ابداعات الشباب الشايب 🌹 Expand السلام عليكم ممكن ارفاق المثال 1
agha4m قام بنشر يوليو 4, 2023 الكاتب قام بنشر يوليو 4, 2023 في 3/7/2023 at 22:29, agha4m said: السلام عليكم بارك الله فيك أخي تمام لكن اطمع في شيء آخر أريد اضافةcombo1 آخر لاختيار مادة أخرى العرض مادتين معا كيف يكون الكود بعد التعديل Expand هذا المثال اربد التعديل عليه ليشمل المعيارين stux.accdbFetching info...
شايب قام بنشر يوليو 4, 2023 قام بنشر يوليو 4, 2023 في 4/7/2023 at 07:38, شامل2 said: ممكن ارفاق المثال Expand المثال الذي ارفقه الاستاذ دروب مبرمج افضل والفكرة اسهل في التنفيذ في 4/7/2023 at 09:35, agha4m said: هذا المثال اربد التعديل عليه ليشمل المعيارين Expand استبدل السطر strSql = "SELECT id, idara, lagnano, lagna, " & Combo0 And Combo1 & " FROM stu WHERE idara ='" & Combo2 & "'" بالسطر التالي strSql = "SELECT id, idara, lagnano, lagna, " & Combo0 & " ," & Combo1 & " FROM stu WHERE idara ='" & Combo2 & "'" لكن اعتقد ان هناك افكار افضل الان انت ترغب في عرض مادتين وغدا تحتاج 3 مواد وربما اكثر فهل لديك الاستعداد لاضافة قوائم منسدلة كل ما احتجت الحل من وجهة نظر الاخ شايب ان نستبدل القوائم المنسدلة بمربع قائمة متعددة التحديد عندها نستطيع اختيار مادة او اكثر او الكل وفقا لرغبتنا مجرد فكرة واعتذر عن ارفاق مثال ونترك الامر للاساتذة الكرام
agha4m قام بنشر يوليو 4, 2023 الكاتب قام بنشر يوليو 4, 2023 شكرا لكل من ساهم بالاجابات الأخ شايب الأخ دروب مبرمج الأخ شامل٢ 1
شايب قام بنشر يوليو 5, 2023 قام بنشر يوليو 5, 2023 في 4/7/2023 at 10:38, شايب said: الحل من وجهة نظر الاخ شايب ان نستبدل القوائم المنسدلة بمربع قائمة متعددة التحديد مجرد فكرة واعتذر عن ارفاق مثال ونترك الامر للاساتذة الكرام Expand حيث ان الموضوع لم يحظ باهتمام الاساتذة الكرام ارفق مثال بعد تعديل كود الاستاذ دروب بالتعديلات التالية الاختيار يكون من مربع قائمة متعددة الاختيار لمادة او اكثر او الكل يمكن اختيار الادارة او تركه فارغ ليتم فلترة كل الادارات اخيرا لا اهتم باختيار اسماء المتغيرات لتكون معبرة عن وظيفة كل منها كما يفعل الاساتذة والخبراء وانما اختار اي اسم او حرف وامور اخرى لا يتسع المجال للحديث عنها وعلى كل حال خذ ماتريد او اترك الاخ شايب 🌹 stu(1).accdbFetching info... 1 1
شامل2 قام بنشر يوليو 5, 2023 قام بنشر يوليو 5, 2023 السلام عليكم بارك الله في جهودك اخينا في 5/7/2023 at 12:34, شايب said: حيث ان الموضوع لم يحظ باهتمام الاساتذة الكرام ارفق مثال بعد تعديل كود الاستاذ دروب بالتعديلات التالية الاختيار يكون من مربع قائمة متعددة الاختيار لمادة او اكثر او الكل يمكن اختيار الادارة او تركه فارغ ليتم فلترة كل الادارات اخيرا لا اهتم باختيار اسماء المتغيرات لتكون معبرة عن وظيفة كل منها كما يفعل الاساتذة والخبراء وانما اختار اي اسم او حرف وامور اخرى لا يتسع المجال للحديث عنها وعلى كل حال خذ ماتريد او اترك الاخ شايب 🌹 stu(1).accdb 424 kB · 2 downloads Expand
agha4m قام بنشر يوليو 5, 2023 الكاتب قام بنشر يوليو 5, 2023 شكرا جزيلا هل من الممكن تصميم تقرير لهذا الاستعلام يظهر الحقول الت يتم عرضها في الاستعلام اي تقرير متغير حسب عدد الاعمدة التي تظهر؟
شايب قام بنشر يوليو 6, 2023 قام بنشر يوليو 6, 2023 (معدل) في 5/7/2023 at 18:58, agha4m said: هل من الممكن تصميم تقرير لهذا الاستعلام يظهر الحقول الت يتم عرضها في الاستعلام اي تقرير متغير حسب عدد الاعمدة التي تظهر؟ Expand نعم ممكن انشاء تقرير عن طريق الكود والصيعة العامة للامر CreateReportControl (ReportName, ControlType, Section, Parent, ColumnName, Left, Top, Width, Height) لاحظ ان هناك سبعة معلمات كل منهم تحتاج الى قيمة مع ذلك توجد طريقة اسهل وبدون الحاجة الى انشاء تقرير عن طريق تصدير الاستعلام الى word اذا اقنعت بالفكرة ضع الامر التالي في نهاية الكود الخاص بالاستعلام او في زر امر حسب رغبتك Dim w As String w = Me.Combo2.Column(0) & ".rtf" DoCmd.OutputTo acOutputQuery, "stu Query", _ acFormatRTF, "d:\" & w, True وفي جميع الاحوال هذا طلب جديد ويتطلب موضوع جديد وفقا لقوانين الموقع ولن اعلق على هذه القوانين ولا كيفية تطبيقها حتى لا اتهم باني متحامل و اقوم بتاجيج الرأي العام و سيء الظن واحمل نفسي مالا اطيق الاخ شايب 🌹 تم تعديل يوليو 6, 2023 بواسطه شايب اضافة الكود
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.