Moosak

بعد البحث وجدت لك هذا الكود أخي @alsihran يحضر لك بقية الأصوات 🙂 'API Declaration Private Declare PtrSafe Function MessageBeep& Lib "user32" (ByVal wType As Long) 'Enumeration of the beep types Public Enum BeepTypes MB_OK = &H0& MB_ICONASTERISK = &H40& MB_ICONEXCLAMATION = &H30& MB_ICONHAND = &H10& End Enum Public Function BeepType(lSound As BeepTypes) As Long ' Function to return BeepType = MessageBeep(lSound) End Function Sub TestTheBeep() ' Play the beep BeepType MB_ICONHAND ' BeepType MB_ICONEXCLAMATION ' BeepType MB_ICONASTERISK ' BeepType MB_OK End Sub الدالة الأخيرة تختبر لك الأصوات الأخرى TestTheBeep()

أكتب في الكود: Beep

أهلا أخي العزيز 🙂 هناك عشرات المواضيع التي تتكلم عن نفس الموضع 🙂 ، أنظر هنا : https://www.officena.net/ib/search/?q=تفقيط&quick=1&type=forums_topic&nodes=89

أعجبتني الفكرة 👍🏼😊

وعليكم السلام ورحمة الله وبركاته 🙂 أهلا وسهلا بك أخي @Mohamed ElGanainy في ربوع منتدانا 🙂 🌹 حبذا أن ترفق ملف الأكسس في موضوعك أخي محمد للتمكن من فهم الفكرة عملياً 🙂

وعليكم السلام أخي حاتم .. 🙂 هل تقصد التعديل في هذا الحقل ؟ إن كان كذلك .. فغير مصدره هكذا : =Nz([1].[Form]![A])+Nz([3].[Form]![C])+Nz([2].[Form]![B]) sum.accdb

لا فض فوك عمي جعفر 😊 إذا هذا هو الحل الأنسب والأسهل . ولكن سأبقي حقل نوع المؤشر لتسهيل الفهم على المستخدم ومآرب أخرى 😁 بارك الله فيك وكثر من أمثالك 🙂🌹

شكرا لك أستاذنا الحبيب @أبو عبدالله الحلوانى 🙂 حل جميل أعجبني .. ولكن المشكلة كما ذكرت أنت أنه متعلق بالكثير من العمليات الحسابية والتنسيقات الشرطية لذلك ستكون عمليات الحساب والفرز مرهقة .. باش مهندس @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

@ابو جودي