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

أضف هذين السطرين Rpt.FillColor = RGB(255, 0, 0) 'backColor red. Rpt.FillStyle = 0 بعد سطر إنشاء الدائرة الذي يبدأبـ Rpt.Circle (mmm, ttt), nnn \ 3, vbRed, وفقنا الله جميعا لكل ما يحب ويرضى

تفضل Private Sub choose_Click() On Error Resume Next DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Qchoo SET Qchoo.Choose = No;" DoCmd.RunCommand acCmdRefreshData Me.choose.Requery End Sub والشــكر للاستاذ الفاضل Shivan

أيضا السماح بالإضافة = لا

اخترت أسلوبين لتحليل البيانات لشرحهما والمقارنة بنيهما، والأسلوبين هما التجميع Clustering والتصنيف Classification، والسبب لاختياري هذين الأسلوبين أنني كنت محتار تماما في الفرق بينهما، وبالتالي قرأت عنهما الكثير وتوصلت لفهم بسيط لكل منهما والفرق الأساسي بينهما، ولكي أشرحهما سأقوم باستعراض مثال بسيط معكم. تخيل أنك لا تعرف شيء عن المركبات أو السيارات، وتم إعطائك مجموعة كبيرة من البيانات Big Data عن المركبات التي تسير في شوارع مدينتك، وكانت هذه البيانات في صورة جدول يتضمن سعة المحرك باللتر، والزمن الذي تستغرقه المركبة للوصول إلى سرعة 100 كيلومتر/الساعة بالثانية، كما يوضح الرسم البياني أدناه تذكر أنك لا تعرف شيء عن المركبات، ولا تستطيع أن تحدد نوع المركبة، أو حجمها من البيانات المتاحة، ولكن مطلوب منك تحليل البيانات ومحاولة إيجاد علاقات منطقية بينها. هل تستخدم التجميع Clustering أم التصنيف Classification ؟ من المنطقي في هذه الحالة ألا تحاول استخدام التصنيف، فأنت لا تعرف الأصناف الموجودة ومواصفات كل منها، وهذه هي نفس المشكلة التي سيواجهها جهاز الحاسب الآلي الذي يستطيع معالجة البيانات بسرعة ولكن ليس لديه فهم مسبق عن ماهية البيانات. وبالتالي يصبح حتميا استخدام التجميع Clustering، وهو عبارة عن تجميع البيانات القريبة من بعضها البعض في مجموعة واحدة Cluster، وإيجاد المتوسط الحسابي لها بحيث تكون النقاط المشمولة في المجموعة أقرب للمتوسط الحسابي للمجموعة الخاصة بها من المتوسط الحسابي لأي مجموعة أخرى، كما يوضح الشكل أدناه. والسؤال الآن، ما الذي استفدناه من هذا التجميع؟ دعونا أولا نسجل بعض الملاحظات عن المجموعات الأربعة التي ظهرت لدينا: - المجموعة 1 تتضمن أكبر عدد من النقاط وتتميز بانخفاض سعة المحرك وارتفاع زمن الوصول إلى 100 كيلومتر/الساعة (أي انخفاض القدرة على التسارع) - المجموعة 2 تتضمن تقريبا أقل عدد من النقاط وتتميز بارتفاع سعة المحرك وانخفاض زمن الوصول إلى 100 كيلومتر/الساعة (أي ارتفاع القدرة على التسارع) - المجموعة 3 تتضمن عدد قليل من النقاط وتتميز بانخفاض سعة المحرك وانخفاض زمن الوصول إلى 100 كيلومتر/الساعة (أي ارتفاع القدرة على التسارع) - المجموعة 4 تتضمن عدد متوسط من النقاط وتتميز بارتفاع سعة المحرك وارتفاع زمن الوصول إلى 100 كيلومتر/الساعة (أي انخفاض القدرة على التسارع) دعونا نقوم بتحليل هذه النتائج من وجهة النظر المنطقية: نفترض الآن أنك تريد أن تفهم أسباب منطقية وعدم منطقية النتائج، طبعا ستلجأ لصديق يفهم جيدا في أنواع المركبات وأصنافها، وسيكون رده في الغالب كما يلي: · المجموعة 1 ذات سعة المحرك المنخفضة والتسارع المنخفض هي السيارات العادية Passenger Vehicles · المجموعة 2 ذات سعة المحرك المرتفعة والتسارع المرتفع هي السيارات الرياضية Sports Cars · المجموعة 3 ذات سعة المحرك المنخفضة والتسارع المرتفعة هي الدراجات النارية Motor Cycles · المجموعة 4 ذات سعة المحرك المرتفعة والتسارع المنخفض هي الشاحنات Trucks إذن التجميع لا يبدأ بتصنيفات محددة ولكنه يصل إلى الأصناف من خلال التجميع والتحليل، وطبعا في هذا المثال لم نصل إلى أي اكتشافات أو أنماط جديدة لأننا تطرقنا إلى موضوع مفهوم مسبقا وتصنيفاته معروفة، ولكن فائدة التجميع تظهر في تحليل البيانات غير محددة التصنيف. فعلى سبيل المثال لو توفرت لديك معلومات عن أعمار المتسوقين وأنواع المشروبات التي يشترونها، يمكنك تجميعها في مجموعات تحدد من خلالها إذا ما كان العمر يؤثر على اختيار المشروب، ونوعية المشروب المفضل لفئات عمرية محددة، وبالتالي يتم توجيه المواد الإعلانية للأشخاص طبقا لاختياراتهم المسبقة. دعونا الآن نتطرق إلى التصنيف، وسنستخدم نفس مثال المركبات، في هذه الحالة قبل أن تبدأ في تحليل البيانات ستسأل صديقك خبير المركبات عن الأصناف المختلفة للمركبات، وفي الغالب سيعطيك جدول بالأصناف المختلفة كما يلي: وستقوم بناء على هذه الجدول تصنيف المركبات إلى الأصناف الأربعة كما يوضح الرسم التالي: أو بمعني آخر العيب الرئيسي للتصنيف أنه قد يمنعك من اكتشاف علاقات جديدة بين البيانات أرجو أن أكون قد تمكنت من توضيح الفرق بين التجميع والتصنيف، والله ولي التوفيق دائما

