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

السلام عليكم اساتذتى الافاضل سأشرح اليوم طريقتى فى تحزيم قاعدة البيانات لاعطائها للعملاء وذلك بعد مساهمة العديد من الاساتذة لاتمام الاكواد بالشكل الصحيح .. الطريقة هى تحزيم قاعدة البيانات بالوينرار ثم تحويلها ل Accde وذلك على جهاز العميل حتى نتلافى اخطاء اختلاف اصدارات الاوفيس والتى تؤدى الى عدم امكانية تشغيل القاعدة المحولة باصدار اخر من الاوفيس ... وفى النهاية يتم حذف قاعدة البيانات الاصلية Accdb و حذف برنامج التحويل وترك النسخة Accde فقط على جهاز العميل وعمل Shortcut لها على سطح المكتب تابع الشرح >>> قم بتحديد الملفات المطلوب ضغطها ثم اضغط كليك يمين واختار Add To Archive وتابع الخطوات وستجد الملف الناتج بشكل الايقونة التى تم اختيارها وبصيغة Exe وعند تشغيله سيقوم بالخطوات السابق شرحها من تحويل ثم حذف للملفات الزائدة مرفق مثال قم بفك الضغط عنه وشغل الملف الناتج ... و مرفق الاكواد المستخدمة دمتم بخير Ready.rar Source.rar

الله يخليك سريع ، لأني توني متعشي جعفر

اخترت أسلوبين لتحليل البيانات لشرحهما والمقارنة بنيهما، والأسلوبين هما التجميع 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 إذن التجميع لا يبدأ بتصنيفات محددة ولكنه يصل إلى الأصناف من خلال التجميع والتحليل، وطبعا في هذا المثال لم نصل إلى أي اكتشافات أو أنماط جديدة لأننا تطرقنا إلى موضوع مفهوم مسبقا وتصنيفاته معروفة، ولكن فائدة التجميع تظهر في تحليل البيانات غير محددة التصنيف. فعلى سبيل المثال لو توفرت لديك معلومات عن أعمار المتسوقين وأنواع المشروبات التي يشترونها، يمكنك تجميعها في مجموعات تحدد من خلالها إذا ما كان العمر يؤثر على اختيار المشروب، ونوعية المشروب المفضل لفئات عمرية محددة، وبالتالي يتم توجيه المواد الإعلانية للأشخاص طبقا لاختياراتهم المسبقة. دعونا الآن نتطرق إلى التصنيف، وسنستخدم نفس مثال المركبات، في هذه الحالة قبل أن تبدأ في تحليل البيانات ستسأل صديقك خبير المركبات عن الأصناف المختلفة للمركبات، وفي الغالب سيعطيك جدول بالأصناف المختلفة كما يلي: وستقوم بناء على هذه الجدول تصنيف المركبات إلى الأصناف الأربعة كما يوضح الرسم التالي: أو بمعني آخر العيب الرئيسي للتصنيف أنه قد يمنعك من اكتشاف علاقات جديدة بين البيانات أرجو أن أكون قد تمكنت من توضيح الفرق بين التجميع والتصنيف، والله ولي التوفيق دائما

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

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

هل جربت طريقتي؟

ت تغيير سطر واحد في الكود يقوم بهذا العمل Sub Select_areas() Dim mY_rg As Range Dim last_col% Set mY_rg = Range("a2").CurrentRegion mY_rg.Interior.ColorIndex = 0 last_col = Cells(ActiveCell.Row, Columns.Count).End(1).Column 'ActiveCell.Resize(, last_col).Interior.ColorIndex = 6 ActiveCell.Resize(, last_col).SpecialCells(xlCellTypeConstants, 23).Interior.ColorIndex = 6 End Sub '=================================================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False On Error Resume Next Dim rg As Range Set rg = Range("a2").CurrentRegion rg.Interior.ColorIndex = 0 If Target.Column <> 1 Or Target.Count > 1 Or Target = vbNullString Then GoTo 1 Select_areas 1: Application.EnableEvents = True On Error GoTo 0 End Sub

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

جرب هاي Private Sub Amountofservice_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" And Me.Amountofservice <> Nz(Me.Net, 0) Then MsgBox "Amountofservice يجب ان يساوي Net" Cancel = True End If End Sub Private Sub Payment_type_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" Then Me.Amountofservice = Nz(Me.Net, 0) End If End Sub جعفر 850.1.تجريي2.accdb.zip

افضل طريقة ان تضع مثل هذا الكود على حدث "قبل التحديث" للحقل الذي تريد فحصه. Private Sub tel_BeforeUpdate(Cancel As Integer) If Len(Me.tel & "") = 0 Then MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية" Cancel = True End If End Sub جعفر

