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

برنامج بسيط لاستخراج التوائم والاخوة من بين الطلاب المقيدين والجدد بالمدرسة برنامج الاخوة والتوائم.rar

جرب هذا الماكرو لعله يفيدك Sub ActivateWordTransferData() 'تحديد المدى كما في ورقة الاكسيل مع مراعاة اسم الورقة Worksheets("Sheet1").Range("c1:g200").Copy Dim wdapp As Object, wddoc As Object Dim strdocname As String On Error Resume Next Set wdapp = GetObject(, "Word.Application") If Err.Number = 429 Then Err.Clear Set wdapp = CreateObject("Word.Application") End If wdapp.Visible = True 'مكان ملف الوورد في الدرايف strdocname = "C:\Users\alhagag\Desktop\ww.docx" If Dir(strdocname) = "" Then MsgBox "The file " & strdocname & vbCrLf & "was not found " & vbCrLf & "C:\ww\.", vbExclamation, "The document does not exist." Exit Sub End If wdapp.Activate Set wddoc = wdapp.Documents(strdocname) If wddoc Is Nothing Then Set wddoc = wdapp.Documents.Open(strdocname) wddoc.Activate wddoc.Range.Paste wddoc.Save wdapp.Quit Set wddoc = Nothing Set wdapp = Nothing Application.CutCopyMode = False End Sub

وعليكم السلام 🙂 عملت تغيير في الاستعلام pv ، واسم وطريقة عمل النموذج الفرعي ، واستدعائه ، فرجاء تلقي نظرة عليه كذلك ، حتى يتماشى مع برنامجك : . والنتيجة . جعفر 1397.New Microsoft Access Database.accdb.zip

جرب هذا NewData23333333.zip

هذا كود Call listeemp("Q1") Me.Requery CMBFIND.Requery cmbTYPEJ.Requery cmbtype.Requery أريد كود يعمل بإلغاء فلترة البيانات في النموذج

ماهو شرط يكون المشروع خسران احيان يكون الانفاق اكبر لاسباب خارجة عن الارادة حيث تنص لائحة المنافسات على الاتي مع الاخذ في الاعتبار ان لكل بلد انظمته لا يجوز تعديل أسعار العقود أو الاتفاقيات الإطارية بالزيادة أو النقص إلا في الحالات الآتية: تغير أسعار المواد أو الخدمات الرئيسة الداخلة في بنود المنافسة والتي تحددها اللائحة. تعديل التعرفة الجمركية أو الرسوم أو الضرائب. إذا حصلت أثناء تنفيذ العقد صعوبات مادية لم يكن بالإمكان توقعها. بالنسبة لصاحب الموضوع يمكن وضع الشرط على النحو التالي IIf([x]-[z]<0;0;[x]-[z]) x=مبلغ الانفاق الفعلي z=المبلغ الكلي للمشروع اذا كان مبلغ الانفاق الفعلي - المبلغ الكلي للمشروع اصغر من 0 يكون الناتج 0 او ضع المبلغ الناتج

تقريبا جميع الكمبيوترات الآن تعمل على الاكسس 2007 فأكثر ، وهذه الرسالة ستظهر كل مرة تفتح البرنامج في مجلد غير موثوق به ، او جعفر

وعليكم السلام 🙂 جعفر

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

اخي وحيدي ، ياريت تنظر في جميع ملاحظات اخوي خالد ، الذي اخذ الوقت ووضح لك تفاصيل مخفية من البرنامج 🙂 اخوي خالد ، شكرا جزيلا على هذه المداخلات ، دائما ممتعه ومليانه معلومات 🙂 وعلى طاري التيمم ، كنت مفكر استعمل استعلام Crosstab ، بس غيّرت رأيي 😁 جعفر

