كل الانشطه

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد توصيات بحث التخرج وصياغتها بأسلوب علمي رصين يعكس نتائج الدراسة بدقة، نُساعد الباحثين على فهم كيفية كتابة التوصيات في البحث بحيث تكون منبثقة مباشرة من النتائج، وقابلة للتطبيق، ومتوافقة مع المعايير الجامعية، كما نوفر التوثيق من خلال نظام APA مكتوبًا بطريقة أكاديمية واضحة يُسترشد به في إعداد البحث، بما يُسهم في رفع جودة البحث وزيادة فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في التحليل الإحصائي لرسائل الماجستير والدكتوراه وفق منهجية علمية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على فهم كيفية عمل الإحصاء لرسالة الماجستير بدءًا من إعداد البيانات واختيار الأساليب الإحصائية المناسبة، وصولًا إلى تفسير النتائج وكتابتها أكاديميًا، كما نوفر تنفيذ أهم طرق التحليل العاملي لاستخدام الاختبارات المتقدمة وتحليل البيانات بدقة عالية، بما يُسهم في رفع جودة الرسالة العلمية وزيادة فرص قبولها وتميّزها الأكاديمي.

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

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة لدعم الباحثين في مرحلة النتائج وفق منهجية علمية دقيقة، نُساعد الباحثين على كيفية عرض وتحليل نتائج البحث بأسلوب أكاديمي منظم يعتمد على الجداول والأشكال والتفسير الإحصائي السليم، كما نوفر دعمًا احترافيًا في مناقشة النتائج في البحث العلمي؛ من خلال ربط النتائج بالإطار النظري والدراسات السابقة وبيان دلالاتها العلمية، ونُقدّم إرشادًا أكاديميًا دقيقًا في استخلاص النتائج في البحث العلمي بصورة منهجية تعكس أهداف الدراسة وتسهم في رفع جودة البحث وزيادة فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في التحليل الإحصائي ومناقشة النتائج وفق منهجية علمية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على فهم كيف تقوم بعرض ومناقشة نتائج البحث بأسلوب أكاديمي واضح يربط النتائج بالإطار النظري والدراسات السابقة، كما نوفر دعمًا احترافيًا في مناقشة النتائج وتفسيرها؛ من خلال تحليل الدلالات الإحصائية وبيان أبعادها العلمية والتطبيقية، بما يُسهم في رفع جودة البحث أو الرسالة العلمية وزيادة فرص قبولها وتميّزها الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في تحليل إحصائي بالإنجليزية بصياغة علمية احترافية تتوافق مع متطلبات الجامعات والمجلات العلمية الدولية، كما نوفر خدمة عمل إحصاء الرسائل الجامعية (ماجستير ودكتوراه) وفق منهجية دقيقة تشمل إعداد البيانات، اختيار الاختبارات المناسبة، وتفسير النتائج أكاديميًا، وإذا كنت تبحث عن محلل إحصائي محترف، يضم فريق مكتبتك – شبكة المعلومات العربية خبراء متخصصين في التحليل الإحصائي وتقديم الدعم العلمي المتكامل، بما يُسهم في رفع جودة البحث وزيادة فرص قبوله وتميّزه الأكاديمي.

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

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

اي مرفق تقصد استاذ لكي اطلع عليه

معلمى الفاضل شكرا لا بداعك منقطع النظير لى 3 طلبات اخبرة Case 102 Me.Refresh sPDF = sFolder & "\Report_" & Me.PCode & "_" & _ Format(Date, "yyyy-mm-dd") & ".pdf" DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "[PCode]=" & Me.PCode, , _ sSubReport DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False DoCmd.Close acReport, "Y_N_Report" 1_تعديل الكود دة بحيث يتم تصدير التقرير باسم المريض تم التاريخ مثال الاسم ثم التاريخ بدون كلمة Report 21/1/2026 _ احمد محمد على 2_كما ارجو فتح التقارير فى وضع مختفى 3_وفتح التقرير كPDF بعد التصدير

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

