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

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

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

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

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

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

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

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

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

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

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

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

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

تفضل أخي الملف بعد التعديل جدول الدروس.rar

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

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

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

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

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

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

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

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

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

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

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

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

لا اعلم اذا كنت تضغط على الازرار بشكل صحيح او لا 1- مستعملاً اصبعين من اليد اليسار اضغط بشكل مستمر على مفتاحي Ctrl و Shift 2-باليد اليمين اضغط على المفتاح Enter نقرة واحدة ثم حرر مفتاحي Ctrl و Shift للاسف لا توجد معادلة عادية (غير الصفيف) والله أعلم

انسخ هذه المعادلة الى الخلية AE8 (لنتفيذها اضغط Ctrl+Shift+Enter ولبس Enter وحدها) و اسحب يساراً ثم يميناً (المعادلة لا تعطي نتيجة الا اذا كان كل الصف بحنوي على بيانات) =IF(COUNTA($B8:$AD8)=29,INDEX($AN$9:$AN$25,SMALL(IF(ISNA(MATCH($AN$9:$AN$25,$C8:$AD8,0)),ROW($AN$9:$AN$25)-ROW($AN$9)+1,""),COLUMNS($A$1:A1))),"") تفضل الملف جاهز وتحت الطلب فرز المعلمين الشواغر salim.rar

الأخ الكريم عامر ياسر السلام عليكم جرب المرفق التالى لعلة يفى بالغرض 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

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