السلام عليكم قالت العرب إذا حضر الماء بطل التيمم وطالما استاذنا @jjafferr في الموضوع سنقف في الصف ونتعلم مداخلتي هنا تتعلق بطريق العمل في انشاء القاعدة المرفقة حيث ان كافة المعلومات في جدول واحد وهذا الامر مخالف لمفهوم قواعد البيانات العلائقية اي التي تتكون من مجموعة من الجداول والمرتبطة بعلاقة قد تكون راس باطراف او راس براس او اطراف باطراف وفي المثال المرفق ادى استخدام جدول واحد الى تكرار اسماء الطلاب بعدد السنوات الدراسية حيث ان الطالب احمد طلعت احمد داود لديه خمسة سجلات وكذلك بقية الطلاب تتكرر سجلاتهم وفقا لعدد سنوات الدراسة ايضا للطالب نفسه 5 ارقام بينما الصحيح ان يكون للطالب رقم واحد فقط كمعرف فريد امكانية كتابة اسم الطالب بشكل غير صحيح مثل الطالب ( ابراهيم احمد يوسف السيد احمد ) و ( ابراهيم احمد يوسف " السيد احمد ") وايضا الطالب ( ابراهيم جابر محمود السيد ) والطالب ابراهيم حسن ابراهيم جاد الله مكتوبه باكثر من طريقة وربما غيرهم وعند البحث او التصفية سنجد نتائج غير صحيحة عدد السجلات في الجدول لا يعطي نتيجة صحيحة بسبب التكرار حيث يبلغ عدد السجلات 7817 طالب بينما العدد 3009 طالب وهو تقريبي بسبب وجود اختلاف في طريقة كتابة الاسماء الجدول لا يحتوي على مفتاح اساسى هذا الرد ليس انتقاد للعمل وانما ملاحظات الهدف منها تعليمي بحت ولتلافي مشكلات مستقبليه هنا نصائح مفيد 👇 للاستاذ الفاضل ازهر عبد العزيز وهنا شرح للعلاقات لاستاذنا الفاضل @أحمد الحربي مع تمنياتي لك بالتوفيق

تفضل اخي..جرب التعديل Test_It.rar

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

احسنتم اخى الحبيب وجزاكم الله خير وجعله الله فى ميزان حسناتك

شكر لك استاذ محمد فتحى

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

أهلا بك.. من الواضح أنه ليس لك دراية بقواعد البيانات! عند إضافة جداول لكتب جديدة احرص أن تكون مثل الجداول الموجودة النافذة الرئيسية بها ثلاث خيارات .. نافذة التخريجات: يمكنك هنا إضافة كتاب للتخريجة (رقم الكتاب ورقم الحديث).. لايمكنك التحديث منهنا! التعديل عن طريق ضغط الزر الخيارات الأخري أتحدث عنها فيما بعد MusndWZwayid 10.accdb

اخي الفاضل @AliAli47 انت صاحب السؤال ، ولم نسمع منك، اذا اشتغلت عندك الصورة المتحركة !! جعفر

محرر الاكواد والصفحات رقم سرى 6101970

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

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

برنامج رائع وجميل ممكن الرقم السرى بمحرر الاكواد حتى يتم الاستفادة التامة من الشيت

تفضل هذا خط الباركود يحول اي نص الى باركود يستطيع اي قارئ براكود قرائته مثل هذا qr_font_tfb.zip

جرب هذا التعديل NewData2222.zip

