كل الانشطه

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan : https://sites.google.com/view/mas-projectss/home لضم بعض الاعمال وتنزيل المباشر من غير اذونات الكل مفتوح المصدر ******************************************************************************************************** توسيــــع واستكمال 1- اضافة خيار الخلفية صوره او فيديو وكامل الشاشة HD فقط الفيديو اما الصوره شاشة بحجم الجدار 2- اضافة واستكمال تسجيل الدخول التحقق من احرف الانجليزي الكبيره والصغيره بداله واحده مصغره فقط اسم المستخدم وكلمة المرورو 😇 'داله التحقق اذا كانت الاحرف كبيرة او لا Public Function SameCasePattern(ByVal Txt1 As String, _ ByVal Txt2 As String) As Boolean Txt1 = Nz(Txt1, "") Txt2 = Nz(Txt2, "") ' الطول يجب أن يكون متساوي If Len(Txt1) <> Len(Txt2) Then SameCasePattern = False Exit Function End If ' مقارنة حساسة لحالة الأحرف SameCasePattern = (StrComp(Txt1, Txt2, vbBinaryCompare) = 0) End Function Public Function SameCasePattern_Name(ByVal Txt1 As String, _ ByVal Txt2 As String) As Boolean Txt1 = Nz(Txt1, "") Txt2 = Nz(Txt2, "") ' الطول يجب أن يكون متساوي If Len(Txt1) <> Len(Txt2) Then SameCasePattern_Name = False Exit Function End If ' مقارنة حساسة لحالة الأحرف SameCasePattern_Name = (StrComp(Txt1, Txt2, vbBinaryCompare) = 0) End Function Private Sub EX_3_Click() Dim ftps As String '================( Chack Value Smoll Or capitl : Dim DBValue_User As String Dim DBValue_PWD As String DBValue_User = Nz(DLookup("[User_Name]", "[User]", "[User_Name]='" & Form_into_logen.x1 & "'"), "") DBValue_PWD = Nz(DLookup("[Password]", "[User]", "[User_Name]='" & Form_into_logen.x1 & "'"), "") If IsNull(Form_into_logen.x1) Or Form_into_logen.x1 = "" Then If Not Me.f_1.Width = Me.Form.InsideWidth Then Me.f_1.Width = Me.Form.InsideWidth If Not Me.f_3.Width = Me.Form.InsideWidth Then Me.f_3.Width = Me.Form.InsideWidth If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_2.Visible = False Then Me.f_2.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True Me.f_1.Caption = " حقل المستخدم فارغ ؟! " & " - " & Now Exit Sub End If If IsNull(Form_into_logen.x2) Or Form_into_logen.x2 = "" Then If Not Me.f_1.Width = Me.Form.InsideWidth Then Me.f_1.Width = Me.Form.InsideWidth If Not Me.f_3.Width = Me.Form.InsideWidth Then Me.f_3.Width = Me.Form.InsideWidth If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_2.Visible = False Then Me.f_2.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True Me.f_1.Caption = " حقل كلمة المرور فارغة ؟! " & " - " & Now Exit Sub End If If Form_into_logen.x1 = DLookup("[User_Name]", "[User]", "[User_Name]='" & Form_into_logen.x1 & "'") Then If Form_into_logen.x2 = DLookup("[Password]", "[User]", "[User_Name]='" & Form_into_logen.x1 & "'") Then 'فحص الاحرف EN If SameCasePattern_Name(DBValue_User, Form_into_logen.x1) Then If SameCasePattern(DBValue_PWD, Form_into_logen.x2) Then '=========================( Yes ) If Me.f_1.Visible = True Then Me.f_1.Visible = False If Me.f_2.Visible = True Then Me.f_2.Visible = False If Me.f_3.Visible = True Then Me.f_3.Visible = False 'ftps = CurrentProject.Path & "\IMG_Size\" & DLookup("[User_Name]", "[user]", "[ID]='" & Me.ID & "'") & "_3.png" ftps = CurrentProject.path & "\IMG_Size\" & Form_into_logen.x1 & "_3.png" Me.tx.Caption = " Logen: مرحبا بك " & Form_into_logen.x1 If Not Dir(ftps) = "" Then Me.sx.Picture = ftps Call zx_Click Else If Not Me.f_1.Width = Me.Form.InsideWidth Then Me.f_1.Width = Me.Form.InsideWidth If Not Me.f_3.Width = Me.Form.InsideWidth Then Me.f_3.Width = Me.Form.InsideWidth If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_2.Visible = False Then Me.f_2.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True Me.f_1.Caption = " خطأ تسجيل الدخول تأكد من الاسم وكلمت المرور ثم عاود الحاولة ؟! " & " - " & Now Exit Sub End If Else If Not Me.f_1.Width = Me.Form.InsideWidth Then Me.f_1.Width = Me.Form.InsideWidth If Not Me.f_3.Width = Me.Form.InsideWidth Then Me.f_3.Width = Me.Form.InsideWidth If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_2.Visible = False Then Me.f_2.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True Me.f_1.Caption = " خطأ تسجيل الدخول تأكد من الاسم وكلمت المرور ثم عاود الحاولة ؟! " & " - " & Now Exit Sub End If End If End If End Sub 3- عرض التقرير بتقسيم بسيط جدا داخل كل تقرير حدث عند الفتح + كود بسيط في القائمة ادوات التقرير وكل ما زاد عن الف 1000 سجل اصبح 2 مع الطباعة الفورية ( لمعالجة الثقل وسرعة والسهولة سأحاول تجربته 😇 Private Sub nzV() Dim rpt As String Dim SourceSQL As String Dim rpt_X As Report Dim Give_itme As Integer Dim N_R As Long 'جلب اسم مصدر التقرير كان جدول او استعلام Set rpt_X = Reports(Me.Name_report_X.Caption) SourceSQL = rpt_X.RecordSource Me.sexo = Nz(DCount("*", SourceSQL), 0) If Len(Nz(DCount("*", SourceSQL), 0)) < 3 Then N_R = 1 Else N_R = Right(Nz(DCount("*", Me.Name_report_X.Caption), 1), 4) End If Me.txtPageSize.RowSourceType = "Value List" With Me.txtPageSize For Give_itme = 1 To N_R .AddItem Give_itme Next End With End Sub والكود داخل كل تقرير Option Compare Database Private Sub Report_Load() DoCmd.Maximize If IsNull(DLookup("[IMG_1]", "[Ass]")) Then Me.PX_1.Visible = False If IsNull(DLookup("[IMG_1]", "[Ass]")) Then Me.PX_2.Visible = False End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Parts() As String Dim StartRow As Long, EndRow As Long ' قراءة النطاق من TAG If Me.Tag <> "" Then Parts = Split(Me.Tag, "|") StartRow = CLng(Parts(0)) EndRow = CLng(Parts(1)) ' إذا رقم السجل الحالي خارج النطاق ? اخفِه If Me.currentRecord < StartRow Or Me.currentRecord > EndRow Then Me.Visible = False Else Me.Visible = True End If End If End Sub Private Sub Report_Open(Cancel As Integer) Dim PageNumber As Long Dim PageSize As Long Dim StartRow As Long Dim EndRow As Long ' إعدادات PageSize = 1000 ' عدد السجلات لكل مجموعة PageNumber = Nz(Forms!Top_Report!txtPageSize, 1) ' الحقل غير منضم في النموذج StartRow = (PageNumber - 1) * PageSize + 1 EndRow = PageNumber * PageSize ' نحفظ النطاق في TAG التقرير لاستخدامه لاحقاً Me.Tag = StartRow & "|" & EndRow End Sub .... تابع الفيديو للتوضيح مشاهده ممتعة تحميل المرفق https://drive.google.com/file/d/1hF1CX00nJh0JmNowOzyPJVW-swPkAuWl/view?usp=drive_link

