ابوخليل

السلام عليكم تم اختصار الوحدات النمطية الموجودة في المثال بواحدة تقوم بالمهمة 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

هذا هو الحل my_outo_num: DCount("code";"HB";"code <=" & [code]) اذا لم تتمكن من التطبيق الصحيح ، ارفق الجدول والاستعلام مع بيانات كافية اختصارا للجهد والوقت

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

ما اسم هذا الحقل ؟ وهل نوعه في الجدول رقمي ام نصي ؟ وما اسم الجدول ؟

my_outo_num: DCount("ID";"tbl1";"ID <=" & [ID]) باعتبار tbl1 هو الجدول مصدر الاستعلام

التغيير يكون هنا : Public Sub circl(Rpt As Report, TxtCtrl As Control, TxtDegree As Double) الكلمة في آخر الجملة Double اي ان المتغير رقمي مزدوج بدلا من Integer عدد صحيح طويل ايضا تم التعديل في تنسيق حقل الدرجة في التقرير كي يظهر الكسر .. انظر المثال وضع_دائرة_على_رقمUP2.rar

فضلا اخي الكريم افتح لكل موضوع سؤالا جديدا يخصه

وعليكم السلام اليك التعديل على الوحدة النمطية ايضا قمت ببعض التصرف والتعديل على مسميات المتغيرات ، حيث المسمى الموجود في المثال لا يعين على الفهم Public Sub circl(Rpt As Report, TxtCtrl As Control, TxtDegree As Integer) Dim ctrl As Control Dim Degr As Double Dim sr_y As Single, sr_x As Single Dim Hei As Integer, Wid As Integer Dim lft_wid As Single, top_hei As Single 'تستطيع التغيير في حجم الدائرة من خلال الارقام ادناه sr_y = 0.9 sr_x = 200 Hei = TxtCtrl.Height * 1.9 Wid = TxtCtrl.Width * 1.09 top_hei = (TxtCtrl.Top + TxtCtrl.Height) \ 2 + sr_x Set ctrl = TxtCtrl ' اسم الحقل الذي يوضع عليه الدائرة If Not IsNull(ctrl) Then Degr = (ctrl <= TxtDegree) ' سوف يتم وضع الدائرة إذا كان الحقل المسمى (الدرجة) يحتوي على الرقم 49 فأقل If Degr Then Rpt.DrawWidth = 24 lft_wid = ctrl.Left + (ctrl.Width \ 2) ' تغيير الرقم يؤثر في مكان الدائر يسار أو يمين Rpt.Circle (lft_wid, top_hei), Wid \ 2, vbRed, , , sr_y ' التغيير في الرقم يؤثر في الدائرة من ناحية الاتساع End If End If End Sub Rpt.DrawWidth = 24 الرقم في هذا السطر المسؤول عن سمك محيط الدائرة فكرة_وضع_دائرة_على_رقمUP.rar

Dim dbs dbs = Shell("EXCEL.EXE", vbMaximizedFocus) End Sub

عليكم السلام افتح النموذج على التصميم / انقر بزر الفأرة الايمن على الحقل المطلوب واختر خصائص افتح على لسان التبويب : غير ذلك وغير كما هو ظاهر في الصورة

جرب هذا Private Sub Name1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 49 Then Name1 = "احمد " ElseIf KeyCode = 50 Then Name1 = "محمد " ElseIf KeyCode = 51 Then Name1 = "محمود " End If End Sub ولكن رجاء غير اسم الحقل Name عندك لان هذه الكلمة محجوزة

ينقل الى _احبابنا وجيراننا _ قسم أكسل