agha4m قام بنشر يوليو 3, 2023 مشاركة قام بنشر يوليو 3, 2023 السلام عليكم أريد تصميم استعلام بمعيارين بحيث يتضمن إلادارة والمادة وشكراstu.accdb رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر يوليو 3, 2023 مشاركة قام بنشر يوليو 3, 2023 عليكم السلام ورحمة الله وبركاته لا يمكن تصميم استعلام بهذا المعيار لان معيار الاستعلام هو التعبير الذي تتم مقارنته في Access بقيم حقل الاستعلام لتحديد ما إذا يجب تضمين السجل الذي يحتوي على كل قيمة. على سبيل المثال، معيار الادارة = شمال او جنوب او وسط تعبيراً يمكن أن تتم مقارنته في Access بالقيم الموجودة في حقل نصي لاستعلام ما. وإذا كانت قيمة هذا الحقل في سجل معين تحقق المعيار فسيتم تضمين السجل من خلال Access في نتائج الاستعلام. اما بالنسبة للمادة فلا يوجد لها معيار في السجلات لانها عبارة عن درجات. ويمكن ذلك بان يتم انشاء استعلام لكل مادة. رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يوليو 3, 2023 مشاركة قام بنشر يوليو 3, 2023 52 دقائق مضت, شامل2 said: لا يمكن تصميم استعلام بهذا المعيار لان معيار الاستعلام هو التعبير الذي تتم مقارنته في Access بقيم حقل الاستعلام لتحديد ما إذا يجب تضمين السجل الذي يحتوي على كل قيمة لا لا اخي شامل يمكن تصميم استعلام يتم فيه جلب بيانات المادة وفقا لمعياري النموذج الفكرة عمل دالة تقوم بالمرور على حقول الجدول ثم يتم جلب البيانات اذا تطابق معيار النموذج مع اسم الحقل وننتظر ابداعات الشباب الشايب 🌹 2 1 رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر يوليو 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.accdb 1 1 رابط هذا التعليق شارك More sharing options...
agha4m قام بنشر يوليو 3, 2023 الكاتب مشاركة قام بنشر يوليو 3, 2023 (معدل) 2 ساعات مضت, دروب مبرمج 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 السلام عليكم بارك الله فيك أخي تمام لكن اطمع في شيء آخر أريد اضافةcombo1 آخر لاختيار مادة أخرى العرض مادتين معا كيف يكون الكود بعد التعديل تم تعديل يوليو 3, 2023 بواسطه agha4m رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر يوليو 4, 2023 مشاركة قام بنشر يوليو 4, 2023 بارك الله في جهودك اخينا 15 ساعات مضت, agha4m said: السلام عليكم أريد تصميم استعلام بمعيارين بحيث يتضمن إلادارة والمادة وشكراstu.accdb 12 ساعات مضت, شايب said: لا لا اخي شامل يمكن تصميم استعلام يتم فيه جلب بيانات المادة وفقا لمعياري النموذج الفكرة عمل دالة تقوم بالمرور على حقول الجدول ثم يتم جلب البيانات اذا تطابق معيار النموذج مع اسم الحقل وننتظر ابداعات الشباب الشايب 🌹 جهود مباركة 11 ساعات مضت, دروب مبرمج 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 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر يوليو 4, 2023 مشاركة قام بنشر يوليو 4, 2023 12 ساعات مضت, شايب said: لا لا اخي شامل يمكن تصميم استعلام يتم فيه جلب بيانات المادة وفقا لمعياري النموذج الفكرة عمل دالة تقوم بالمرور على حقول الجدول ثم يتم جلب البيانات اذا تطابق معيار النموذج مع اسم الحقل وننتظر ابداعات الشباب الشايب 🌹 السلام عليكم ممكن ارفاق المثال 1 رابط هذا التعليق شارك More sharing options...
agha4m قام بنشر يوليو 4, 2023 الكاتب مشاركة قام بنشر يوليو 4, 2023 11 ساعات مضت, agha4m said: السلام عليكم بارك الله فيك أخي تمام لكن اطمع في شيء آخر أريد اضافةcombo1 آخر لاختيار مادة أخرى العرض مادتين معا كيف يكون الكود بعد التعديل هذا المثال اربد التعديل عليه ليشمل المعيارين stux.accdb رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يوليو 4, 2023 مشاركة قام بنشر يوليو 4, 2023 2 ساعات مضت, شامل2 said: ممكن ارفاق المثال المثال الذي ارفقه الاستاذ دروب مبرمج افضل والفكرة اسهل في التنفيذ منذ ساعه, agha4m said: هذا المثال اربد التعديل عليه ليشمل المعيارين استبدل السطر 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 مواد وربما اكثر فهل لديك الاستعداد لاضافة قوائم منسدلة كل ما احتجت الحل من وجهة نظر الاخ شايب ان نستبدل القوائم المنسدلة بمربع قائمة متعددة التحديد عندها نستطيع اختيار مادة او اكثر او الكل وفقا لرغبتنا مجرد فكرة واعتذر عن ارفاق مثال ونترك الامر للاساتذة الكرام رابط هذا التعليق شارك More sharing options...
agha4m قام بنشر يوليو 4, 2023 الكاتب مشاركة قام بنشر يوليو 4, 2023 شكرا لكل من ساهم بالاجابات الأخ شايب الأخ دروب مبرمج الأخ شامل٢ 1 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يوليو 5, 2023 مشاركة قام بنشر يوليو 5, 2023 في 4/7/2023 at 13:38, شايب said: الحل من وجهة نظر الاخ شايب ان نستبدل القوائم المنسدلة بمربع قائمة متعددة التحديد مجرد فكرة واعتذر عن ارفاق مثال ونترك الامر للاساتذة الكرام حيث ان الموضوع لم يحظ باهتمام الاساتذة الكرام ارفق مثال بعد تعديل كود الاستاذ دروب بالتعديلات التالية الاختيار يكون من مربع قائمة متعددة الاختيار لمادة او اكثر او الكل يمكن اختيار الادارة او تركه فارغ ليتم فلترة كل الادارات اخيرا لا اهتم باختيار اسماء المتغيرات لتكون معبرة عن وظيفة كل منها كما يفعل الاساتذة والخبراء وانما اختار اي اسم او حرف وامور اخرى لا يتسع المجال للحديث عنها وعلى كل حال خذ ماتريد او اترك الاخ شايب 🌹 stu(1).accdb 1 1 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر يوليو 5, 2023 مشاركة قام بنشر يوليو 5, 2023 السلام عليكم بارك الله في جهودك اخينا 2 ساعات مضت, شايب said: حيث ان الموضوع لم يحظ باهتمام الاساتذة الكرام ارفق مثال بعد تعديل كود الاستاذ دروب بالتعديلات التالية الاختيار يكون من مربع قائمة متعددة الاختيار لمادة او اكثر او الكل يمكن اختيار الادارة او تركه فارغ ليتم فلترة كل الادارات اخيرا لا اهتم باختيار اسماء المتغيرات لتكون معبرة عن وظيفة كل منها كما يفعل الاساتذة والخبراء وانما اختار اي اسم او حرف وامور اخرى لا يتسع المجال للحديث عنها وعلى كل حال خذ ماتريد او اترك الاخ شايب 🌹 stu(1).accdb 424 kB · 2 downloads رابط هذا التعليق شارك More sharing options...
agha4m قام بنشر يوليو 5, 2023 الكاتب مشاركة قام بنشر يوليو 5, 2023 شكرا جزيلا هل من الممكن تصميم تقرير لهذا الاستعلام يظهر الحقول الت يتم عرضها في الاستعلام اي تقرير متغير حسب عدد الاعمدة التي تظهر؟ رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يوليو 6, 2023 مشاركة قام بنشر يوليو 6, 2023 (معدل) 13 ساعات مضت, agha4m said: هل من الممكن تصميم تقرير لهذا الاستعلام يظهر الحقول الت يتم عرضها في الاستعلام اي تقرير متغير حسب عدد الاعمدة التي تظهر؟ نعم ممكن انشاء تقرير عن طريق الكود والصيعة العامة للامر 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 بواسطه شايب اضافة الكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.