Moosak

السلام عليكم أيها الأفذاذ 🙂 لدي سؤال أكسسي استعصى علي 😅 عندي جدول لمتابعة إنجاز أنشطة معينة .. ولكل نشاط مؤشرات لقياس إنجازه ...... المهم أنه تختلف نوعية المؤشرات لكل نشاط فبعضها يقاس إنجازه بالأرقام ، وبعضها تقاس بالنسبة المئوية .. مثال : النشاط المؤشر المستهدف الإنجاز الفعلي عمل دورات أكسس متقدم كم عدد الدورات المنجزة؟ 5 3 تطبيق نظام العهدة الجديد نسبة تطبيق النظام 80% 60% وهذه لقطة من البرنامج الفعلي : السؤال هو : كيف أجعل حقول الأرقام [ المستهدف السنوي ] يكون تنسيقها رقمي في المؤشرات الرقمية ؟ وتكون نسبة عند المؤشرات النسبية ؟ المرفق : Number Fields.accdb

تفضل أخي أبو هالة : قمت بعمل استعلام Query1 فيه جميع حقول الجدول ، ثم أضفت حقل اسمه Tsalsul ، واستخدمت كاتب الدوال لكتابة دالة DCount كما يلي .. فكانت النتيجة كما ترى 🙂 : يمكنك أن تقارن النتيجة من خلال عمود تسلسل السابق والعمود الجديد Tsalsul لترى التطابق بين النتيجتين 🙂 وهذه صياغة الدالة : DCount("[ID]";"[Table1]";"[اسم المدرسة او القسم] ='" & [اسم المدرسة او القسم] & "' And [ID] <=" & [ID] & " ") تفضل الملف : 111111111111.accdb

ضع ملفك أخي أبو هالة . يختلف صياغة الدالة حسب موقع استخدامك لها .. 🙂

هذه طريقة كتابة الدالة لو كان اسم المدرسة موجود كحقل في النموذج ( اختر اسم حقل المدرسة بدل ال First Name ) حسب المثال الذي في ملفك الأكسل : DCount("[ID]","[SampleTable]","[First Name] ='"& [Forms]![SampleForm]![TxtBox1] &"' And [ID] <="& Me.ID &" ") طبعا برعاية الكاتب الذكي لدوال المجال 😊👌🏼 مثل ما تلاحظ وضعت شرطين في الدالة : 1- أن يكون اسم المدرسة هو الاسم الموجود في مربع النص . 2- الشرط الثاني أن يكون ال ID أصغر من أو يساوي ال ID الموجود في السجل الحالي.

أنظر هنا أخي أبو هالة 🙂☝️ ولتسهيل العمل على دالة DCOUNT استخدم هذه الأداة الجميلة 😄👇

جرب هذا البرنامج .. نزلته من فترة من أحد المواقع الأجنبية .. Translator.accdb

وعليكم السلام ورحمة الله وبركاته أهلا بك في المنتدى أخي العوام.. هل تقصد مترجم ؟

تفضل أخي أبو هالة هذا هو الكود : Private Sub تاريخ_الاستحقاق_AfterUpdate() If IsNull(Me.المرحلة) Then Me.المرحلة = 1 ElseIf Me.المرحلة = 11 Then Else Me.المرحلة = Me.المرحلة + 1 End If End Sub وكذلك تم تعديل الحقل في الجدول لكي يحمل قيمتين ( رقمية ونصية ) لكي يعمل الكود بشكل صحيح . مع مراعاة نصائح الإخوان بجعل جميع المسميات باللغة الإنجليزية دائما 🙂 علاوة.accdb