تفضل . Taher DZ-3.rar

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

انا لاحظت ان عداد النسبة تحت البروجرسبار متوقف على 0 فعدلت المرفق . Taher DZ-2.rar

استاذ @Taher DZ انت اتقنت الفكرة والطريقة بالمرفق الاول . اتركها بما فيها لان الصورة بالمرفق الاول ............... استخدم المرفق الثاني ولاحظ الدالة المشار اليها تغيرت تماماُ . طالع الشرح .

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

فعلا مع التجربة لاحظت أن البوكمارك يمكن أن تنحذف أو تنلغي بسهولة مع أي تعديل للملف .. فكرتك عبقرية فعلا 👌

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

بما انك وصلت لهنا النتيجة انك فهمت الموضوع لكن اذكرك لاتنسى حفظ مستند الوورد بعد أي تعديل . تفضل المرفق بعد التعديل بطلبك 4 اماكن مختلفة . طالع كود الاكسس ومستند الوورد . اليك المرفق . هذه الطريقة لا تمنع المستخدم من تعديل النصوص المدمجة بشكل عشوائي . كما ظهرت في تجارب المستخدم السابقة . Taher DZ-1.rar

بقيت مشاكل في النقل بالترتيب انظر المرفق استاذ نقل ورد.rar

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

تفضل استاذ @jo_2010 كود الزر بعد التعديل بطلبك .ووافني بالرد . Private Sub أمر1595_Click() Dim TaskDialog As Y_CTaskDialog Set TaskDialog = New Y_CTaskDialog Dim sSubReport As String sSubReport = Screen.ActiveControl.Caption ' مسار التصدير Dim sBasePath As String Dim sFolder As String Dim sPDF As String sBasePath = CurrentProject.Path sFolder = sBasePath & "\MyReports" ' إنشاء المجلد إن لم يكن موجودًا If Dir(sFolder, vbDirectory) = "" Then MkDir sFolder End If With TaskDialog .Init .ParenthWnd = Me.hwnd .Flags = TDF_RTL_LAYOUT Or TDF_USE_COMMAND_LINKS _ Or TDF_USE_IMAGERES_ICONID_BUTTON .AddCustomButton 101, _ " طبـاعـة كـل التقـارير بتاريخ " & " / " & DDate & vbLf & _ " عدد التقارير " & URn & " تقرير ", 5380 .AddCustomButton 102, _ " طبـاعـة تقــريــــر واحــــد " & vbLf & _ " باســــم / " & PNAME & " ", 5351 .AddCustomButton 103, _ " تــراجــــــع عـن الطبــاعـة ", 5315 .SetWindowsButtonIconSize 32 .MainInstruction = "جمعية حماية البيئة من التلوث" .Content = "معمـل الام والطفــل" .IconMain = 76 .Title = "طباعـــة" .Width = 250 .ShowDialog Select Case .ResultMain ' ===== الحالة 101 ===== Case 101 Me.Refresh ' مسار واسم ملف PDF sPDF = sFolder & "\AllReports_" & _ Format(Me.DDate, "yyyy-mm-dd") & ".pdf" ' فتح التقرير في وضع مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "ddate = #" & Format(Me.DDate, "yyyy-mm-dd") & "# AND NOT IsNull(colour)", _ acHidden, sSubReport ' تصدير التقرير إلى PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF بعد التصدير Application.FollowHyperlink sPDF ' ===== الحالة 102 ===== Case 102 Me.Refresh Dim PatientName As String Dim FileDate As String Dim RLM As String Dim LRM As String RLM = ChrW(&H200F) ' Right-To-Left Mark LRM = ChrW(&H200E) ' Left-To-Right Mark ' اسم المريض PatientName = Me.PNAME ' تنظيف الرموز غير المسموحة PatientName = Replace(PatientName, "/", "-") PatientName = Replace(PatientName, "\", "-") PatientName = Replace(PatientName, ":", "-") ' التاريخ FileDate = Format(Date, "dd-MM-yyyy") ' اسم الملف (اتجاه مضبوط 100%) sPDF = sFolder & "\" & _ RLM & PatientName & RLM & "_" & LRM & FileDate & ".pdf" ' فتح التقرير بشكل مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "[PCode]=" & Me.PCode, acHidden, sSubReport ' تصدير PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF Application.FollowHyperlink sPDF Case 103 Exit Sub End Select End With Set TaskDialog = Nothing End Sub

