ابوخليل

عزيزي الاستعلام داخل التقرير اذا لم تختر شيئا من المربعات فسيتم عرض الجميع ، ولاحظ التدرج بالتصفية من العام الى الذي اخص منه ايضا يمكن التصفية حسب مربع واحد انظر وتفحص وابحث ففي المثال غنية عن الشرح والمقال dbx.mdb

وعليكم السلام مع اختلافي معك في وضع القيمة داخل الجدول ، فبالامكان وضعها في متغير هذه هي طريقة استخراج القيمة حسب فكرتك ويمكنك ان تضعها في المكان الذي يناسبك Dim i, x As Long i = DMin("id", "tbl1") x = DMax("id", "tbl1") diffrent = Nz(DLookup("d2", "tbl1", "id=" & x), 0) - Nz(DLookup("d1", "tbl1", "id=" & i), 0) ويمكن استبدال المتغيرات بحقل id اذا كان ظاهرا معلوما dbx.mdb

عليكم السلام اخوي اتمنى تقبل نقدي بصدر رحب من النظرة الاولى جدول1 ليس بعيد عن بيئة اكسل في اكسس نتعامل مع قاعدة بيانات علائقية الاساسات عندك بحاجة الى اعادة نظر

تفضل هذه بعضا منها والا فالمنتدى مليء بامثالها هنا وهنا وهنا وهنا

اخي الفاضل jo_2010 سؤالك الاخير الافضل فصله بموضوع جديد يخصه علما ان المنتدى مليء بمثل طلبك فقط احسن البحث واختر المفردة المناسبة ايضا ضمن سؤالك مثال بسيط جدا للتطبيق عليه

لم تذكر القيم السالبة في موضوعك وانا غفلت عنها تفضل تم التعديل على المعيار db1.mdb

نعم اذا لزم الامر .. مثلا هذا الاستعلام يشتمل على عمليات خاصة وهو مصدر لعدة تقارير وفي الوقت نفسه لكل تقرير معايير تتعارض مع معايير التقرير الآخر في الاستعلام الذي عملناه داخل التقرير باعتبار ان هذا الاستعلام الداخلي مبني على الاستعلام الاصلي

مجموعة الخيارات سميناها etar هذا الاطار ممكن نجعله بدون قيمة بحيث لما نفتحه تكون الخانات خالية او اننا نعطية قيمة تساوي احد قيم الخانات الموجودة فلما نفتح النموذج نشاهد ان احد الخانات تم التأشير عليها ولكن عند التحديث فهذا الاطار ياخذ قيمة الخانة التي تأشر عليها وعندنا خانتين واحدة قيمتها=1 والثانية = 2 فلما نأشر على الخانة الاولى يصبح قيم الاطار etar=1 وهذا الكلام يفسر لك الكود اللي عملناه : If etar = 1 Then Me.esthkak = Me.agra - (Me.GiapNum * 11666) ElseIf etar = 2 Then Me.esthkak = Me.agra - (Me.GiapNum * 11290) End If

جرب : لنفرض ان اسم الاطار etar1 واسم النموذج frm1 1- اجعل قيمة الخيار الاول = صفر وقيمة الخيار الثاني = 1 المعيار : >=[forms]![frm1]![etar1]

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

انظر الصورة

السلام عليكم تم اختصار الوحدات النمطية الموجودة في المثال بواحدة تقوم بالمهمة Public vYears As Integer, vMonths As Integer, vWeeks As Integer, vDays As Integer Function CalcAge(vDate1 As Date, vdate2 As Date) As String vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 vWeeks = vDays \ 7 vDays = vDays Mod 7 End Function حساب التاريخ باليوم والاسبوع والشهر والسنة.mdb

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

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

ولكن المفروض تتم العملية آليا بناء على الشهر الظاهر ProgEmp4.mdb

السلام عليكم الطريقة في حساب الشهر غريبة تم التعدبل على المثال حسب طلبك ولكن المتبع دائما ان عدد ايام الشهر ثابتة على طول السنين ربما يختلف الشهر الثاني الميلادي بزيادة يوم او نقصه وايضا يمكن الاستعانة برمجيا لاظهار عدد ايام الشهر الحالي ، انظر الدالة ادناه Public Function MonthDays() Dim myMonth As Long myMonth = Month(Date) MonthDays = Day(DateSerial(Year(Date), myMonth + 1, 1) - 1) End Function ProgEmp4.rar

strWhere = " WHERE numberp IN (" With List2 For i = 0 To .ListCount - 1 If .Selected(i) Then strWhere = strWhere & .Column(0, i) & ", " Next i End With اسم في قائمة4.mdb

السلام عليكم وأهلا بحامل المسك مشاركة مع الاستاذ محمد اذا كان تصميم الجداول التي عندك مثل المرفقات بالضبط فقد وقعت في مشكلة فنية ولن تخرج منها الا بالتدخل اليدوي ، والسبب ان المعرف في جدول المعلمين في القاعدتين ترقيم تلقائي وهذا يعني ان المعرفات في القاعدتين تتشابه بنسبة 99%.. وبعد الاصلاح يمكن التصدير والاستيراد الحل : التدخل اليدوي على احدى القاعدتين لتغيير المعرف ابتداء مما انتهت منه القاعدة الاخرى وبما انك ضبطت خصائص العلاقات على تحديث الحقول المرتبطة فبمجرد تعديل الجدول الرئيس ستتغير الجداول الفرعية وطريقة تعديل المعرف كالتالي : نفرض ان اخر رقم في معرف في الجدول الرئيس في القاعدة الاولى = 400 1- نفتح القاعدة الثانية / العلاقات / ثم نحذف العلاقات 2- نفتح الجدول الرئيس على التصميم ثم نغير نوع حقل المعرف من ترقيم تلقائي الى رقم ثم نحفظ ونخرج 3- نذهب الى العلاقات ونعيدها كما كانت 4- نفتح الجدول الرئيس ونقوم بتعديل حقل المعرف ابتداء بالرقم 401 الى نهاية الجدول بناء على خصيصة العلاقة ستتغير الارقام في الجداول الفرعية آليا انتهينا ويمكنك الآن النسخ واللصق بين الجداول على شرط ان تبتدء بالجدول الرئيس ملحوظة : احفظ نسخة احتياطية بعيدة عن العمليات اخي العزيز نارت لبزو كنا نكتب في وقت واحد

تفضل رجعت الى أمثلة محفوظة عندي قديمة فوجدت لك هذه الطريقة لتنفيذ الفكرة ، لم يسجل صاحبها اسمه عليها وقمت بالتعديل عليها بما يتوافق مع مثالك Dim i As Integer Dim strWhere As String strWhere = " WHERE name1 IN (" With List2 For i = 0 To .ListCount - 1 If .Selected(i) Then strWhere = strWhere & """" & .Column(0, i) & """, " Next i End With If Len(strWhere) > 0 Then strWhere = Left(strWhere, Len(strWhere) - 2) & ")" Application.CurrentDb.QueryDefs("Query3").SQL = "SELECT * FROM Query2 " & strWhere End If اسم في قائمة3.mdb

تفضل الحل : المعايير الموجودة في القائمة جعلت نسخة منها في الاستعلام اسم في قائمة2.mdb

فقط نغير الجدول المصدر باسم الاستعلام نفسه ليصبح الكود my_outo_num: DCount("code";"HB_Q";"code <=" & [code]) والمثال اضطررت لنقله الى جهاز آخر للتعديل عليه Lab 2019.rar