اختي الفاضلة جربي هذا الملف (نموذج بسيط عما تريدينه) Select_data_by_columns.rar الكود فيما يعد لضعف النت الكود Sub Select_areas() Dim mY_rg As Range Dim last_col% Set mY_rg = Range("a2").CurrentRegion mY_rg.Interior.ColorIndex = 0 last_col = Cells(ActiveCell.Row, Columns.Count).End(1).Column ActiveCell.Resize(, last_col).Interior.ColorIndex = 6 End Sub '=================================================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False On Error Resume Next Dim rg As Range Set rg = Range("a2").CurrentRegion rg.Interior.ColorIndex = 0 If Target.Column <> 1 Or Target.Count > 1 Or Target = vbNullString Then GoTo 1 Select_areas 1: Application.EnableEvents = True On Error GoTo 0 End Sub '

اتفضل اليك هذا الخدعة لكي تقم بذلك Private Sub cmdenbld_Click() Me.Form.RecordSource = "" Me.id.ControlSource = "" Me.Fname.ControlSource = "" End Sub Private Sub cmdenbld1_Click() Me.Form.RecordSource = "SELECT Tabl_Emp.id, Tabl_Emp.Fname FROM Tabl_Emp; " Me.id.ControlSource = "id" Me.Fname.ControlSource = "fname" End Sub Private Sub Form_Load() Call cmdenbld1_Click End Sub enbld.rar

لقد قمت بحل المشكل لقد أضفت ملاحظتك صديقي على البرنامج exeبرنامج التحزيم.rar

تفضل . جعفر 850.تجريي2.accdb.zip

هذا السؤال نفس السؤال الاول وهناك حل لكن شوية صعبة عليك

التحكم الوحيد لهذا السطر ، يا موجود بالكامل ، ويا غير موجود بالكامل ، يعني يا ظاهر ، او مخفي يعني نفس الاجابات السابقة جعفر

تفضل هذا الكود ، ولكن يجب ان لا تضع الكود على هذا الحدث ، فهذا الحدث هو آخر حدث قبل الخروج من النموذج Private Sub Form_Close() If len(me.Text1 & "")=0 Then MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية" Exit Sub end if جعفر

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

اخي العزيز بارك الله فيك الكود غير واضح كما شايف لكن اذا تريد عدم الخرو ج استخدم DoCmd.GoToControl "اسم الحقل" Me.اسم الحقل.Undo بدل Exit Sub

اشكرك اخي العزيز كامة end if موجودة في الاخير ولاكن الشرط لا ينفذ اريد عند الخروج من المشروع لا يغلق النموذج اذا كان حقل الاسم فارغ ولاكن لا يعمل دخلت الكود في حدث عند الاغلاق

وعليكم السلام هاي مختصر المطلوب AppPath = Application.CurrentDb.Name AppName = Application.CurrentProject.Name AppExt = Mid(AppName, InStrRev(AppName, ".") + 1) MsgBox AppPath & vbTab & " اسم ومسار قاعدة البيانات " & vbCrLf & _ AppName & vbTab & " اسم قاعدة البيانات " & vbCrLf & _ AppExt & vbTab & " صيغة قاعدة البيانات " 'or MsgBox Application.CurrentDb.Name & vbCrLf & _ Application.CurrentProject.Name & vbCrLf & _ Mid(Application.CurrentProject.Name, InStrRev(Application.CurrentProject.Name, ".") + 1) جعفر

السلام على جميع الاخوة الافاضل اريد اضافة تعديل بسيط لقد قمت باضافة كومبوبوكس للفورم و قمت باضافة عدة صفحات للملف بنفس التنسيق لكن الاكواد الموجود بالملف تعمل مع صفحة واحدة فقط اليكم المرفق به المطلوب فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ.rar

استأذن من استاذنا ابو ادم اتفضل اليك هذا Private Sub cmdenbld_Click() ' للاخفاء Me.NavigationButtons = False End Sub Private Sub cmdenbld1_Click() ' للاظهار Me.NavigationButtons = True End Sub enbld.rar

جزاك الله كل خير الله يوفقك ياغالي

ممكن الحل هنا Example salim.rar

من وين لي اعرف هذا !! تفضل الكود الجديد Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'KeyCode = 17 vbKeyCtrl CTRL 'KeyCode = 33 vbKeyPageUp PAGE UP key 'KeyCode = 34 vbKeyPageDown PAGE DOWN key 'KeyCode = 107 vbKeyAdd PLUS SIGN (+) key 'KeyCode = 109 vbKeySubtract MINUS SIGN (-) key 'KeyCode = 38 vbKeyUp UP ARROW key 'KeyCode = 40 vbKeyDown DOWN ARROW key Dim intShiftDown As Integer, intAltDown As Integer Dim intCtrlDown As Integer ' Use bit masks to determine which key was pressed. intShiftDown = (Shift And acShiftMask) > 0 intAltDown = (Shift And acAltMask) > 0 intCtrlDown = (Shift And acCtrlMask) > 0 ' Display message telling user which key was pressed. 'If intShiftDown Then MsgBox "You pressed the SHIFT key." 'If intAltDown Then MsgBox "You pressed the ALT key." 'If intCtrlDown Then MsgBox "You pressed the CTRL key." If KeyCode = 107 Then '+minute 'PLUS SIGN (+) key tim = tim + (1 / 24 / 60) ElseIf KeyCode = 109 Then '-minute 'MINUS SIGN (-) key tim = tim - (1 / 24 / 60) ElseIf KeyCode = 33 Then '+hour 'PAGE UP key tim = tim + (1 / 24) '0.041666 ElseIf KeyCode = 34 Then '-hour 'PAGE DOWN key tim = tim - (1 / 24) '0.041666 ElseIf KeyCode = 33 And intCtrlDown Then '+day 'Ctrl + PAGE UP key tim = tim + 1 ElseIf KeyCode = 34 And intCtrlDown Then '-day 'Ctrl + PAGE DOWN key tim = tim - 1 End If End Sub جعفر 785.2.4.mdb.accdb.zip

