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

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

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

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

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

حياك الله همممم ، انت الوحيد الذي سألني عن هذا التسلسل كل سؤال أرد عليه في المنتدى وبه مرفق ، اجعله عندي في تسلسل وإذا تطلب الأمر تعديل جذري عليه، فيظل التسلسل + 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

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

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

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته أحبابى وأصدقائى : أعضاء منتدانا العريق أقدم لكم أحدث الإصدارات لشيت كنترول المرحلة الإعدادية لعام 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

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

تفضل أخي الملف بعد التعديل جدول الدروس.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

السلام عليكم جرب الكود التالي Sub tarheel() 'gr1 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون صف اول اخر العام").Range("a14:ca1000").ClearContents Sheets("راسبون صف اول اخر العام").Range("a14:ca1000").ClearContents Application.ScreenUpdating = False With Sheets("رصد اول اخر العام") x = 14: y = 14: For i = 14 To LR If .Cells(i, 77) = "ناجح" And .Cells(i, 2) <> "" Then .Range("F" & i).Resize(1, 74).Copy Sheets("ناجحون صف اول اخر العام").Range("D" & x).PasteSpecial xlPasteValues Sheets("ناجحون صف اول اخر العام").Range("A" & x) = x - 13 Sheets("ناجحون صف اول اخر العام").Range("b" & x) = .Range("b" & x) Sheets("ناجحون صف اول اخر العام").Range("C" & x) = .Range("C" & x) x = x + 1 ElseIf (.Cells(i, 77) = "راسب" Or .Cells(i, 77) = "غ" Or .Cells(i, 77) = "له دور ثانى") And .Cells(i, 2) <> "" Then .Range("f" & i).Resize(1, 74).Copy Sheets("راسبون صف اول اخر العام").Range("d" & y).PasteSpecial xlPasteValues Sheets("راسبون صف اول اخر العام").Range("A" & y) = y - 13 Sheets("راسبون صف اول اخر العام").Range("b" & y) = .Range("b" & y) Sheets("راسبون صف اول اخر العام").Range("C" & y) = .Range("C" & y) y = y + 1 End If Next Application.CutCopyMode = False Application.ScreenUpdating = True End With End Sub

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