نجوم المشاركات

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

حياك الله همممم ، انت الوحيد الذي سألني عن هذا التسلسل كل سؤال أرد عليه في المنتدى وبه مرفق ، اجعله عندي في تسلسل وإذا تطلب الأمر تعديل جذري عليه، فيظل التسلسل + 0.1 و حقوق الطبع والنشر محفوظة جعفر

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

انت لم تستعمل الاستعلامات مثل التي انا استعملتها!! عندي استعلامين ، وعندك استعلام واحد ، والكود يرجع ويناديه!! جعفر

تفضل ولا داعي لإستخدام Recordset ، فـ Dcount تفي بالغرض Private Sub Form_Load() 'Me.CPU = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID") 'Me.BIOS = GetWmiDeviceSingleValue("Win32_BIOS", "SerialNumber") C = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID") 'Debug.Print C '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") 'MsgBox obj_Drive.SerialNumber ' Me.HardSerial = obj_Drive.SerialNumber H = obj_Drive.SerialNumber 'Debug.Print H Set obj_FSO = Nothing Set obj_Drive = Nothing ' If DCount("*", "tbl", "[Pro]='" & C & "' And [Hard]='" & H & "'") > 0 Then 'Exists DoCmd.OpenForm "frm2" Else DoCmd.OpenForm "frm1" End If DoCmd.Close acForm, Me.Name End Sub جعفر 775.1.mdb.zip

وعليكم السلام . . . Option Compare Database Option Explicit Public Function Gather_Materials(ByVal N As String) As String 'N = Name Dim rst As DAO.Recordset Dim RC As Integer Dim i As Integer Dim Together As String Dim How_Many_Materials As Integer 'كم عدد المواد في جدول المواد How_Many_Materials = DCount("*", "Materials") ' اقرا بيانات الاستعلام الذي به صافي المواد ، الى الذاكرة العشوائية للكمبيوتر 'ونستخدم اسم الشخص لتصفية الاستعلام Set rst = CurrentDb.OpenRecordset("Select * From qry_Absences Where [Aname]='" & N & "'") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'عدد سجلات الاستعلام qry_Absences Together = "" 'قم بقراءة جميع سجلات الاستعلام ، واضف المواد ، بينهم فاصلة For i = 1 To RC Together = Together & " ، " & rst!Amaterial rst.MoveNext Next i 'اقفل واحذف الالاستعلام من الذاكرة العشوائية rst.Close: Set rst = Nothing 'تخلص من اول فاصلة Together = Mid(Together, Len(" ، ") + 1) 'اذا كان عدد المواد = عدد سجلات الاستعلام If How_Many_Materials = RC Then Together = "جميع الدروس" End If 'ارسل النتيجة الى الاستعلام Gather_Materials = Together End Function . جعفر 774.استعلام تجميع دروس الغياب في حقل واحد.accdb.zip

جزاك الله خيرا

نعم هناك موقع مشابه له

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

بسم الله الرحمن الرحيم عليه نتوكل وبه نستعين، نحمده سبحانه كما ينبغي أن يحمد، ونصلي ونسلم على رسوله محمد وعلى آله وصحبه والتابعين . وبعد ها هو منتدانا وصرحنا أوفيسنا يضيف أقسام جديدة تضيف إلى رصيده العلمي منابر عدة للباحث العربي ، ليفتح آفاقًا رحبة للبحث العلمي في مجالات لها أهميتها البالغة في تنمية مهارات الفرد والباحث ، و يأمل منكم دعمكم وإثراءكم بمشاركاتكم ودراساتكم، ومقترحاتكم، لكي يكتب للأقسامه الجديدة النجاح والاستمرار وتتمكن من القيام بدورها الذي أنشئت من أجله. سائلين الله تعالى أن ينفع به وأن يكون عملا خالصا له سبحانه فيتصل ولا ينقطع، وأن يجازي بالخير كل من أسهم فيه ولو بكلمة طيبة. وانتهز الفرصة بالتوجه بالشكر للمهندس محمد طاهر وفريق العمل ولجميع الأعضاء بالمنتدي وشكري الخاص لأخواني الذين راسلوني على الخاص للاطمئنان علي اثناء انقطاعي عن المنتدي ونظرا لبعض الطلبات لأخواني بالمنتدي لتطوير برنامج تسجيل لروضة اطفال كنت انتهيت من فترة من بعض الاضافات الي الاصدار الأول واضافة صورة للطفل وطباعة أي دي بطاقة تعريف الطفل ولمزيد من الشرح حول البرنامج في الاصدار الأول رابط الاصدار الأول بعض الصور التوضيحية للبرنامج الملف بالمرفقات ويسعدني بتلقي ملاحظاتكم تم تعديل الملف واضافة خيار اضافة صورة من الفورم وحفظة تلقائيا KG_VII_B_Dahy.rar