أهلا بك أستاذ @higo2015 🙂 تفضل أستاذي هذه الطريقة - تحسب لك عدد وجبات الغداء التي تقع في الساعة 12 ظهر // ووجبات العشاء الساعة 9 مساءا // وعدد الليالي الساعة 12 ليلا : باستخدام الدالة التالية : Public Function LunchNDinnerNights(StartDate As Date, EndDate As Date) As String Dim SH As Integer 'Start Hour Dim TH As Integer 'Total Hours Dim x As Integer Dim H As Integer Dim L As Integer 'Lunches Dim D As Integer 'Dinners Dim N As Integer 'Nights SH = Format(StartDate, "HH") 'Debug.Print "Start Hour=" & SH TH = DateDiff("H", StartDate, EndDate) 'Debug.Print "Total Hours=" & TH For x = 0 To TH H = Format(DateAdd("h", x, StartDate), "HH") 'Debug.Print "Hour=" & H If H = 12 Then L = L + 1 If H = 21 Then D = D + 1 If H = 0 Then N = N + 1 Next x LunchNDinnerNights = L & " Lunch , " & D & " Dinner , " & N & " Night ." End Function ثم تناديها هكذا : If IsNull(Me.StartText) Or IsNull(Me.EndText) Then Exit Sub Me.ResultText = LunchNDinnerNights(Me.StartText, Me.EndText) مع مراعات أن تضع تنسيق التاريخ في المربعات بالصورة التالية : dd/mm/yyyy hh:nn:ss AM/PM جربها وأخبرني برأيك 🙂 أدركتم العشاء والمبيت.accdb

همم تناطح القمم ماشاء الله .. 👍🏼😃 مشتاقين نسمع تجربتك أخي عمر ورأيك خلال هذه الرحلة الممتعة 🙂 الله يوفقك ويسهل طريقك 🌹

وعليكم السلام ورحمة الله وبركاته أخي @SAROOK للأسف لم تنجح محاولاتي في ضبطها .. 😅✋

العفو أخي العزيز 🙂

تفضل أخي @SAROOK جرب هذا : SearchInSubandMain mod..accdb

تفضل أخي : Workbase .rar

@ابو جودي

هذا أحد البرامج الأجنبية نزلته من فترة قريبة لعله يفيدكم 🙂 Speech.accdb وهذا ملف آخر فيه مجموعة من المكتبات الصوتية لمختلف اللغات ومن ضمنها العربية Translate&Speak_v4.3_64-bit.zip

شكرا لك الأخ عمر .. 🌹 🙂 فعلا أنا أستخدم نفس البرنامج لعمل أيكونات البرامج .. سهل وسريع ومريح 👍🙂

وهذا شرح لرموز الإدخال من دورة المبدع منذر السفان 🙂 أنواع الرموز المستخدمة في أداة شكل الإدخال Input Mask.pdf

شكرا لمروركم الكريم 🙂

وعليكم السلام ورحمة الله وبركاته أخي @SAROOK جميل جدا بارك الله فيك .. قمت بعمل تعديل على العلاقة بين الحقلين في الجدولين لتكون علاقة متكاملة One To Many : الخطوة التالية أن تقوم بنفس عملية الربط بين النموذج الرئيسي والفرعي بنفس الحقول ( قمت بهذه الخطوة عنك كما في الصورة ) : وإعادة تنسيق بسيطة للنموذج الفرعي : وأعتذر منك سأتوقف حاليا عند هذه النقطة لانشغالي بأمور أخرى ضرورية ... وقد حملت الملف المعدل ليواصل الإخوان تنفيذ بقية الطلب .. 🙂 SearchInSubandMain mod..accdb

ربي يبارك فيك دكتور قاسم .. في هذه الجزئية من الكود غير هذا : إلى : Finaltxt = Finaltxt & " " & SplitCatcher(Counter) & vbNewLine

مبارك عليك أخي ناقل @ناقل .. 😊 وسام تستحقه عن جدارة 👍🏼😉 وفقك الله في الدارين وزادك الله من واسع علمه 🌹🙂

وأنا أشهد 👍🏼😂

وعليكم السلام ورحمة الله وبركاته أخي صاروخ 🙂 لديك بعض الأخطاء في تصميم الجداول .. وهي من الأساسيات المطلوب مراعاتها .. 1- العلاقة بين الجدولين : لعمل هذه العلاقة تحتاج لعمل حقل رقمي في الجدول SubTable وهو الحقل الذي تربط به الحقل ID الذي في الجدول MainTable بالجدول الفرعي .. 2- بنفس الطريقة في النموذج : تربط النموذج الأساسي بالنموذج الفرعي بنفس الحقلين المربوطين في الجداول .. 3- بعد هذه الخطوات الأساسية يمكن الإنتقال للخطوة التالية وهو سؤالك الرئيسي في هذا الموضوع 🙂 تكرما قم بتعديل مرفقك أولا لننتقل للخطوة التالية، وبذلك نتعلم من بعضنا البعض 🙂

هذا الكلام يوحي بعلوم جديدة .. 😁