الملف نفس الثقل مثل ما سويته أنا باستخدتم worksheetfounction هل يمكن تسريعه أكثر من كذا؟ هل المصفوفات تعمل على معالجة البيانات خارج ملف الإكسل ثم تضع النتائج؟

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

التوفيق للجميع ان شاء الله استاذي العزيز 🌹 زر البحث موجود بالقاعدة التي تم تحميلها مسبقاً ☝️ ويكون البحث مخصص لسجلات موظف معين في النماذج الفرعية

العفو أختي الكريمة ، ولكن تعقيباً على زر البحث ، فلا اعلم مدى نجاح الفكرة التي قمتي بتنفيذها .. ولكن بالتوفيق

ممتنه لك استاذي العزيز تعبتك معي 🌹🌹 وجميلةً جداً طريقة الحل التي طرحتها👍 بالنسبة لنماذج الادخال هي بالفعل كذلك ( نماذج ادخال وبنفس الوقت تستخدم للبحث ) 😉 ولكن لن اضطر للضغط 50 مرة للبحث لاني وضعت زر مخصص للبحث مرة اخرى شكراً لك استاي العزيز جعلها ربي في ميزان حسناتك

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

من المفترض انها نماذج إدخال بيانات وليست نماذج عرض سجلات ، إلا اذا كنتي رح تضطري تضغطي 50 مرة للبحث عن سجل معين داخل سجلات الجدول !!!! على العموم ، تم إضافة زرين ( التالي - السابق ) للنموذجين مع دالة تستعرض السجلات الخاصة بالموظف الحالي فقط .. تفضلي :- ربط واجهات3.zip

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

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

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

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

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

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