السلام عليكم ورحمة الله وبركاته أحبابى وأصدقائى : أعضاء منتدانا العريق أقدم لكم أحدث الإصدارات لشيت كنترول المرحلة الإعدادية لعام 2018 حسب تعديلات القرار 377 كنترول الإعدادى رجب جاويش الإصدار رقم 18 للترمين والدور الثانى 2018 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى ويمكن اختيار الانجليزى مستوى رفيع للمدارس التجريبية تحية لمنتدانا الغالى ولأعضائه الكرام برجاء تجربة البرنامج فى الأيام المقبلة وكتابة أى ملاحظات لكى يتم تعديلها باذن الله ان كانت بالامكان وعذرا لأى خطأ أوسهو أخوكم رجب جاويش كنترول_الإعدادى__رجب_جاويش_الإصدار__18.rar

شكرا لك ا/ أبوعيد وهذه معادلة اخرى ، تحسب من تاريخ اليوم الى اربع ايام قبل ان حددنا بـ 5 ايام حسب ما فهمت =SUM(OFFSET($B$2;MATCH(TODAY();B3:B500;0);2;-J2;))

تفضل جرب المرفق اجمالي الربح-بالايام-بين تاريخين3.rar

حرك الصفحة بتجاه اليسار سوف تجد عمود به محتويات الكمبوبكس يمكنك التعديل والاضافه وسوف يظهر التعديل في الكمبوبكس فورا

حياك الله جعفر

تفضل أخي الملف بعد التعديل فورم إخفاء وإظهار الاعمدة حسب طلبك جدول الدروس.rar

الاخ ابو خليل من مافهمته من الاخ ابو زاهر انه يرده مثل اخر مثال لك ولكن بهذا الشكل عندما يريد اختار الصنف يطلع في الاشهر جلب القيمه 1.rar

شكرا اخي وضاح وانا شاكر متابعتك كذلك جعفر

ولا يهمك في الواقع كنت اقدر اعمل استعلام واحد فقط qry_Absences_Sum ، بحيث في الوحدة النمطية استطيع ان اجعل مصدر البيانات من الجدول ، ولكني جعلت الاستعلام الذي انت عملته (استعلام تجميع دروس الغياب) ولكني اعطيته مسمى انجليزي ، qry_Absences ، هو مصدر البيانات ، والسبب هو انك قد تريد لاحقا ان تعمل تصفية للغياب ، بإستخدام التاريخ او بين تاريخين مثلا ، وبدلا ان ترجع للوحدة النمطية وتعمل تغيير عليها ، فكل الذي عليك عمله هو اضافة التاريخ وتصفيته في الاستعلام qry_Absences جعفر

وعليكم السلام جرب الملف اجمالي الربح-بالايام-بين تاريخين.rar

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

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

عذرا ، انا لا اعرف اي شيء ن قاعدة بياناتك ، فاذا اردت النظر فيها ، رجاء ارفاقها ، واخبارنا مكان المشكلة بالضبط جعفر

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

حسب فهمي وحسب ما قرأت ورأيت المواضيع يحدث المشكة عند استخدام كود الاعلاق النموذج او التقرير هكذا Docmd.Close بدون ان نکتب اسم النموذج او نكتب Me.Name مثلا اذا نعطي امر فتح نموذج مثلا وبعدين نكتب هذا الكود مثلا DoCmd.OpenForm "form1", acNormal DoCmd.Close سيتم فتح النموذج ونغلقه لان ذلك النموذج سيكون اكتيف والكود سيغلق النموذج الاكتيف لان ما نحدده اي ما كتبنا اسم النموذج المراد نغلقه هذا والله يعلم

تفضل 772.مسجل خطر.mdb.zip

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

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

الأخ الكريم عامر ياسر السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_احصائية حسب المواد الدراسية والشعب لصف دراسي واحد.rar

ربما كان المطلوب يمكنك تغيير مدى العلامات من خلال العامود Z منع المستخدم من كتابة رقم بشرط salim.rar

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

شاهد هذا الفديو