كل الانشطه

تقدّم شركة سندك للاستشارات الأكاديمية والترجمة خدمة متكاملة في إعداد خطة البحث العلمي وفق المعايير المعتمدة في الجامعات العربية والدولية، مع مراعاة الدقة المنهجية ومتطلبات القبول الأكاديمي؛ ولفهم ما هي عناصر خطة البحث العلمي؟ تعتمد الخطة على مجموعة من المكونات الأساسية التي توضّح مسار الدراسة منذ الفكرة وحتى التنفيذ، مثل عنوان البحث، مشكلة الدراسة، أهداف البحث، أسئلته أو فروضه، أهمية البحث، منهجيته، وحدوده، والدراسات السابقة، وتوفّر الشركة نماذج إرشادية توضّح عناصر خطة البحث PDF بصياغة واضحة ومنسقة تساعد الباحث على استيعاب البناء الصحيح للخطة، كما يتم شرح كيفية كتابة خطة البحث خطوة بخطوة، مع تجنّب الأخطاء الشائعة وضمان الاتساق بين عناصر الخطة ومحتواها العلمي. https://www.sanadkk.com/blog/post/2725/%D9%85%D8%A7-%D9%87%D9%8A-%D8%B9%D9%86%D8%A7%D8%B5%D8%B1-%D8%AE%D8%B7%D8%A9-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A.html

توفّر شركة سندك للاستشارات الأكاديمية والترجمة خدمة احترافية في إعداد خطة البحث العلمي وفق الضوابط المنهجية المعتمدة في الجامعات، وتهدف الخدمة إلى مساعدة الباحثين على فهم مما تتكون خطة البحث وبنائها بصورة علمية متكاملة، وتشمل الخطة البحثية مجموعة من مكونات خطة البحث PDF التي توضّح الإطار العام للدراسة، مثل مشكلة البحث، وأهدافه، وأهميته، ومنهجيته، وحدود الدراسة، مع الالتزام بالتسلسل المنطقي والدقة الأكاديمية، كما تولي الشركة اهتمامًا خاصًا بتجنب أخطاء خطة البحث الشائعة، مثل ضعف صياغة المشكلة، وعدم اتساق الأهداف مع المنهج، أو القصور في توثيق المراجع، لضمان قبول الخطة واعتمادها أكاديميًا. https://www.sanadkk.com/blog/post/2726/%D9%85%D9%85%D8%A7-%D8%AA%D8%AA%D9%83%D9%88%D9%86-%D8%AE%D8%B7%D8%A9-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB.html

تقدّم شركة سندك للاستشارات الأكاديمية والترجمة خدمة متكاملة في إعداد خطة البحث العلمي وفق المعايير الأكاديمية المعتمدة في الجامعات العربية والدولية، وتركّز الخدمة على توضيح كيفية كتابة الخطة البحثية بصورة منهجية تبدأ من تحديد مشكلة البحث وصياغة الأهداف، وصولًا إلى اختيار المنهج العلمي المناسب وبناء الإطار النظري والدراسات السابقة، كما تتيح الشركة نماذج خطة بحث جاهزة Word تساعد الباحث على فهم البناء الصحيح للخطة، مع إمكانية كتابة خطة البحث العلمي بشكل مخصص يتوافق مع تخصص الباحث ومتطلبات المشرف الأكاديمي. https://www.sanadkk.com/blog/post/2727/%D9%83%D9%8A%D9%81%D9%8A%D8%A9-%D9%83%D8%AA%D8%A7%D8%A8%D8%A9-%D8%A7%D9%84%D8%AE%D8%B7%D8%A9-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB%D9%8A%D8%A9.html

تفضل . Mon_Excel_Bilal_Yamen-1.rar

شكرا استاذ جازاك الله كل خير الملف يعمل أستاذ.

استاد نعم يضيف سطر جديد

بوركت استاذ على تعبك ولكن عندي مشكلة في تنفيد البروجرسبار ماعرفت اين تكمن كما في الصورة الرجاء التعديل على المرفق 2026.rar

كل شيء ممكن في الاكسل ولكن المشاكل تحل خطوة بخطوة جرب الملف Horaire2.xlsb

حتى ولو البيانات لم تتغير يضيف سطر جديد أم نضيف حقل لتاريخ اليوم .

يضيف عليه سطر جديد استاذ

تقصد لنفس الموظف .... يحدث الموجود أم يضيف عليه سطر جديد .

استاذنا الفاضل بارك الله فيك استاذ عند اضافة موظف جديد في ملف الاكسيل ونقوم بالاستراد في جدول يتم حدف البيانات الموجودة في الجدول اريد عند اضافة موظف في الاكسيل يتم إضافته في الجدول

استاذ @بلال اليامين هل تقصد جلب الورقة بجدول جديد باسم الورقة (Feuil1) . طالع المرفق ووافني بالرد . انت بطول في الرد .... رد بأسرع وقت قبل نسياني لأني من كثرة الاعمال لديا بنس عملت ايه ولمين ...... لا تعتمد اني أقرأ ما بداخلك اشرح بالتفصيل يا بخيلي .... اليك المرفق وطالع الجدول الجديد .. Mon_Excel_Bilal_Yamen.rar

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

جزاك الله خير 🌹 لقد علمتني كيف أصطاد، واستخدمت Gemini واعطاني هذا الكود وكان سريع وجلب البيانات بثواني ... قمت بتكرار النتائج ولم تكن المخرجات منسقة، ولكن سأعمل على تطويره ليخدم عملي الكود ستجده في موديل Array لا حرمني الله منكم 😘😘 Array.xlsb

وعليكم السلام جرب الملف , هل تم حل المشكلة الأولى ؟ Horaire1.xlsb

شكرا ايها الخبير المبدع جزاك الله بكل الخير وزادك من علمه

جزاك الله خير وبارك فيك استاذي الغالي @Foksh لقد تم تثبيت التطبيق بنجاح بعد متابعة شرحك ولله الحمد الله يعطيك العافيه والف شكر لك استاذي تقبل تحياتي واحترامي🌹🌹🌹

السلام عليكم استاذ kkhalifa1960 أستاذ لدي ملف اريدعند تصدير ملف لاكسل بجوار البرنامج اسمه Horaire . أريد عند تصدير واستراد يظهر بملف الاكسيل الذي هو بجوار البرنامج إسمه Horaire وإسم الورقة Feuil1 أستاذ اريد عند الضغط على إسم الموظف يتم تحميل ملف لاكسل الذي بجوار البرنامج. بارك الله فيك استاذ Mon_Excel.zip

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 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 فوجدت بها مشكلة عند الصورة