السادة الأفاضل إخوانى وأحبائى الأعزاء أعضاء المنتدى الكرام أتقدم لكم اليوم بمجموعة أكواد مرفقة بأمثلة للفائدة أسألكم الدعاء أولا : كود لعمل ListBox . ثانيا : كود لتحويل صفحة الإكسيل بما فيها إلى بور يوينت . ثالثا : : كود كتابة نص داخل جدول وقرائته داخل جدول أخر . ListBox.rar ExportTo PowerPoint.rar Writing to Text File and Reading From Text File.rar

السلام عليكم قد شاركت سابقا في موضوع مشابه ولم أجد رابطه حيث قمت بوضع معادلة (حصلت عليها من النت) تقوم بما تريده وقد تم تطبيقها على ملفك بعد تعديل على إحداثيات نقاط البداية والوصول (باعتبار أن القيم كانت قيما نصية)... أرجو أن تفي الغرض المطلوب.... بن علية حاجي New.xlsx

وعليكم السلام اخي تقصد إجراء نسخة احتياطية دائما عند الخروج من القاعدة ام كيف ؟ up1.rar

بعد الانتهاء ان شاء الله

من الصورة رقم 1 لاحظت وجود نقطتين في اسم قاعدة البيانات قد يكون هو السبب والا فاني ارجح ما ذكره الاستاذ عبدالله بأن اوفيس هو السبب

نفس المشكلة صادفتني مع برنامج زوار عملته لاحد الاصدقاء ولاحظت ان المشكلة بدأت في الظهور بعد تحديث الاوفيس الى ٢٠١٣ و ٢٠١٦ ان شاء الله نجد حل لهذه المشكلة

لانك قمت بإضافة حقل جديد (اختيار) لذلك عند الضغط على الخيار لا يظهر مصدره فتصبح غير مفعلة لابد من اضافته في مصدر البيانات â�«chooseAll_3.rar

آمل ارفاق البرنامج كاملا بعد الانتهاء منه

وذلك بأن تقوم بتغيير اسم الخلية الموجودة فى كود الصفحة المشار اليها فى الصورة المرسلة لك الى الخلية التى تريدها جزاك الله كل خير