تفضل استعلام الالحاق . والنموذج . وهذا هو الكود الزر Private Sub cmd_Copy_From_Click() If Len(Me.Date_From & "") = 0 Then MsgBox "رجاء تعبئة التاريخ - من" Me.Date_From.SetFocus Exit Sub ElseIf Len(Me.Date_From & "") = 0 Then MsgBox "رجاء تعبئة التاريخ - من" Me.Date_From.SetFocus End If DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Copy_From" DoCmd.SetWarnings True MsgBox "تم نسخ سجلات الشهر " & Me.Date_From & vbCrLf & _ "الى شهر " & Me.Date_To End Sub جعفر 847.تجريبي.accdb.zip

بعد اذنك اخي جعفر حبيت اشاركم الراي انا فهمت الاخ طاهر الوليدي انه يريد Me![com2] = Me![com1].Column(1) اخي طلال شوف المرفق لعله ما تقصده STOCK.rar

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'KeyCode = 17 vbKeyCtrl CTRL 'KeyCode = 33 vbKeyPageUp PAGE UP key 'KeyCode = 34 vbKeyPageDown PAGE DOWN key 'KeyCode = 107 vbKeyAdd PLUS SIGN (+) key 'KeyCode = 109 vbKeySubtract MINUS SIGN (-) key 'KeyCode = 38 vbKeyUp UP ARROW key 'KeyCode = 40 vbKeyDown DOWN ARROW key Dim intShiftDown As Integer, intAltDown As Integer Dim intCtrlDown As Integer ' Use bit masks to determine which key was pressed. intShiftDown = (Shift And acShiftMask) > 0 intAltDown = (Shift And acAltMask) > 0 intCtrlDown = (Shift And acCtrlMask) > 0 ' Display message telling user which key was pressed. 'If intShiftDown Then MsgBox "You pressed the SHIFT key." 'If intAltDown Then MsgBox "You pressed the ALT key." 'If intCtrlDown Then MsgBox "You pressed the CTRL key." If intCtrlDown Then If KeyCode = 107 Then tim = tim + 0.041666 ElseIf KeyCode = 109 Then tim = tim - 0.041666 'ElseIf KeyCode = 17 and 33 Then ElseIf KeyCode = 33 Then tim = tim + 1 'ElseIf KeyCode = 17 and 34 Then ElseIf KeyCode = 34 Then tim = tim - 1 End If End If End Sub . جعفر 785.1.4.mdb.accdb.zip

جرب هذا الملف Time_work.rar

السلام عليكم ورحمة الله من المفروض أن ترفق ملفا نعمل عليه حتى تكون النتيجة مطابقة لعملك... المهم قمت بتحضير ملف حسب فهمي للمسألة (في غياب ملف مرفق) وضعت فيه معادلة ربما تكون حلا لمسألتك... بن علية حاجي تغيير التنسيق H 1149 إلى التنسيق ساعات ودقائق.rar

السلام عليكم أخي الكريم سليم، أرى أن المعادلة في الخلية M4 (عدد الأيام المشتركة بين العاملين) بها خلل، مثلا لو قمت بتغيير تاريخ البداية للعامل "جميل" إلى 25/12/2016 فالمعادلة تعطي 27 يوم والصحيح هو 20 يوم (وهي كل أيام عمل الموظف "شادي" من 01/01/2017 إلى 20/01/2017) ولتصحيح هذا الخلل أقترح عليك المعادلة التالية: =MIN($D$3:$D$4)-MAX($C$3:$C$4)+1 أخوك بن علية حاجي

السلام عليكم برنامج مخازن مجرب ومباع في الكويت لكبرى الشركات والمؤسسات به كل ما يتمناه اي مسئول مخزن سهل الاستخدام قوي النتائج ملحوظة : كلمة المرور في البرنامج هي 1234 ملحوظة : لاضافة اي معلومة داخل اي صندوق فقط النقر مرتين بالماوس علي الصندوق لفتح شاشة الادخال الخاصة به وبعدها تجد ما اضفته موجود بالصندوق ملحوظة : البرنامج مصمم علي اكسيس 97 وانا في الطريق لعمل نسخة لباقي اصدارات الاكسيس ارجو ان يفيدكم ولا تنسونا بالدعاء اخوكم علي عبد الحميد - الكويت Str.zip