دمج المراسلات بطريقة (Bookmarks) غير موثوقة . يفضل استخدام طريقة (Content Controls) . لو حابب . الشرح + المرفق الاول معدل بها . وافني بالرد .

وعليكم السلام والرحمة استاذنا الفاضل @foksh ممتنه جداً منك على مساعدتي في حل سؤالي ،،، ولكن عند تجريبي لنسخة الملف بعد التعديل الذي اجريته حضرتك لاحظت انه عند فتح نموذج الدورات او الاجازات الخاصة بموظف معين في البداية فعلا يتم ربط (الرقم التعريفي والاسم ) تلقائياً ولكن عند فتح سجل اخر لموظف ثاني فان البيانات الخاصة بالنماذج الثانوية ( الدورات والاجازات ) تتغير تلقائيا الى الاسم الجديد وتصبح الحقول فارغة بالنسبة للسجل الاول الذي تم ادخاله بداية وسأرفق القاعدة وفيها ما تم شرحه للتوضيح اكثر ،،، اتمنى تعديل الحل ولك مني كل الشكر والتقدير ربط واجهات2.rar

هل فى طريقة تانية او احتدت استعملها فى ملفات تانية ؟

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

وعليكم السلام ورحمة الله وبركاته أهلا بك أخي الحبيب الأن أصبحت الأمور ميسرة بالذكاء الأصطناعي كنا دائما في هذا المنتدى نطلق شعار لا تعطني سمكة ولكن علمني كيف أصطاد وبعد انتشار الذكاء الاصطناعي تحولت الأمور إلى أعطني سمكة وخلصني (أنا مشغول) لو تحب أن نعطيك سمكة أرفق ملفك هنا واشرح مطلوبك تقبل تحياتي

فكرة استاذ وكيف لي ان انفذها

هل تريد حذف القائمة المنسدلة نهائيا ؟ ثم تكتب اي اسم مثلا (أسامه) فيبحث عن كل اسم فيه (اسامه) سواء في أوله أو أوسطه أو آخره أم تريد اختيار اسم من القائمة : مثلا (اسامه عبد العزيز صديق حامد) ثم البحث في الأسماء عن كل اسم فيه : (اسامة) سواء في أوله أو أوسطه أو آخره (عبد العزيز ) سواء في أوله أو أوسطه أو آخره (صديق) سواء في أوله أو أوسطه أو آخره (حامد) سواء في أوله أو أوسطه أو آخره تقبل تحياتي

تفضل استاذ @jo_2010 المرفق بعد التعديل بطلبك . ووافني بالرد . JOOO-1.rar