لك أـستاذى فضل السبق فى هذه الوظيفة لكن أعتقد أنها تكون هكذا Public Function WorkDayCalc(StartDate, EndDate) As Integer Dim WTotalDays As Integer Dim WSaturdays As Integer Dim WFridays As Integer WorkDayCalc = 0 If IsDate(StartDate) And IsDate(EndDate) Then If EndDate <= StartDate Then WorkDayCalc = 0 Else ' عدد الأيام بين التاريخين WTotalDays = DateDiff("d", StartDate, EndDate) + 1 ' عدد الأسابيع بداية من السبت WSaturdays = DateDiff("ww", StartDate, EndDate, 7) ' عدد الأسابيع بداية من الجمعة WFridays = DateDiff("ww", StartDate, EndDate, 6) WorkDayCalc = WTotalDays - WSaturdays - WFridays End If Debug.Print WFridays & " - " & WSaturdays & " - " & WTotalDays & " - " & WorkDayCalc End If

أهلا بك اخ كريم فى المنتدى تفضل لك ما طلبت sum k9 numbers.xls

طبعا تستطيع جرب وعاين جرب وعاين الى ان تصل الى التقرير الذي تريد طباعته بشكل جميل ومناسب تفضل : up_ بكشف الحساب00.rar

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

من الخصائص: قم بتحديد الحقول: من الخصائص اختر بيانات واجعلها : ممكن: لا تم تأمينه: نعم

بالتوفيق اخي الكريم نحن دائما في الخدمة بما يسمح لنا الوقت :: تحياتي

شكراً اخ ابو زاهر . المشكلة كانت في ان الكود لو تم عمل التحديث من خلال حقول في النموذج غير منضمة سيتوقف عن عمل الدورة الكاملة في السجل , لذا قمت بتعديل بعض الامور ولاستغناء عن الحقول في النموذج وعمل التحديث عن طريق الكود . حاليا يقوم بتحديث حقلين بنفس السجل الكمية والسعر حسب متوسط السعر المرجح ويعمل بشكل جديد لو كان هناك اكثر من كود في النموذج وهذا شكل الكود النهائي . شكرا لك وشكرا للاخ الذي عمل الكود في المنشور الذي وضعته في التعليق نسئل الله ان يجعلة في ميزان حسناتكم. On Error GoTo enderr DoCmd.SetWarnings False 'النموذج Set Rs = Forms![form1]![F_ReceiptDetails].Form.RecordsetClone 'الجدول للتحري Set RsEdit = CurrentDb.OpenRecordset("T_items") Rs.MoveFirst 'دوران Do While Not Rs.EOF RsEdit.MoveFirst 'دوران للجدول Do Until RsEdit.EOF 'اذا وجد السجل If RsEdit!ID = Rs!IDIt Then 'تحرير RsEdit.Edit RsEdit!Stok = RsEdit!Stok + Rs!Quantity RsEdit!AmountRe = ((RsEdit!Stok - Rs!Quantity) * (RsEdit!AmountRe) + (Rs!Amount * Rs!Quantity)) / RsEdit!Stok RsEdit.Update End If RsEdit.MoveNext Loop Rs.MoveNext Loop Set Rs = Nothing Set RsEdit = Nothing DoCmd.SetWarnings True MsgBox " تم تحديث البينات ", vbInformation, "تم " Exit Sub enderr: MsgBox " لم يتم تحديث البيانات ", vbInformation, "لم يتم التعديل" DoCmd.SetWarnings True

شكرا لك

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

وعليكم السلام ورحمة الله وبركاته تفضل: up_0.rar

السلام عليكم ورحمة الله استخدم هذا الكود Sub SaveFile() Dim fname As String Dim path As String fname = Range("A1").Value path = Application.ActiveWorkbook.path If True Then Application.ActiveWorkbook.SaveAs Filename:=path & "\" & fname, _ FileFormat:=xlOpenXMLWorkbook , CreateBackup:=False End If End Sub

