Moosak

شكرا لك أستاذنا الحبيب @أبو عبدالله الحلوانى 🙂 حل جميل أعجبني .. ولكن المشكلة كما ذكرت أنت أنه متعلق بالكثير من العمليات الحسابية والتنسيقات الشرطية لذلك ستكون عمليات الحساب والفرز مرهقة .. باش مهندس @Eng.Qassim 🙂 زادك الله من واسع علمه .. المشكلة أن الحقول ليست حسابية وإنما يعبئها المستخدم 😅 معلمنا الكبير @jjafferr 🙂 فعلا أنا اقتنعت بترك الحقول رقمية وأن أكتب النسبة هكذا مثلا 100 أو 75 ... بمعنى 100% و 75% واشتغلت الحسابات بشكل جيد ولو أنا تظهر بدون علامة ال %. والآن حولت الحقول لمزدوج Double كما أشرت ولكن كيف يتم التفريق بين الأرقام والنسب من خلال عملية الإدخال في رأيك ؟ بالمناسبة هناك حقل اسمه نوع المؤشر .. وضعته لكي يفرق المستخدم بين النسب والأرقام .. وأنوي أن أستخدمه لاحقا في بعض العمليات الحسابية والتقارير 🙂 وشكرا لمساندتكم ومروركم جميعا ☺️

يمكنك وضع الدالة في مصدر بيانات مربع نص في نموذج بنفس الصياغة .. ويمكنك وضعها في محرر الأكواد كذلك ولكن ستغير ال (؛) إلى (,) ، وتنتبه لتغيير صيغة المتغير في معايير الدالة هكذا (مثلا) : DCount("[ID]","[Table1]","[اسم المدرسة او القسم] ='" & Me.اسم_المدرسة_او_القسم & "' And [ID] <=" & Me.ID & " ") ملاحظة : يحبذ استخدام اسماء الحقول باللغة الإنجليزية لتجنب الكثير من الأخطاء 🙂

كنت مستمتع جدا معك أخي أبو هالة .. لك تحياتي 😊

السلام عليكم أيها الأفذاذ 🙂 لدي سؤال أكسسي استعصى علي 😅 عندي جدول لمتابعة إنجاز أنشطة معينة .. ولكل نشاط مؤشرات لقياس إنجازه ...... المهم أنه تختلف نوعية المؤشرات لكل نشاط فبعضها يقاس إنجازه بالأرقام ، وبعضها تقاس بالنسبة المئوية .. مثال : النشاط المؤشر المستهدف الإنجاز الفعلي عمل دورات أكسس متقدم كم عدد الدورات المنجزة؟ 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

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