تفضل يا سيدي 🙂 . وهذا الجزء من الكود الذي تم تعديله: Me.FilterOn = True Me.Filter = "[yer] = " & MyYear & " and [num] ='" & MyNumnf & "' and [nu] ='" & MyMntj & "' and [NameEmb] ='" & MyMonth & "' and [jh] ='" & MyNoa & "'" ' يتم حساب عدد الحقول التي بها أرقام For i = 1 To 74 fld_value = DSum("fld" & i, "tbl", "[yer] = " & MyYear & " and [num] ='" & MyNumnf & "' and [nu] ='" & MyMntj & "' and [NameEmb] ='" & MyMonth & "' and [jh] ='" & MyNoa & "'") If fld_value > 0 Then 'Debug.Print fld_value 'If DSum("fld" & i, "tbl", "[Name1]='" & Myfilter & "'") > 0 Then flCnt = 1 + flCnt 'إظهار الحقول غير الفارغة Me("fld" & i & "").visible = True Me("lbl" & i & "").visible = True Me("s" & i & "").visible = True ' حساب عرض كل حقل Me("fld" & i & "").Width = Len(CStr(fld_value)) * 145.5 Me("LBL" & i & "").Width = Len(CStr(fld_value)) * 145.5 Me("s" & i & "").Width = Len(CStr(fld_value)) * 145.5 End If Next i If flCnt = 0 Then MsgBox "لا توجد حقول بها قيمة", , "خطأ" DoCmd.CancelEvent Exit Sub End If ' حساب عرض كل حقل 'For i = 1 To 74 'Me("fld" & i & "").Width = Me.Name1.Left / flCnt 'Me("LBL" & i & "").Width = Me.Name1.Left / flCnt 'Me("s" & i & "").Width = Me.Name1.Left / flCnt 'Next i ' إعادة توزيع الحقول غير الفارغة For i = 74 To 1 Step -1 Me("fld" & i & "").Left = WidthFld Me("lbl" & i & "").Left = WidthFld Me("s" & i & "").Left = WidthFld If Me("fld" & i & "").visible Then 'WidthFld = Me("fld" & i & "").Width + WidthFld WidthFld = Me("s" & i & "").Width + WidthFld End If Next i جعفر مطابقة موجودات2.zip

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

بعد التجربة على الملف المرفق من الأستاذ حسين تبين لي ما يلي: مشكلة الكود الموجود في المشاركة رقم 1 هو وجود مسافة بعد ok في الشرط رغم أنها تكتب بدون مسافة في الكود And Cells(a, 14) <> "ok " Then بالإضافة إلى عدم وضع جميع شروط or بين قوسين لأنها جميعا تمثل حالة واحدة من and وهذه النقطة هي مشكلة الكود الموجود في المشاركة هذه وبعد فهمي للمطلوب عمليا يمكن تعديل الكود للتالي: Sub recp_fill2() Application.ScreenUpdating = False For I = 5 To [a10000].End(xlUp).Row If Cells(I, 14) <> Cells(I, 13) And Left(Cells(I, 13), 6) = "recept" Then With Sheets("recept") .Cells(4, 2) = Cells(I, 2) .Cells(6, 2) = Cells(I, 5) .Cells(7, 2) = Cells(I, 6) .Cells(8, 2) = Cells(I, 8) .Cells(21, 2) = Cells(I, 13) End With Cells(I, 14) = Cells(I, 13) Exit For End If Next I Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" Range("b6").Select End Sub مشكلتنا فعلا هي عدم القدرة على تحديد وتوصيل المطلوب بطريقة صحيحة بالتوفيق

بعد ادن استاد محمد صلاح واتراء للموضوع .. جرب هذا الكود Option Explicit Sub RCT() Dim Ws As Worksheet Dim Ws2 As Worksheet Dim lr1, lr2 Dim x, y Dim arr Set Ws = Sheets("po_rec") Set Ws2 = Sheets("recept") Application.ScreenUpdating = False With Ws lr1 = .Cells(Rows.Count, 1).End(3).Row arr = Array("recept1", "recept2", "recept3", "recept4", "recept5", "recept6") For x = 5 To lr1 For Each y In arr If .Cells(x, 14).Text = "ok" Then GoTo 1 If .Cells(x, 13).Text = y Then Ws2.Cells(3, 2).Value = .Cells(x, 1) Ws2.Cells(4, 2).Value = .Cells(x, 2) Ws2.Cells(5, 2).Value = .Cells(x, 3) Ws2.Cells(6, 2).Value = .Cells(x, 5) Ws2.Cells(7, 2).Value = .Cells(x, 6) Ws2.Cells(8, 2).Value = .Cells(x, 8) Ws2.Cells(21, 2).Value = .Cells(x, 13) .Cells(x, 14) = "ok": GoTo 1 If y = "recept6" Then Exit Sub End If Next y 1: Next x End With Application.ScreenUpdating = True End Sub الملف refill.xlsm

نعم ممكن ، وبهذه الصورة : جعفر AniGIF.zip

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

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

شكرا جزيلا يا أستاذ