وعليكم السلام ورحمة الله وبركاته استخدم هذا الكود عند النقر المزدوج: 'With CodeContextObject ' DoCmd.OpenForm "22tblm", acNormal, "", "[المعرف]=" & .المعرف, acEdit, acDialog DoCmd.OpenForm "22tblm", acNormal, , "[المعرف]= " & Forms![برنامج الفروع و المؤسسات].tblm1.Form("[المعرف]") & "", acFormEdit ' End With طبعاً: احذف الكود القديم لديك بعد ذلك: اذهب الى النموذج 22tblm وغير في خصائصه كالتالي: دورة: السجل الحالي طريقة العرض الافتراضية: نموذج مفرد ولو أحببت اجعل منبثق : نعم شكلي او مشروط: نعم ::: ملاحظة: لم افهم ما المغزى من زر الحذف في النموذج 22tblm برنامج المجالس الخاص بك

أضف طلبك في موضوع جديد ليتمكن أحد الاخوة أصحاب الخبرات من مساعدتك

محتاج اعرف اي شكل الخطاب الي انت عاوز تعمله ارتباط تشعبي دا خطاب متاخد سكان ولا خطاب انت بتكتبه علي حاجة تانية زي الورد مثلا؟

تفضل: تم إعادة ضبط العلاقات في النماذج والتقارير بشكل صحيح تم إضافة اكواد للمعاينة والطباعة والفتح حسب الحاجة مع إزالة كل الماكرو المستخدم، لانني لا اعرف كيف يستخدم الماكرو هكذا يعمل الان: 1- عند فتح البرنامج : يفتح على الشاشة الرئيسية في وضع جديد 2- يجب اختيار سجل موجود قبل الضغط على قائمة التحاليل 1 او 2 3- الطباعة والمعاينة تتم للسجل الظاهر على الشاشة :: جرب ووافني بالنتيجة برنامج التحاليل 2020

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

لا تنزعج اخي الكريم انت من يصعب على نفسك المسألة عندما تطرح اكثر من سؤال وطلب في موضوع واحد ثانيا بدل من ان تضع مرفق للتطبيق تضع مستند txt وتقول هذا الكود طيب حصلنا على الكود اين سنقوم بالتطبيق عليه ام تريد من سيقوم بالمساعدة ينشأ قاعدة بيانات من جداول ونماذج وحقول وبقية الكائنات ليطبق عليها كم سيأخذ هذا من الوقت واغلب الاعضاء هنا يدخلون فترة فراغهم ويساعدون بما يستطيعون ارجو ان تأخذ كلامي على وجه التوجيه ::بالتوفيق::

السلام عليكم ورحمة الله اخى الكريم اليك شرح الكود و الله الموفق و المستعان ' وقف اهتزاز الشاشة اثناء تنفيذ الماكرو Application.ScreenUpdating = False ' تعريف الورقة الهدف Set ws = Sheets("الاخلاء") ' التعريف بورقة المصدر Set Sh = Sheets("المدرسين") ' طول البيانات فى ورقة المصر ( آخر صف ) LR = Sh.Range("C" & Rows.Count).End(xlUp).Row ' رقم الكشف المراد استدعاؤه z = ws.Range("O2").Value ' اهم نقطة فى الكود تم البدء برقم سالب حتى نتمكن من البدء يالصف الثامن j = -4 ' لتحديد اول رقم يتم جلبه x = (z - 1) * 4 + 1 ' تحديد آخر رقم يتم جلبه y = z * 4 ' حلقة تكرارية تبدأ من الصف الرابع للبيانات التى سوف يتم جلبها For i = 4 To LR ' شرط استدعاء البيانات بالارقام المحصورة بينها If Sh.Cells(i, "B") >= x And Sh.Cells(i, "B") <= y Then ' تسلسل البيانات المستدعاة بورقة الهدف j = j + 12 ' تسكين البيانات فى المواضع المطلوبة ws.Cells(j, "E") = Sh.Cells(i, "D") ws.Cells(j, "J") = Sh.Cells(i, "C") ws.Cells(j + 1, "E") = Sh.Cells(i, "E") End If Next i ' اعادة خاصية اهتزازات الشاشة Application.ScreenUpdating = True

نعم يمكن في حدث عداد الوقت تكتب كود الاغلاق واضبط زمن العداد في الخصائص حسب الوقت المحدد 1000= ثانية