وعليكم السلام ورحمة الله أنا معلم وتحولت إلى إداري على الحاسوب فكنت أعاني من هذا الأمر مهمتي هي العمل على الحاسوب وكل ما يلزم من أعمال المدرسة ومن ضمنها ادخال الدرجات للطلاب المعلم يسلمني الكشوفات وأنا بدوري أدخل الدرجات إلى النظام في البداية كنت متحمسا لهذا الشيء بسبب أن النظام كله هو من تصميمي ولكن ! مع مرور الوقت وجدت أن عملية الأدخال للدرجات فيها شيء من الصعوبة بسبب الأخطاء التي قد أرتكبها أنا من غير قصد مني ثم تظهر في نتيجة الطالب ويتم مراجعتي بعد ذلك لتعديلها فتداركت الموضوع حتى لا تتكرر الأخطاء في المرات القادمة وقمت بتطوير عملية الأدخال بعد المرحلةالاولى التقليدية كما يأتي : المرحلة الأولى : الطريقة التقليدية : كيبورد والضغط على الأزرار * في هذه المرحلة أي خطأ أنا أتحمله وبعدها فكرت التطوير وتقليل الاعتماد على الكيبورد وتقليل الضغط على الأزرار عندما أدخل الرقم 13 مثلا أحتاج للضغط على 3 أزرار : 1 و 3 و ENTER حتى يتنقل المؤشر للخلية التالية المرحلة الثانية : قمت بتصميم برنامج على الاكسل (لا أستخدم الكيبورد إطلاقا) يقوم بإظهار لوحة الدرجات على الشاشة وعن طريق الفارة (الماوس) أختار و أضغط على الدرجة المطلوبة فقط فيقوم البرنامج بادخال الدرجة للخلية وينزل المؤشر للأسفل تمهيدا لإدخال الدرجة الأخرى إذا 3 ضغطات في المرحلة الأولى = ضغطة واحدة من الماوس في المرحلة الثانية * وهذا أنجاز لكن في هذه المرحلة أيضا أنا أتحمل أي خطأ في الأدخال استمرت المرحلة الثانية عدة سنوات وطورت الفكرة إلى المرحلة الثالثة والنهائية وهي التي أعمل بها الآن المرحلة الثالثة : عملت كشوفات اكسل لكل صف ونزلتها في قروب واتساب الخاص بالمدرسة الذي يجمع كل المعلمين فكل معلم يحمل الكشف الخاص بصفه ومادته فقط ثم يعبي الدرجات ويرسل الكشوفات لي بالواتساب وأنا أقوم (عن طريق البرمجة وليس نسخ ولصق ) بإدراجها في النظام * وهنا أنهيت مسؤولتي وأصبح كل معلم هو المسؤول عن اخطائه إذا كان هناك طريقة أسهل من هذه فأرجو من الأخوة القراء أتحافنا بها فالجميع يريد الوصول لهدف واحد وهو تبسيط العمل تقبل تحياتي .

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan : https://sites.google.com/view/mas-projectss/home لضم بعض الاعمال وتنزيل المباشر من غير اذونات الكل مفتوح المصدر ******************************************************************************************************** توسيــــع واستكمال 1- اضافة اخذ الاحداثيات ولعرض التقرير الى كامل الشاشات مختلف الى شاشة بعرض الجدار مع ادوات التقرير Private Sub Sreen_Give_Value() On Error Resume Next ' =========== ( Abut If Name Object Form Or Report Error !~# Dim Ttb3 As Recordset Dim strsq1 As String Dim strsq2 As String Dim strsq3 As String Dim Run_Update As Integer Dim MaxWidth As Long Dim nss As String Dim NsR As String Dim Close_FR As Integer '===============( IF Open Agen )========= Dim Run_Up As Integer Dim YYX As Long Dim XXY As Long Dim Rep As String Dim XXX As LongLong ' اسم النموذج المحدد للتحقق انه مفتوح nss = "Top_Report" ' اسم التقرير المحدد للتحقق انه مفتوح NsR = Form_Top_Report.Name_report_X.Caption If IsFormLoaded(nss) Then Else For Close_FR = 1 To 1 If IsReportLoaded(NsR) Then DoCmd.Close acReport, NsR Else: NsR = "" ' تفريغ غير مفتوح Next DoCmd.Close acForm, nss End If '!~# Chack If IsNull Tablet TblRSR = Clane Record ! k If DCount("*", "[TblRSR]") = 0 Then Set Ttb3 = CurrentDb.OpenRecordset("TblRSR") Ttb3.AddNew Ttb3![YY] = Me.YY.Caption Ttb3![xx] = Me.xx.Caption Ttb3![Today] = Now() Ttb3.Update Else For Run_Update = 1 To 3 If Run_Update = 1 Then strsq1 = "Update TblRSR Set YY = '" & Me.YY.Caption & "'" CurrentDb.Execute strsq1 DoEvents End If If Run_Update = 2 Then strsq2 = "Update TblRSR Set XX = '" & Me.xx.Caption & "'" CurrentDb.Execute strsq2 DoEvents End If If Run_Update = 3 Then strsq3 = "Update TblRSR Set Today = '" & Now() & "'" CurrentDb.Execute strsq3 DoEvents End If Next Run_Update End If '!~#************************************( End Chack with Update ) If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_4.Visible = False Then Me.f_4.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True If Me.f_2.Visible = True Then Me.f_2.Visible = False '========== Me.f_1.Caption = " تم اخذ احداثيات بنجــــــــــــاح بتحديث بحفظ آخر التعديلات والتأمين " & Now Me.f_3.BackColor = rgb(23, 231, 137) Me.YY.Caption = Me.InsideHeight Me.xx.Caption = Me.InsideWidth '*********( Agen Open Report with Tools) If Me.Repo.Caption = "Repo" Then Pause 4# DoCmd.Close acForm, Me.Form.Name Else DoCmd.openForm nss Rep = NsR '===========( Number For Screen HD 1920 x 1080 Inch If IsNull(DLookup("[YY]", "[TblRSR]")) Then YYX = 2715 - DLookup("[YY]", "[TblRSR]") Else: YYX = DLookup("[YY]", "[TblRSR]") If IsNull(DLookup("[xx]", "[TblRSR]")) Then XXY = 28725 + 200 Else: XXY = DLookup("[xx]", "[TblRSR]") '===============( Only Value Caption DoCmd.openForm "Back_Size_0", , , , , acHidden Form_Back_Size_0.T_Form.Caption = Rep For Run_Up = 1 To 1 DoCmd.ShowToolbar "Ribbon", acToolbarNo Next DoCmd.openForm "top_report" Form_Top_Report.Name_report_X.Caption = Rep DoCmd.openReport Rep, acViewPreview Reports(Rep).Move 0, 2000, XXY, YYX Pause 4# DoCmd.Close acForm, Me.Form.Name End If End Sub 2- اضافة عرض التقرير مع تحسين الادخال 😇 Private Sub report_Click() Dim Rep As String Dim XXY As Long Dim YYX As Long '================( Only Name If Open Report) Rep = "n_x_n" '***********************# '===========( Number For Screen HD 1920 x 1080 Inch To Up More Size Screen ) If IsNull(DLookup("[YY]", "[TblRSR]")) Then YYX = 12900 Else: YYX = 2715 - DLookup("[YY]", "[TblRSR]") If IsNull(DLookup("[xx]", "[TblRSR]")) Then XXY = 28725 + 200 Else: XXY = DLookup("[xx]", "[TblRSR]") '===============( Only Value Caption DoCmd.openForm "Back_Size_0", , , , , acHidden Form_Back_Size_0.T_Form.Caption = "n_x_n" For Run_Up = 1 To 1 DoCmd.ShowToolbar "Ribbon", acToolbarNo Next '==========( Open If Need Filter or SQL ) DoCmd.openForm "top_report" Form_Top_Report.Name_report_X.Caption = Rep DoCmd.openReport Rep, acViewPreview Reports(Rep).Move 0, 2000, XXY, YYX End Sub 3-اضافة اعدادة ضبط الشاشة بدقة وبحجم الخط الويندوز وبارتفاع شريط الويندوز + عند التعديل اعاداة الويندوز تستكمل العمل تابع الفيديو للتوضيح 5- فحص المتغيرات كل ثانية 4- اضافة بيانات التأسيس عند الفتح ايضا تابع الفيديو ... تحميل المرفق https://drive.google.com/file/d/10xilWaBhr4Wqqc0pwpgePIN8ZHEl0mLL/view?usp=drive_link

لما لا تستخدم مسح البيانات القديمة وادراج الجديد

السلام عليكم هل هناك دروس تشرح المصفوفات في الإكسل VBA شرح واضح وسهل من إجراء عمليات حسابية ومنع التكرار في البيانات وغيؤها ... بحثت فوجدت موضوع للأخ ياسر خليل أبو البراء وهذا رابطه: ولكن لو هناك شروحات أخرى تتدرج بنا لأن معالجتها للبيانات أسرع من استخدام خلايا الأكسل خصوصاً إذا كانت البيانات أكثر من 16000 صف * 13 عمود لصفحة واحدة من 8 صفحات ...

تفضل لتقييم 5 نجوم.rar

المطلوب البحث باي حرف من الاسم بدلا من البحث في القائمة المنسدلة لان هناك اكثر من 100 اسم البحث في القائمة بالحروف.rar